Erreur d'éxecution 1004

Fermé
GulsahY Messages postés 4 Date d'inscription lundi 5 septembre 2022 Statut Membre Dernière intervention 21 septembre 2022 - 6 sept. 2022 à 10:46
Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 - 21 sept. 2022 à 14:56

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 17212 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 24 décembre 2024 1 711
6 sept. 2022 à 11:32

Bonjour,

derait aller

Sheets(8).Range("A3:AZ" & 8 - 1 + NumEchéancier * 3).Select
0
GulsahY Messages postés 4 Date d'inscription lundi 5 septembre 2022 Statut Membre Dernière intervention 21 septembre 2022
6 sept. 2022 à 13:37

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

0
f894009 Messages postés 17212 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 24 décembre 2024 1 711 > GulsahY Messages postés 4 Date d'inscription lundi 5 septembre 2022 Statut Membre Dernière intervention 21 septembre 2022
6 sept. 2022 à 18:42

Re,

8 - 1 + NumEchéancier * 3 ca donne quoi?
0
GulsahY Messages postés 4 Date d'inscription lundi 5 septembre 2022 Statut Membre Dernière intervention 21 septembre 2022 > f894009 Messages postés 17212 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 24 décembre 2024
21 sept. 2022 à 09:58

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 17212 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 24 décembre 2024 1 711
21 sept. 2022 à 10:21

Bonjour,

Filename:=s

s est egal a quoi, car apparait nul part!

0
GulsahY Messages postés 4 Date d'inscription lundi 5 septembre 2022 Statut Membre Dernière intervention 21 septembre 2022
21 sept. 2022 à 10:45

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

0
Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 1 452
21 sept. 2022 à 14:56

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