Discussion :

[tribaleur]

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 :

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

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.

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.

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

[Jean-Philippe André]

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

[tribaleur]

Bonjour.

Voici le With qui attache la cellule :

Code :

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

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

[Jean-Philippe André]

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 :

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

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

[tribaleur]

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

[Jean-Philippe André]

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

Code :

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

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

[tribaleur]

Bonjour.

Alors deux choses :

-D'abord MERCI pour ton aide .
-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