Utiliser la valeur de ma cellule comme nom de fichier

[Cydor007]

Bonjour à tous,

J'aimerais savoir s'il est possible avec un bouton commande d'exécuter la macro suivante:

1- Utiliser la valeur de ma cellule comme nom de fichier (ex.: A1 = F-2011-001)
2- Sauvegarder sur mon disque dur avec le chemin suivant: C:\Documents and Settings\Gilles\Desktop (comme exemple)
3- Sauvegarder avec l'extension.xlsm

J'ai un bout de code mais j'ai un erreur d'exécution '1004 (impossible d'utiliser cette extension avec le type de fichier sélectionné...)

Voici mon code:

Private Sub CommandButton2_Click()

Application.DisplayAlerts = False
Dim Extension As String
Extension = ".xlsm"
nom = Sheets("Formulaire de facturation").Range("A1")
nomsave = "C:\Documents and Settings\Gilles\Desktop\" & nom & Extension

ActiveWorkbook.SaveAs (nomsave)

Application.DisplayAlerts = True

End Sub

Qu est-ce qui ne marche pas?

Si vous avez une option plus simple, je suis tout oui.

Merci de votre aide,

Cydor🙂

 

[gilbert_RGI]

Re : Utiliser la valeur de ma cellule comme nom de fichier

Bonsoir

comme ceci peut-être

Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
 Dim Extension As String
 Extension = ".xlsm"
 nom = Sheets("Formulaire de facturation").Range("A1")
 nomsave = "C:\Documents and Settings\Gilles\Desktop\" & nom & Extension
 
ActiveWorkbook.SaveAs Filename:=nomsave
 
Application.DisplayAlerts = True
End Sub

 

[JNP]

Re : Utiliser la valeur de ma cellule comme nom de fichier

Bonsoir le fil 🙂,

Application.DisplayAlerts = False
Dim Nom As String, nomsave As String
Nom = Sheets("Formulaire de facturation").Range("A1")
nomsave = "C:\Documents and Settings\Gilles\Desktop\" & Nom
ActiveWorkbook.SaveAs Filename:=nomsave, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True

Bonne soirée 😎

 

[Cydor007]

Re : Utiliser la valeur de ma cellule comme nom de fichier

Bonjour à vous deux,

J'ai essayé les 2 solutions et c'est celle de JNP qui fonctionne le mieux.

Je vais essayer avec d'autres exemple, mais cela marche très bien.

Merci de votre collaboration

Cydor🙂