VBA Acces reconnait ExcelApplication, mais pas ses objets

Bonjour à toutes et à tous.

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

Code:

---

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 :mouarf: !!!

par avance merci

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 !:calim2:

Bonjour,

Citation:

---

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!

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é

Code:

---

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

---

Merci pour cette précision

Bonne fin de semaine

Petit détail, en reprenant comme indiqué, je me retrouve avec un soucis sur le xlUp dans l'instruction suivante :

With oSheetEP
For Each oCellEP In .Range(.Range("A1"), .Range("A65536").End(xlUp))

Qui ne passe pas sans la référence à Excel... que mettre à la place ?

Par avance merci pour cette précision

Citation:

---

Envoyé par EBRAG

Petit détail, en reprenant comme indiqué, je me retrouve avec un soucis sur le xlUp dans l'instruction suivante :

With oSheetEP
For Each oCellEP In .Range(.Range("A1"), .Range("A65536").End(xlUp))

Qui ne passe pas sans la référence à Excel... que mettre à la place ?

Par avance merci pour cette précision

---

En Late binding, il faut remplacer ces constantes par leur valeur.

Essayez -4162 à la place.

Sinon, faites une recherche sur internet avec ces mots clés.

Cdlt,

Merci pour tout et bon week-end:lol:

Pour éviter de reprendre tout ton programme tu peux implémenter un enumrateur

Code:

---

1 2 3 4

Enum ContsExcel xlUp = -4162 Znd Enum

---

et ainsi de suite pour toutes les constantes Excel utilisées par ton programme.

Pour connaitre leurs valeur tu copy ta variable; tu ouvre Excel; tu vas dans vba raccourci clavier [Alt] + [F11]; tu ouvre la fenêtre d'exécution [Ctrl] + [g]; tu écris ou tu colle ?xlUp; et tu appuis sur la touche [Enter].

Merci à vous deux,

Tout fonctionne parfaitement maintenant sans ces références !

Bonne semaine,

Joël