Erreur d'éxecution 1004

Bonjour,

Mon code de macro suivant ne fonctionne pas complètement : je tombe sur l'erreur suivante Erreur d'éxecution '1004' Nous n'avons pas pu accéder au fichier
Assurez-vous que le dossier spécifié existe
Assurez-vous que le dossier contenant le fihcier n'est pas en mode lecture seule
Assurez-vous que le nom du fichier et le chemin ne.

Sub Export_CSV()

Sheets(8).Range(A & 3 & ":" & AZ & 8 - 1 + NumEchéancier * 3).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True

End Sub

Edit modo : code mis entre balises

La ligne soulignée suivante est indiquée par le débogage : ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False

Sachant que le classeur en .xlcsv est bien créé et s'ouvre par la suite mais ne copie pas les données de la feuille contenant la macro,

Merci d'avance, cordialement,

Bonjour Gülsah et bienvenu, bonjour le forum,

Certaines variables ne sont pas déclarées voire même pas définies. Voilà comment je verrai les choses :

Sub Export_CSV()
Dim PL As Range
Dim NumEchéancier As Integer
Dim s As String

NumEchéancier = 1 'à adapter à ton cas
s = "Test" 'à adapter à ton cas
Set PL = Sheets(8).Range("A3:AZ" & 7 + NumEchéancier * 3)
Workbooks.Add
PL.Copy ActiveWorkbook.ActiveSheet.Range("A1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close True
Application.DisplayAlerts = True
End Sub

Bonjour Thauthème,

Merci pour ton aide, effectivement le code ne semblait pas complet,

- NumEchéancier = 1 'à adapter à ton cas --> je ne comprends pas à quoi correspond cette fonction NumEchéancier et quelles valuers doit être ajoutées dans le code

- s = "Test" 'à adapter à ton cas --> je rajoute le chemin d'accès dans lequel je veux que le fichier XLCSV se trouve ?

Les entêtes des colonnes sont bien pris en compte dans le nouveau fichier mais le contenu, les métadonnées ne sont pas prises en compte

Re,

Je ne peux pas t'aider plus que ça...

NumEchéancier me semble être une variable. Il faudrait que tu pose la question à l'auteur du code.

s devrait être le nom complet avec le chemin d'accès...