Enregister sous

Fermé
Cabrina Messages postés 248 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 13 mars 2024 - 2 oct. 2015 à 12:28
Cabrina Messages postés 248 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 13 mars 2024 - 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
A voir également:

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
2 oct. 2015 à 16:10
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 248 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 13 mars 2024 6
5 oct. 2015 à 15:09
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 248 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 13 mars 2024 6
5 oct. 2015 à 15:27
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