Erreur d'éxecution 1004
Bonjour,
Je cherche à exporter des métadonnées depuis une feuille nommée "Export" (Feuil15) grâce au code VBA suivant :
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
malheureusement je tombe sur l'erreur suivante : erreur d'éxecution 1004, la methode de la classe range a échoué,
La première ligne est indiquée par le débogage.
Windows / Chrome 104.0.0.0
Merci d'avance cdt,
3 réponses
-
Bonjour,
Juste au passage ceci: (XLCV ....xlCSV !!! )
Le fichier XLCV est bien produit par la macro, en cliquant sur la macro "Export CSV"
mais .........
La ligne suivante est indiquée par le débogage:
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False
-
Bonjour,
Filename:=s
s est egal a quoi, car apparait nul part!
-
Bonjour,
derait aller
Sheets(8).Range("A3:AZ" & 8 - 1 + NumEchéancier * 3).Select-
-
-
@f894009
Bonjour,
Désolé pour ma réponse vraiment tardive,
en rééessayant l'erreur de la première ligne n'a plus réapparu
Le fichier XLCV est bien produit par la macro, en cliquant sur la macro "Export CSV"
mais je tombe sur l 'erreur suivante "
La ligne suivante est indiquée par le débogage:
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False
Les métadonnées en gros ne sont pas importés depuis la feuille,
merci pour votre aide je vais faire d'autres recherches pour régler le problème,*
très bonne journée,
Gülsah
-
