Nommer une fichier excel avec une macro

Raskass -
m@rina Messages postés 23940 Date d'inscription Statut Non membre Dernière intervention - 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

Afficher la suite

A voir également:

Nommer une fichier excel avec une macro
Fichier bin - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Fichier epub - Guide
Déplacer une colonne excel - Guide
Fichier rar - Guide

1 réponse

Réponse 1 / 1

m@rina Messages postés 23940 Date d'inscription Statut Non membre Dernière intervention 11 466

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

Votre réponse