XL 2016 Echec de la methode Sheets de l objet Global

[Tresor1]

bonjour a tous ,

je ne m y connais pas trop en Excel VBA c est pourquoi je sollicite votre aide. j ai essayer de lire les sujet dejatraiter mais il ya aucun qui est similaire au mien. en effet j essaie d Excecuter un code mais il en ressort toujours une erreur du genre "Echec de la methode Sheets de l objet Global" je ne sais comment m y prendre pour resoudre le probleme.merci deja a ceux qui s y interesseront. voici une partie du code.

Set ExcelWkBk = xlApp.Workbooks.Open(PathName & FileName)
Excel.Application.WindowState = xlMinimized
With ExcelWkBk
If Sheets("externe Dokumente").FilterMode Then Sheets("externe Dokumente").ShowAllData
Sheets("externe Dokumente").Outline.ShowLevels RowLevels:=2

le probleme est au niveau de "if Sheets ......Then Sheets".

 

[Dranreb]

Bonjour.
Si vous ne mettez pas un point devant Sheets, il considère la collection Sheets du classeur actif et non celles de ExcelWkBk.
Mais c'est quoi ce xlApp au début ? Vous travaillez avec plusieurs exemplaires d'objets Application ???

 

[Tresor1]

merci deja pour la reponse je vais essayer et voir ci ca marche. oui je travaille avec plusieurs objets d application

 

[Tresor1]

Merci Dranreb ca fonctionne parfaitement.

 

[Tresor1]

Bonjour a tous;

je reviens encore avec un autre probleme sur le meme code. la totalite du code s excecute parfaitement mais il ne lis pas ce que je recherche.ceci dit il ya pas d erreur lors de l excecution mais lorsque je parcours le code pas a pas il ya une erreur a ce niveau "Set xlApp = Application.CreateObject("Excel.Application")" je ne sais pas si je l ai mal declaré ou pas. je ne peux malheuresement pas poster tout le code ici.

 

[Dranreb]

Bonjour.
Ça ne me viendrait pas à l'idée d'essayer de créer une autre application Excel dans une macro ayant Excel comme application hôte.
Essayez en travaillant toujours simplement avec Application.

 

[Tresor1]

bonjour
le code fonctionne normalement malgre le fait qu une autre application Excel a ete creer . maintenant il ya un probleme d Automatisation au meme endroit
Set ExcelWkBk = xlApp.Workbooks.Open(PathName & FileName)
Excel.Application.WindowState = xlMinimized
With ExcelWkBk
If Sheets("externe Dokumente").FilterMode Then Sheets("externe Dokumente").ShowAllData
Sheets("externe Dokumente").Outline.ShowLevels RowLevels:=2

le probleme est au niveau de "if Sheets ......Then Sheets"


ce code va me rendre fole

 

[Dranreb]

Retour au message 1, quoi …
Je me désabonne de cette discussion parce que vous ne voulez en faire qu'à votre tête.
Je dirais donc pour la dernière fois que d'une part ça ne sert absolument à rien de travailler avec plusieurs exemplaires de l'application Excel, et que d'autre part une instruction With ne s'applique qu'aux expressions commençant par un point.

 

[Tresor1]

Retour au message 1, quoi …
Je me désabonne de cette discussion parce que vous ne voulez en faire qu'à votre tête.
Je dirais donc pour la dernière fois que d'une part ça ne sert absolument à rien de travailler avec plusieurs exemplaires de l'application Excel, et que d'autre part une instruction With ne s'applique qu'aux expressions commençant par un point.

bonjour Danreb,

je n essaie de faire a ma tete c est juste que le meme code marche parfaitement chez ma collegue et chez moi non. pour le l utilisation du With je l ai appliquer comme tu me la dis .j ai juste recopier le code du haut et recoler sans corriger . je vais essayer de travailler avec l Excel de la macro .merci a toi