Salut,

J'ai un petite procédure qui m'ouvre un excel en lecture. Et une feuille précise par son Nom (inputbox --> NomFeuille)
J'ai une boucle FOR NEXT avec une variable COLONNE de 4 à 12.

J'arrive en COLONNE=8 (l'espion me le confirme)
je lance un CALL TESTCOLONNE (NomFeuille, COLONNE) (mis ci-dessous)

en débogage, il arrive bien au case "8"
En fenêtre ESPION, je vois pour COMPTE "hors du contexte"
et il m'ignore la procédure et passe au reste du code.

J'ai vérifié dans mon fichier Excel, il y a bien une information dans cette colonne. Et j'ai l'impression que je ne peux pas mettre plusieurs intructions sous chaque case.

Auriez-vous une idée du pourquoi, j'obtiens "hors du contexte" ?

Merci


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
33
34
35
36
37
38
39
Select Case COLONNE
        Case "4"              'Si Colonne non vide est 4ème
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 4).Value
            Print #1, COMPTE
        Case "5"
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 5).Value
            Print #1, COMPTE
        Case "6"
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 6).Value
            Print #1, COMPTE
        Case "7"
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 7).Value
            Print #1, COMPTE
        Case "8"
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 8).Value
            'Print #1, COMPTE
        Case "9"
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 9).Value
            Print #1, COMPTE
        Case "10"
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 10).Value
            Print #1, COMPTE
        Case "11"
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 11).Value
            Print #1, COMPTE
        Case "12"
            COMPTE = objWorkBook.Worksheets(NomFeuille).Cells(7, 5).Value
            Print #1, COMPTE
        Case Else
                    MsgBox "Erreur dans l'analyse des comptes et montants par colonne." & vbCrLf & _
                    "Veuillez vérifier le fichier de sortie de Caisse" & vbCrLf & _
                    vbCrLf & _
                    " Vérifiez visuellement qu'il n'y ait pas" & vbCrLf & _
                    " une anomalie de saisie dans l'une des colonnes"
                    objXL.Quit  ' Arrêt anormal donc on libère Excel ds les processus en cours
                    Set objXL = Nothing ' libére la référence.
                    Exit Sub
    MsgBox COMPTE
    End Select