Enregister sous

Cabrina Messages postés 273 Statut Membre -  
Cabrina Messages postés 273 Statut Membre -
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

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
0
Cabrina Messages postés 273 Statut Membre 6
 
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
Cabrina Messages postés 273 Statut Membre 6
 
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