Discussion :

[EBRAG]

Bonjour à toutes et à tous.

Tout d'abord, voici mon code (je passe sur les déclarations de variables...) :

Code :

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

1
2
3
4
5
6
Set objXL = GetObject(, "Excel.Application")
    NbColS = 0
    ColA1 = objXL.Selection.Range("A1").Column
    LigneA1 = objXL.Selection.Range("A1").Row
    AddrA1 = objXL.Selection.Range("A1").Address
    AddSel = objXL.Selection.Address

en mode débogage, dans la fenêtre espion, je vois qu'il reconnait bien objXl comme étant l'application Excel (ouverte en arrière-plan avec un classeur ouvert et une plage sélectionnée)
mais en face de Selection, par exemple (ou ActiveCell ou ActiveSheet), il m'indique "Nothing"

Bizarre non,

si vous aviez une idée de où cela provient que ce serait cool !!!

par avance merci

[EBRAG]

Re Bonjour,

J'ai essayé mon appli sur un autre ordinateur équipé d'office 2013, et là, tout fonctionne correctement !

Sur 2010, je prends la précaution d'ajuster la référence Microsoft Excel 14.0 Object Library !

Mystère...

Merci pour votre attention !

[Invité]

Bonjour,

Sur 2010, je prends la précaution d'ajuster la référence Microsoft Excel 14.0 Object Library !

il est là le problème, avec GetObject in n'y a pas besoin de référence vire la de ton projet!

[EBRAG]

Merci d'essayer !

Ce que je ne comprends pas dans cette réponse, c'est que cela fonctionne correctement sur 2013 (avec la référence Microsoft Excel 15.0...)

et que si je supprime, il est des choses qui ne fonctionnent plus, comme par exemple cette déclaration

Dim oSheetEP As Excel.Worksheet

Je pense plutôt à un problème de référence dans Excel qui serait corrompue, mais j'aimerais en avoir la confirmation.

Mais merci tout de même pour le temps passé

[Invité]

Code :

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

1
2
Dim oSheetEP As Object
Set oSheetEP =creatobject("Excel.Worksheet") 'ou getobject c'est selon

[EBRAG]

Merci pour cette précision

Bonne fin de semaine