XL 2016 Echec de la methode Sheets de l objet Global

Dranreb

XLDnaute Barbatruc

• 18 Septembre 2019

• #2

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 ???

 

Vote positif 0 Vote négatif

T

Tresor1

XLDnaute Nouveau

• 18 Septembre 2019

• #3

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

 

Vote positif 0 Vote négatif

T

Tresor1

XLDnaute Nouveau

• 18 Septembre 2019

• #4

Merci Dranreb ca fonctionne parfaitement.

 

Vote positif 0 Vote négatif

T

Tresor1

XLDnaute Nouveau

• 19 Septembre 2019

• #5

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Septembre 2019

• #6

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.

 

Vote positif 0 Vote négatif

T

Tresor1

XLDnaute Nouveau

• 23 Septembre 2019

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Septembre 2019

• #8

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.

 

Vote positif 0 Vote négatif

T

Tresor1

XLDnaute Nouveau

• 24 Septembre 2019

• #9

Dranreb à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif