Erreur d'exécution '5' : Argument ou Appel de procédure incorrect

Version imprimable

Bonjour,

je débute en vba et doit réaliser un script me permettant de :
- créer un nouveau fichier xls
- l' ouvrir
- ouvrir un fichier csv avec excel
- récupérer des données du fichier csv afin de les copier dans le fichier xls.

Des postes similaires sont sur le forum mais aucun ne répond à mon bogue.

Voici ce que j'ai fait pour l'instant :
code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Sub OUT_DRCOM_TO_BNC()
 
'definition variable
 
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim num_opt As String
Dim DernLigne As Long
Dim i As Integer
Dim j As Integer
 
 
'On créer l'objet Excel
 Set xlApp = CreateObject("Excel.Application")
 
'On défini le nombre d'onglets
 xlApp.SheetsInNewWorkbook = 1
 
'On ajoute un classeur
 Set xlBook = xlApp.Workbooks.Add
 
'On donne un nom au classeur
 xlBook.SaveAs ("C:\Users\jmoniot\Desktop\monfichier1.xls")
 
 'On rend le classeur visible
 xlApp.Visible = True
 
 'On créer l'objet onglet dans le nouveau classeur créé
 Set xlSheet = xlBook.Worksheets(1)
 
 'On affecte un nom a l'onglets
 xlSheet.Name = 1
 
'On remet la propriété de l'application à 3 (par défaut)
 xlApp.SheetsInNewWorkbook = 3
 
'On définit le numéro $$$ qui ne change pas
$$$ = "confid_number"
 
 
 
'Définition du titre des colonnes
xlSheet.Range("A1").Value = "Identité"
xlSheet.Range("B1").Value = "Nom"
xlSheet.Range("C1").Value = "Prénom"
xlSheet.Range("D1").Value = "CLEBDF"
xlSheet.Range("E1").Value = "Ridet"
xlSheet.Range("F1").Value = "AD1"
xlSheet.Range("G1").Value = "AD2"
xlSheet.Range("H1").Value = "AD3"
xlSheet.Range("I1").Value = "AD4"
xlSheet.Range("J1").Value = "1er compte ouvert"
xlSheet.Range("K1").Value = "2eme compte ouvert"
xlSheet.Range("L1").Value = "3eme compte ouvert"
xlSheet.Columns("A:L").ColumnWidth = 20
 
Workbooks.Open Filename:="C:\Users\jmoniot\Desktop\aaa\ZProjet\monfichier.csv", Local:=True
 
DernRow = Range("B" & Rows.Count).End(xlUp).Row
MsgBox (DernRow)
Avant_dern_row = DernRow - 1
MsgBox (Avant_dern_row)
 
'Workbooks("monfichier.csv").Sheets(1).Range ("B2:" & Cells(Rows.Count, "B").End(xlUp).Row - 1)
'Workbooks("monfichier1.xls").Sheets(1).Rows ("2:65536")
 
For i = 2 To Avant_dern_row
    Workbooks("monfichier1.xls").Sheets(1).Cells("A" & i).Value = Workbooks("monfichier.csv").Sheets(1).Cells("B" & i).Value
Next
 
End Sub

Le débogueur m'indique erreur d'exécution 5 sur cette ligne :

Code:

Workbooks("monfichier1.xls").Sheets(1).Cells("A" & i).Value = Workbooks("monfichier.csv").Sheets(1).Cells("B" & i).Value

ça fait 1 jour que je bloque dessus :x .

Merci d'avance pour votre aide qui sera sans aucun doute, d'une aide précieuse.
Cordialement, Jordan.

Citation:

Envoyé par jordandenc

je débute en vba et doit réaliser un script me permettant de :
- créer un nouveau fichier xls
- l' ouvrir
- ouvrir un fichier csv avec excel
- récupérer des données du fichier csv afin de les copier dans le fichier xls.

Il y a beaucoup plus simple comme processus pour arriver au même résultat :
Tu ouvres le fichiers CVS et tu l'enregistres en Excel.
Code:

1 2 Set xlBook = Workbooks.Open Filename:="C:\Users\jmoniot\Desktop\aaa\ZProjet\monfichier.csv", Local:=True xlBook.SaveAs ("C:\Users\jmoniot\Desktop\monfichier1.xls",xlOpenXMLWorkbook)
Petit conseil en passant : évite d'utiliser des noms de variables commençant par "xl" étant donné que c'est le préfixe utilisé par les constantes d'Excel. Il y a des risque d'ambiguïté.

Citation:

Le débogueur m'indique erreur d'exécution 5 sur cette ligne :
Workbooks("monfichier1.xls").Sheets(1).Cells("A" & i).Value = Workbooks("monfichier.csv").Sheets(1).Cells("B" & i).Value

A priori pas d'erreur de syntaxe.
Décomposes ta ligne en éléments simples pour les vérifier les uns après les autres, à commencer par les variables.
Code:

1 2 3 4 5 6 7 Debug.Print i Debug.Print Workbooks("monfichier1.xls").Name,Workbooks("monfichier1.xls").Count Debug.Print Workbooks("monfichier1.csv").Name,Workbooks("monfichier1.csv").Count Debug.Print Workbooks("monfichier1.xls").Sheets(1).Name Debug.Print Workbooks("monfichier.csv").Sheets(1).Name Debug.Print Workbooks("monfichier1.xls").Sheets(1).Cells("A" & i).Value Debug.Print Workbooks("monfichier.csv").Sheets(1).Cells("B" & i).Value
Les Debug.Print sont plus pratiques que les MsgBox pour obtenir des infos en phase de débugage.

Cela dit, le For to n'est pas la meilleure solution pour faire ça. Il aurait été plus simple de faire une copie.

Code:

Workbooks("monfichier.csv").Sheets(1).Cells("B2:B" & Avant_dern_row).Copy destination:=Workbooks("monfichier1.xls").Sheets(1).Cells("A2")

Bonjour,

Je crois que l'erreur vient de là:
Code:

1 2 'On créer l'objet Excel Set xlApp = CreateObject("Excel.Application")
Pourquoi créer une nouvelle instance d'Excel?

En faisant cela, ton fichier xls ne fait pas partie de la collection des Workbooks de l'instance où se trouve le code.

Supprime cette ligne et celles-là:
Code:

1 2 3 4 5 6 7 8 9 10 Dim xlApp As Excel.Application 'On défini le nombre d'onglets xlApp.SheetsInNewWorkbook = 1 'On rend le classeur visible xlApp.Visible = True 'On remet la propriété de l'application à 3 (par défaut) xlApp.SheetsInNewWorkbook = 3
Et modifie
Code:

1 2 'On ajoute un classeur Set xlBook = xlApp.Workbooks.Add
en

Code:

Set xlBook = Workbooks.Add