Erreur d'éxecution 1004 - macro

Bonjour,
En voulant exécuter une macro je tombe sur le message d'erreur suivant :

Citation:

---

Erreur d'exécution '1004', la méthode Select de la classe Range a échoué

---

Le but étant de créer un fichier xlcsv de métadonnés à partir d'un tableau de données

Voici le code lié à la macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

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

---

Merci d'avance,

Bonjour,

Une première piste :

Quand tu écris Range(A & 3 & ":" & AZ & 8 - 1 + NumEchéancier * 3), les lettres A et AZ ne sont pas entre guillemets.
VBA les considère donc comme des variables, qui sont donc vides.

Bonjour,

J'ai rajouté les guillemets :

Code:

---

Sheets(8).Range("A" & 3 & ":" & "AZ" & 8 - 1 + NumEchéancier * 3).Select

---

, mais dès que je clique sur le bouton de la macro le même message d'erreur s'affiche

Bonjour,

Citation:

---

, mais dès que je clique sur le bouton de la macro le même message d'erreur s'affiche

---

Ta feuille d'index 8 n'est pas visible ou n'existe pas : si tu veux la modifier il faut oublier le 'select' et ce sera plus facile et efficace.

Salut
A tester et à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set xlWbk = ThisWorkbook Set xlWsh = xlWbk.Worksheets("Feuil1") Set newWbk = Workbooks.Add Set rng = xlWsh.Range("A" & 3 & ":" & "AZ" & 8 - 1 + NumEchéancier * 3)   Application.DisplayAlerts = False rng.Copy newWbk.Worksheets("Feuil1").Range("A1").PasteSpecial (xlPasteAll) newWbk.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close Application.DisplayAlerts = True

---

Citation:

---

Envoyé par anasecu

Bonjour,

Ta feuille d'index 8 n'est pas visible ou n'existe pas : si tu veux la modifier il faut oublier le 'select' et ce sera plus facile et efficace.

---

Bonjour, merci pour votre réponse,
Pièce jointe 624742

Je me suis rendue compte que la feuille de métadonnées que je voulais importer était la 15 depuis la vue VBA Projet ci-joint,
Oublier le select c'est-à-dire que je dois enlever cette partie-là ? --> * 3).Select
et au lieu du 8 je mets 15 ?

Voici le message d'erreur de base : La methode select de la classe range a échouer

Citation:

---

Envoyé par hyperion13

Salut
A tester et à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set xlWbk = ThisWorkbook Set xlWsh = xlWbk.Worksheets("Feuil1") Set newWbk = Workbooks.Add Set rng = xlWsh.Range("A" & 3 & ":" & "AZ" & 8 - 1 + NumEchéancier * 3)   Application.DisplayAlerts = False rng.Copy newWbk.Worksheets("Feuil1").Range("A1").PasteSpecial (xlPasteAll) newWbk.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close Application.DisplayAlerts = True

---

---

Bonjour,
Merci pour votre réponse,
Du coup j'ai essayé votre code,
- je suis tombé sur un premier message d'erreur : Erreur de compilation End Sub attendu --> j'ai du coup rajouté "End Sub" à la fin de votre code
- Un second message d'erreur est alors apparu : Erreur d'exécution '9' : l'indice n'appartient pas à la sélection
Pièce jointe 624746

Hello,
ta feuille 15 s'appelle Export il faut mettre :

Code:

---

set xlWsh = xlWbk.Worksheets("Export")

---

Ami calmant, J.P

Bonjour,

la méthode de jurassic pork se base sur le nom de la feuille.

si tu modifies le nom, ton code ne fonctionnera plus.

tu as la possibilité d'utiliser, comme tu l'as tenté, le "nom interne" de la feuille Feuil15. Tu n'es plus tributaire :

- de l'emplacement de la feuille sur ton classeur (ta première méthode avec Sheets(8))
- du nom de l'onglet sur l'interface utilisateur

mais c'est un objet et nom une chaine de caractère, donc on l'utilise sans guillemets :

Code:

---

Set xlWsh = xlWbk.Feuil15

---

Bonjour, merci de votre réponse,

En modifiant la ligne concernée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Export_CSV()     Set xlWbk = ThisWorkbook Set xlWsh = xlWbk.Feuil15 Set newWbk = Workbooks.Add Set Rng = xlWsh.Range("A" & 3 & ":" & "AZ" & 8 - 1 + NumEchéancier * 3)   Application.DisplayAlerts = False Rng.Copy newWbk.Worksheets("Feuil1").Range("A1").PasteSpecial (xlPasteAll) newWbk.SaveAs Filename:=s, FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close Application.DisplayAlerts = True   End Sub

---

Je tombe sur l'erreur 438 :

Citation:

---

Propriété ou méthode non gérée par cet objet

---

Très bonne journée, ^^