Discussion :

[miketidy]

Bonjour,

J'ai un petit soucis, j'essaye de mettre une valeur récupérer de ma feuille Excel:
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(strFichier)
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
code_depositaire = wsExcel.Cells(2, 11)

la variable code_depositaire est déclaré en integer quand j'exécute ceci il me dit "type incompatible".
J'ai fait une test avec Isnumeric et les variables sont bien des numériques

Je ne comprend pas...

[OhMonBato]

Et dans ta feuille Excel, c'est bien un entier inferieur a 32000 et quelques (limite pour les variables de type Integer en VB6) ?
Si c'est un entier superieur essaye "as Long", si c'est un nombre decimal "as Single" ou "As Double"

[miketidy]

Non, en fait j'avais simplifier mon code mais l'erreur n'y est plus là
J'ai çà comme code :

Code :

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

1
2
3
4
5
6
For Each i In Range(Cells(i, 11).End(xlDown), Cells(i, 11).End(xlUp)).Cells
    If (rst!dep_cod <> wsExcel.Cells(i, 11)) Then
        MsgBox ("Le code dépositaire " & wsExcel.Cells(i, 11) & " ne correspond pas à CACEIS")
        Exit For
    End If
Next

I est de type variant (apperrement c'est obligé sinon la boucle ne se fait pas)
rst et la résultat d'une requête sql (qui est bien un integer).

Quand j'exécute ceci ça me met "type incompatible", c'est surement à cause de i mais je ne sais pas comment faire autrement.

[miketidy]

C'est bon j'ai corrigé, je suis passé une aure variable pour sélectionné mes cellules

Merci