Bonsoir à Tous,
Voilà, je suis en train de terminer une application dans laquelle j'ai un bouton qui me permet d'enregistrer le fichier.
Seulement voilà, j'aimerais que le nom du fichier soit égal à la valeur de ma combobox1.
J'ai essayé ça :
Private Sub Valider_Click()
Worksheets(ComboBox1.Text).Select
Worksheets(ComboBox1.Text).Copy
ChDir 'C:\\'
ActiveWorkbook.SaveAs Filename:='C:\\Nom du dossier\\ComboBox1.value', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
End Sub
Mais ça marche pas !!!
Et vu l'heure qu'il est, j'ai plus les yeux en face des trous.
Merci de votre aide et A+
Bonne nuit
Marc
PS : Bonne nuit, je vais me coucher !!!
Voilà, je suis en train de terminer une application dans laquelle j'ai un bouton qui me permet d'enregistrer le fichier.
Seulement voilà, j'aimerais que le nom du fichier soit égal à la valeur de ma combobox1.
J'ai essayé ça :
Private Sub Valider_Click()
Worksheets(ComboBox1.Text).Select
Worksheets(ComboBox1.Text).Copy
ChDir 'C:\\'
ActiveWorkbook.SaveAs Filename:='C:\\Nom du dossier\\ComboBox1.value', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
End Sub
Mais ça marche pas !!!
Et vu l'heure qu'il est, j'ai plus les yeux en face des trous.
Merci de votre aide et A+
Bonne nuit
Marc
PS : Bonne nuit, je vais me coucher !!!