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....


'
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
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
End Sub
si quelqu'un pouvait m'aider je lui en serais particulièrement reconnaissant

merci encore