Discussion :

[Gülsah]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[mat955]

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.

[Gülsah]

Bonjour,

J'ai rajouté les guillemets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anasecu]

Bonjour,

, 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.

[hyperion13]

Salut
A tester et à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gülsah]

Salut
A tester et à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gülsah]

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,


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