[Catégorie modifiée VB6 - VBA] enregsitrer un fichier excel avec une macro lui d [Résolu]

Messages postés
44
Date d'inscription
mardi 16 février 2010
Statut
Membre
Dernière intervention
28 juillet 2010
- - Dernière réponse : cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
- 18 juil. 2010 à 01:24
Bonjour,

je souhaite, au moyen d'une macro VB, enregistrer un fichier excel en lui donnant comme nom le contenu d'une case (disons A1).

J'ai essayé cela mais ça ne marche pas :

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Propriétaire\Mes documents" & Classeur1!A1 & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

C'est important pour moi et quelqu'un peut-il m'aider. Merci d'avance.
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61
3
Merci
Salut
La syntaxe Classeur1!A1 ne fonctionne que dans les cellules, pas en VBA.
Teste ça à la place :
Sheets("ma Feuille").Range("A1").Value

Il faudra penser à tester si cette cellule (pas case) n'a pas de caractères interdits pour un nom de fichier.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 211 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Jack
Messages postés
44
Date d'inscription
mardi 16 février 2010
Statut
Membre
Dernière intervention
28 juillet 2010
0
Merci
Merci de la réponse mais ce n'est pas tout à fait cela, en fait, j'ai trouvé, il faut écrire :

Sub Macro7()

Dim nom As String
nom = Range("A1").Value

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Propriétaire\Mes documents" & nom & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Commenter la réponse de Ackby
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61
0
Merci
lol
C'est exactement la même chose !
Commenter la réponse de cs_Jack