Utiliser la valeur de ma cellule comme nom de fichier

  • Initiateur de la discussion Initiateur de la discussion Cydor007
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Cydor007

XLDnaute Occasionnel
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🙂
 
Re : Utiliser la valeur de ma cellule comme nom de fichier

Bonsoir

comme ceci peut-être

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 Filename:=nomsave
 
Application.DisplayAlerts = True
End Sub
 
Dernière édition:
Re : Utiliser la valeur de ma cellule comme nom de fichier

Bonsoir le fil 🙂,
Code:
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 😎
 
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🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
975
Retour