Enregister sous

Cabrina Messages postés 273 Statut Membre -
Cabrina Messages postés 273 Statut Membre - 5 oct. 2015 à 15:27

Bonjour

Je voudrais savoir quel est le paramètre à changer pour que lors de l'enregistrer sous cela me prenne le n° de bon de livraison qui est dans la cellule « A1 ». pour en faire mon n° de fichier.

Merci

Afficher la suite

2 réponses

cs_Le Pivert Messages postés 8437 Statut Contributeur 730

Bonjour,

En vba, aller dans ThisWorkbook et mettre ceci:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 ActiveWorkbook.SaveAs Filename:="C:\Users\....\Documents\" & Range("A1").Value & ".xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Changer le chemin et l'extension

Réponse 2 / 2
Cabrina Messages postés 273 Statut Membre 8

Le problème que j'ai c'est que je n'arrive pas à la faire fonctionner.
Ci après la photo de ce qui vous avez noter au dessus
0
1. Cabrina Messages postés 273 Statut Membre 8
  
  Je viens de me rendre compte que la formule fonctionne quand je ferme le ficher. Par contre pour le nom de mon fichier cela me prend le nom dans lequel je veux enregistrer mon ficher en ensuite ma cellule A1.
  
  0

Enregister sous

2 réponses

Discussions similaires

Newsletters