Sujet Précédent Sujet Suivant

Nommer une fichier excel avec une macro

Fermé
Raskass - 6 août 2009 à 08:31
m@rina Messages postés 22033 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 7 avril 2025 - 6 août 2009 à 09:21
Bonjour,
Comment attribuer le nom du fichier Rempl alors qu'il se trouve entre guillements ? :

fName = Date
fName = Format(fName, "jjmmaa")
Rempl = fName + ".xls"

ChDir "\\rfo1\U_co$\Desktop\Porte-docs\Macros\TRS_RS_RO"
ActiveWorkbook.SaveAs Filename:= _
"\\rfo1\U_co$\Desktop\Porte-docs\Macros\TRS_RS_RO\Rempl", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

le resultat est Rempl.xls alors que la valeur Rempl = 060809.xls,

merci de votre aide
Raskass
A voir également:

1 réponse

Réponse 1 / 1
m@rina Messages postés 22033 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 7 avril 2025 11 417
6 août 2009 à 09:21
Bonjour

Quand tu définis une variable, il ne faut pas de guillemets.

Essaie plutôt ça : 

Sub enregist()
Dim chemin, fName, Rempl
chemin = "\\rfo1\U_co$\Desktop\Porte-docs\Macros\TRS_RS_RO\"
fName = Date
fName = Format(fName, "ddmmyy")
Rempl = fName + ".xls"

ActiveWorkbook.SaveAs Filename:=chemin & Rempl, FileFormat:=xlNormal

End Sub


m@rina
0