incompatibilité ExecuteExcel4Macro et Excel 2007?

Bonjour.

Je suis à l'heure actuelle quelque peu bloqué par une récupération de cellules provenant de classeurs Excel fermés. j'ai pensé que l'utilisation d'un ExecuteExcel4Macro pourrait résoudre mes problêmes, mais il n'en est rien. Est-ce dû à Excel 2007 que j'utilise? Le document est, quant à lui, au format 2003.

Voilà la partie de mon code incriminée:

Code:

---

1 2 3 4

champ1 = "'C:\dossier quelconque\[Classeur Excel tout aussi quelconque.XLS]Feuil1'!$A$1" var1 = Application.ExecuteExcel4Macro(champ1) Cells(1, 1) = var1

---

Et je reçois, en seule guise de récompense, le message suivant:

Citation:

---

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

---

et pourtant, le fichier Excel en question existe bien, et contient du contenu dans la cellule ciblée...

Ai-je commis une erreur? ou est-ce une mise à jour d'excel qui permet de remplacer les fonctions par des messages d'erreur?:aie:

La fonction existe pourtant encore, car quant on commence à la taper une zone de liste la proposant apparaît...

Bonjour,

Essaye en remplaçant $A$1 par R1C1

Ah! on a progressé!

il me met incompatibilité de type, maintenant. Erreur 13.

mais ça semblerait être une possibilité meilleure. j'approfondis ce point!:king:

N'utilisant pas cette méthode, je ne sais pas trop ce que peux signifier cette erreur 13.

Eventuellement jette un oeil ICI pour une autre méthode, tuto concernant la lecture et l'écriture dans des classeurs fermés ;)

Et si tu mettais simplement

Code:

---

Cells(1, 1).FormulaR1C1 = "'C:\dossier quelconque\[Classeur Excel tout aussi quelconque.XLS]Feuil1'!$A$1"

---

bonsoir à tous,
ExecuteExcel4Macro permet d'exécuter des macro Excel 4, pour ce que tu veux faire, la solution d'Ouskel'n'or me semble la plus adaptée. Fais attention aux [] et aux '.

cordialement
fred

j'ai rééssayé avec cette méthode, mais cela n'a pas fonctionné.

Finalement, un de mes collègues m'a suggéré une méthode un peu moins esthétique, mais qui fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9

Dim XLFichier As Workbook Set XLFichier = Workbooks.Open("C:\dossier quelconque\[Classeur Excel tout aussi quelconque.XLS")   var1 = XLFichier.Worksheets(1).Range("A1").Value   XLFichier.Close Set XLFichier = Nothing   Cells(1, 1) = var1

---

Inconvénient: ouvre, puis referme le fichier Excel sélectionné, provoquant un clignotement de l'écran.

Avantage: ça marche.:mouarf:

Merci quand même pour vos conseils!

Pour éviter que ton écran se transforme en sapin de Noël, tu fais ceci :

Code:

---

1 2 3 4 5 6 7

Sub MaMacro() Application.ScreenUpdating = False '... 'ton code '... Application.ScreenUpdating = True End Sub

---

Salut

Code:

---

1 2 3

Argument = "'" & Dossier & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellule).Address(, , xlR1C1) var1 = Application.ExecuteExcel4Macro(Argument)

---

ou

Code:

---

1 2	ExecuteExcel4Macro("'c:\mes documents\[zozo.xls]feuil1'!R1C1")

---

Citation:

---

Envoyé par fring

Pour éviter que ton écran se transforme en sapin de Noël, tu fais ceci :

Code:

---

1 2 3 4 5 6 7

Sub MaMacro() Application.ScreenUpdating = False '... 'ton code '... Application.ScreenUpdating = True End Sub

---

---

:merci::merci::merci:

C'est génial! j'avais fait une boucle qui venait en fait récupérer une centaine de classeurs Excel différents, et j'étais déjà en train de devenir épileptique.:aie:

Merci beaucoup de cet excellent conseil!