nom de fichier en variable

[Nim']

Bonjour à tous,

je bloque sur l'enregistrement de fichier alors que tout allait bien jusqu'à présent.

le nom de mon fichier est stocké dans une variable et je ne parviens pas à faire un saveas en .csv....

Dim nomfichier As String
nomfichier = nom_dr & ".csv"
'
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Users\Public\Documents\MAJ TLC 2007"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Public\Documents\MAJ TLC 2007\" & nomfichier, FileFormat:=xlCSV, _
        CreateBackup:=False

si quelqu'un peut m'aider je lui en serai particulièrement reconnaissant

merci encore

 

[Iznogood1]

Bonjour,

Quel est le message d'erreur ?

 

[Jacky67]

Bonjour,
A tester...
nomfichier = "LeNomReelDuFichier" (Entre guillemets)
& ".csv" est inutile puisque défini par "FileFormat"

ChDir...... est inutile puisque le chemin complet est défini dans
'ActiveWorkbook.SaveAs Filename:="C:\Users\Public\Documents\MAJ TLC 2007\"...