Discussion :

[Linio]

Je suis très novice en programmation VB, mais je dois faire une macro sous excel qui extrait les données d'un fichier pour créer une série de requêtes sql qui seront ensuite envoyée sur un serveur à l'aide d'un petit exécutable que je lance avec ma macro.
J'ai donc créé un bouton avec un champ pour rentrer le nom du fichier excel à parcourir.

Le code 'marche' dans la mesure où il créé bien les requêtes dans la seconde feuille de mon fichier qui éxécute la macro, là où le bat blesse, c'est qu'il plante tout de même sur:
If classeurSource.Sheets(1).Cells(i, "N") = "is Valid" Then

Avec un joli:

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

Du coup exit le reste de mes fonctions (qui ne marchent probablement pas d'ailleurs mais bon)

J'ai beau rassembler toutes mes connaissances, sur un code aussi simpliste, je n'arrive pas à voir où est le problème.

(Sachant que le problème existait déjà avant les 2 lignes de codes après le Loop).

Si vous pouviez m'éclairer d'une quelconque manière... Je vous en serais reconnaissant

Code :

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

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
 
Private Sub CommandButton1_Click()
 
  Dim classeurSource As Workbook
  Dim numI As String
  Dim typeI As String
  Dim titleI As String
  Dim baseline As String
  Set classeurSource = Workbooks.Open(ThisWorkbook.Sheets(1).Cells(1, "B"))
  MsgBox classeurSource.Sheets(1).Cells(1, "B")
  MsgBox ThisWorkbook.Sheets(1).Cells(1, "B")
 
  i = 2
  j = 1
  numI = "XXX"
  Do While numI <> ""
    If classeurSource.Sheets(1).Cells(i, "N") = "is Valid" Then
        numI = classeurSource.Sheets(1).Cells(i, "A")
        typeI = classeurSource.Sheets(1).Cells(i, "C")
        titleI = classeurSource.Sheets(1).Cells(i, "J")
        baseline = classeurSource.Sheets(1).Cells(i, "Y")
        ThisWorkbook.Sheets(2).Cells(j, "A") = "INSERT INTO table(Customer_ref,AWP_ref,Summary,Category) VALUES ('" & numI & "' , '" & typeI & "' , '" & titleI & "' , '" & baseline & "');"
        j = j + 1
    End If
    i = i + 1
  Loop
 
  Set SaveObj = CreateObject("Excel.Application")
  Set SaveFile = SaveObj.Workbooks.Open("C:\test\test.prn")
 
 
End Sub

[wilfried_42]

Bonjour linio

Cells demande des parametrs numeriques

Cells(ligne,colonne) ---> ligne 1, colonne "B" ----> Cells(1,2)

bonne journée

[Linio]

Comme spécifié mon programme tourne plusieurs tours de boucle avant de ne plus fonctionner (A vrai dire, il traite toute la liste et semble planter à la fin de celle ci quand il atteint les premières cases vides)

J'ai essayé donc ta modification, mais ça n'est pas ça.

J'ai apparemment trouvé mon problème.

Il ne doit pas aimer les lignes vides, notamment les affectations de champs vides à des variables.

J'ai donc transformé ma condition:
Do While classeurSource.Sheets(1).Cells(i, "A") <> ""

Et ça marche. Donc désolé du dérangement, mais j'étais un peu sur le speed (je le suis encore mais sur d'autres problèmes )