bouton pour sauvegarder

[reinruof77]

bonjour a tous

j'aurais voulu savoir si il etait possible de sauvegarder un fichier sous le nom de la cellule (ici A6) .
par exemple il y as toto en A6 et quand je clic sur valider j'ai mon impression et cela sauvegarder mon fichier dans mes document sous toto.

merci de votre aide

 

[Robert]

Re : bouton pour sauvegarder

Bonjour Reinruof, bonjour le forum,

Peut-être comme ça :

Private Sub CommandButton1_Click()
Dim chem As String
Dim nom As String
 
chem = ThisWorkbook.Path & "\" 'à adapter
nom = Range("A6").Value & ".xls"
[A6] = TextBox1
[C7] = TextBox2
[C9] = TextBox3
[C10] = TextBox4
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ThisWorkbook SaveAs(chem & nom)
Unload Me
End Sub

 

[reinruof77]

Re : bouton pour sauvegarder

merci robert mais quand j'essai de l'executer j'ai une erreur de compilation sub ou fonction non defini ici "ThisWorkbook SaveAs(chem & nom)"
merci de ton aide
si tu as une autre idée je suis prenneur

 

[Robert]

Re : bouton pour sauvegarder

Bonjour le fil, bonjour le forum,

Oui c'est normal il faut inverser deux lignes dans la code car sinon A6 est vide et en plus j'avais oublié un point.
Voilà ce qu'il arrive quand on la la flemme de tester le code... Je suis désolé !

Private Sub CommandButton1_Click()
Dim chem As String
Dim nom As String
 
chem = ThisWorkbook.Path & "\" 'à adapter
[A6] = TextBox1
[C7] = TextBox2
[C9] = TextBox3
[C10] = TextBox4
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
nom = Range("A6").Value & ".xls"
ThisWorkbook.SaveAs (chem & nom)
Unload Me
End Sub

 

[reinruof77]

Re : bouton pour sauvegarder

SUPER
un grand merci