[AC-2003] Remplissage d'un fichier Excel [Résolu]

[Marc_27]

Bonjour à tous,

J'ai une application où je dois remplir un fichier Excel, mais j'ai l'erreur suivant lorsque je lance la débogage: Membre de méthode ou de données introuvable, dans la partie .Cells du code.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim exapp As Excel.application
Dim exwb As Excel.Workbook
Dim exws As Excel.Sheets
Dim fiche As String
...
Set exapp = CreateObject("Excel.Application")
exapp.Visible = False
exapp.application.DisplayAlerts = False
Set exwb = exapp.workbooks.Open(fiche)
...
exws.Cells(4, 2).Value = arrAgences(i)

J'ai déjà essayé de cocher toutes les références possibles et imaginables, mais je continue à avoir l'erreur.


Est-ce que quelqu'un à des idées pour m'aider, svp?
Je vous remercie d'avance pour les aides...

[Godzestla]

Salut,

je ne vois nulle part l'initialisation de exws, qui est certainement la source de ton erreur.

Exws devrait être une feuille de ton classeur.

Tu as quoi en debug sur exws au moment de l'erreur ?

[Marc_27]

Merci de ton réponse Godzestla


En fait elle est bien là, mais j'ai oublié de la mettre dans le code...

Code :

1
2
Set exws = exwb.Sheets("Feuille1")
exws.Cells(4, 2).Value = arrAgences(i)

[Godzestla]

Qq trucs à vérifier ?

"Feuille1" existe ?
Non protégée ?
Dans le classeur actif ?
Classeur non protégé ?
Pas de gestion des erreurs.

Note que tu as masqué les alertes. les montrer temporairement peut aussi montrer certaines choses.

Montrer un code avec des trous, c'est toujours risqué car si l'erreur est dans le trou, on n'arrive à rien.

Et arrAgences(i), quelle est sa valeur ?
Etc...
Etc...

[Marc_27]

Bon, je sais pas pourquoi, mais en changeant exws par exwb.Sheets("Feuille1") l'application marche

J'ai mis donc

Code :

exwb.Sheets("Feuille1").Cells(4, 2).Value = arrAgences(i)

C'est pas un vrai résolu, mais le problème est passé.

Merci encore une fois Godzestla.