problème de type de variable

Bonjour,

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

Code:

---

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... :roll:

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"

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

Code:

---

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.

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

Merci