Nommer une fichier excel avec une macro

Raskass -  
m@rina Messages postés 27623 Date d'inscription   Statut Modérateur Dernière intervention   -
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
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  1.
    m@rina Messages postés 27623 Date d'inscription   Statut Modérateur Dernière intervention   11 564
     
    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