Discussion :

[DUCKY_]

Bonjour à tous,

Bon voilà plusieurs jours que je cherche sur le web (ce forum ci, stackoverflow, commentcamarche ...) mais rien n'y fait ...

J'utilise depuis des lustres un bout de code pour compter le nombre de lignes non vides ...

L'idée est simple, je reçois des fichiers EXCEL tous les mois de plusieurs pays. Le fichier est préformaté et donc le même pour chaque pays ...

Ce fichier EXCEL est ensuite importé dans ma base ACCESS ... Tout fonctionne pour tous les pays mais il se trouve que sur UN fichier (pourtant j'ai vérifié il a le bon format, le bon nom avec les onglets etc ...) et sur ce fichier bien spécifique j'ai l'erreur

"La Méthode "Range" de l'objet "_Application a échoué" qui tombe sur le code suivant ...

Code :

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

varnbrelignes_bos = appXL.Range("BOS!M21").End(xlDown).Row

Je fais la même chose pour un autre onglet ça fonctionne ... sur les autres fichiers ça fonctionne sur les deux onglets ...

Franchement je ne comprend vraiment pas ... J'ai testé avec la ligne suivante :

Code :

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

varnbrelignes_bos = appXL.Range("BOS!M21")

l'erreur tombe encore ... en gros il semble que ça vienne vraiment de la méthode Range ... Et juste sur ce fichier et même plus précisément cet onglet ... Qui pourtant je le répète, semble avoir le bon format etc ...

Une idée ?

Merci à tous,

[LedZeppII]

Bonjour,

Se pourrait-il qu'il y ait un caractère non visible dans le nom de l'onglet ?
Ou un zéro à la place d'une lettre o ?

A+

[Gado2600]

Bonjour,
Je vais peut-être dire une connerie mais euh... les coordonnées des cases Excel en VBA, ce n'est pas que des nombres ?
Je suis d'accord que les colonnes sous Excel soient des lettres mais me semble qu'il faut les convertir en donnée numérique dans le Vba access.

[DUCKY_]

Hello,

Merci de vos retour

- J'ai tenté de modifier moi même le nom de l'onglet au cas où il comporte un caractère spécial ou autre ... Je l'ai donc renommé avec le bon nom et le problème persiste

- Concernant les colonnes en lettre à convertir en numérique je n'ai jamais vu ça et comme précisé ce bout précis de code fonctionne parfaitement pour tous les autres fichiers excels renvoyés par mes filiales.

D'autres pistes ?

merci encore,

Cdlt,

[LedZeppII]

Bonjour,

La seule autre piste est cette remarque que l'on peut lire dans l'aide en ligne, au sujet de la propriété Application.Range.

Utilisée sans qualificateur d'objet, cette propriété est un raccourci de ActiveSheet.Range (elle renvoie une plage de la feuille active ; si la feuille active n'est pas une feuille de calcul, la propriété échoue).

Sinon, je tenterai une approche différente.

Code :

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

1
2
3
Dim appXL As Excel.Application
Dim oWbk As Excel.Workbook
Dim oSht As Excel.Worksheet

Ouverture du classeur:

Code :

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

Set oWbk = appXL.Workbooks.Open("chemin complet vers classeur")

Référencement de la feuille:

Code :

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

Set oSht = oWbk.Worksheets("BOS")

Maintenant je peux utiliser oSht en lieu et place de appXL:

Code :

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

varnbrelignes_bos = oSht.Range("M21").End(xlDown).Row

oSht.Range est, d'un point de vue syntaxe, plus explicite que appXL.Range.

A+

[DUCKY_]

Hello,

Merci beaucoup c'est résolu de cette manière !

Clairement, utiliser les bouts du codes qu'on a fait lors de ses premiers pas de dev c'est pas le top ! C'était vraiment moche de tout concaténer comme ça.

Pourtant hier j'avais bien testé le coup de décomposer en passant par une feuille puis de faire ça ... j'avais du faire une bourde quelque part ...

Encore merci !

Bonne journée