Erreur d'éxecution 1004

GulsahY Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -

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

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 

Bonjour,

derait aller

Sheets(8).Range("A3:AZ" & 8 - 1 + NumEchéancier * 3).Select
0
GulsahY Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 

Bonjour, merci mais l'erreur reste la même

0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > GulsahY Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 

Re,

8 - 1 + NumEchéancier * 3 ca donne quoi?
0
GulsahY Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 

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

0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 

Bonjour,

Filename:=s

s est egal a quoi, car apparait nul part!

0
GulsahY Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 

Je ne sais pas, mais le fichier produit devrait avoir comme nom "Copie de CSV-EE" normalement,

0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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


0