Probleme de lecture de fichier Excel sous Access

Bonjour.

J'ai un problème lors de l'importation d'un fichier Excel sous Access.

En effet j'ai une fonction qui parcour chaque ligne du fichier. Pour chaque ligne la fonction récupère la valeur de la cellule à la colonne spécifier. Ensuite elle récupère la valeur de la cellule à la colonne spécifier +2.

Voici le code de récupération de la donné :

Code:

---

INT_Id_Code = CInt(.Cells(INT_ligne_defil, INT_col_code_commer).Value) 'BUG => renvoie toujours 0

---

Lors de la lecture de ma première cellule cela me renvoie toujours 0 alors que je suis sur qu'il y a une autre valeur contenu dedans. :aie:

J'ai la même ligne de code pour récupérer la valeur de la cellule deux colonnes plus loin et cette fois ça fonctionne très bien et me renvois la bonne valeur. 8O

J'avoue ne pas comprendre. Cela viendrait-il de la cellule?

P.S : Ce n'est pas moi qui ai fait ce fichier Excel
P.S2 : J'enlève tous les filstres à l'ouverture du fichier Excel
P.S3 : j'ai vérifié en mode pas à pas que je suis bien sur la bonne celulle.

Merci d'avance pour vos réponses :king:

lut,
le .cells il est attaché à quel With stp ?

Bonjour.

Voici le With qui attache la cellule :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set OBJ_Appli_Excel = CreateObject("Excel.Application") 'enlève les messages d'alertes OBJ_Appli_Excel.DisplayAlerts = False   Set OBJ_Classeur_Excel = OBJ_Appli_Excel.Workbooks.Open(Filename:=VAR_chemin_fichier)   On Error Resume Next OBJ_Classeur_Excel.Sheets("RECAP").Select   With OBJ_Classeur_Excel.ActiveSheet

---

Merci de ton aide :king:

oki, chez moi ca fonctionne, mais les valeurs INT_ligne_defil et INT_col_code_commer peuvent opser problème. Tu es sur la bonne cellule, de la bonne feuille ? essaie de voir un

Code:

---

debug.print .Cells(INT_ligne_defil, INT_col_code_commer).Value

---

Et bin merci de l'idée. Du coup il en ressort que quand je met Cint(...) ça marche pas et que sinon la valeur s'affiche bien dans le Debug.

Par contre toujours rien du coté de l'affectation de ma variable.

MERCI :king:

et à la place du Cint, un Clng ? peut-être un dépassement des bornes ?
un passage par une variable intermédiaire sinon ?

Code:

---

1 2 3

dim a a = .Cells(INT_ligne_defil, INT_col_code_commer).Value INT_Id_Code = Cint(a)

---

Bonjour.

Alors deux choses :

-D'abord MERCI pour ton aide :king:.
-Ensuite MERCI de tes remarques qui m'ont permise de trouver le problème.

Et juste pour information, le problème venais du fait que la valeur récupéré dépassait la limite maximal du type de ma variable. Ma variable étant un "Integer" la limite est de 32767. J'ai donc passé le type de ma variable en "Long" et tout fonctionne super bien.

MERCI :king: