Discussion :

[kressano]

Bonjour a tous,

J'essaye depuis plusieurs jours d'utiliser la fonction ExecuteExcel4Macro afin d'extraire des données dans des fichiers sources, pour les copier dans un fichier cible afin de faire une synthese.

Est ce que quelqu'un pourrais m'expliquer comment elle doit être utilisée ?
Dans le même temps, pouvez vous m'expliquer le paramètre Address de Range ???

Code :

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

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

J'ai beau me tourner le cerveau dans tout les sens, j'ai lu et tenté d'appliquer des codes dans tout les sens, mais j'ai obstinément le code erreur 2023 et un beau dièse dans ma cellule de destination.

Merci de votre soutien, je voudrais réellement éviter de me taper 720 fichiers * -pleins de copiepasta dans tout les sens-... (((

[kressano]

Ok, bon, je viens de découvrir comment on utilise Adress. Je me bat toujours avec la fonction ExecuteExcel4Macro.

Ca marche toujours pas, le mode pas à pas ne me donne pas grand chose, je passe bien mes paramètres a la fonction mais je n'ai aucun résultat.

[kiki29]

Salut, par exemple Mise en page avec les macros XL4
Pour lire des valeurs d'un fichier fermé Excel
A voir également : ici

Code :

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

1
2
3
4
5
6
7
8
9
Function ExtraireValeur(ByVal Dossier As String, ByVal Fichier As String, ByVal Feuille As String, ByVal Cellule As String)
Dim Argument As String
    Dossier = Replace(Dossier, "'", "''")
    Fichier = Replace(Fichier, "'", "''")
    Feuille = Replace(Feuille, "'", "''")
 
    Argument = "'" & Dossier & "[" & Fichier & "]" & Feuille & "'!" & Range(Cellule).Address(, , xlR1C1)
    ExtraireValeur = ExecuteExcel4Macro(Argument)
End Function

[kressano]

Bonjour Kiki,

J'ai regardé les différents tuto proposés sur le site, j'ai aussi essayé d'utiliser ta solution proposée mais rien a faire. Toujours bloqué. J'ai fais des tests a partir d'autres fichiers tout simple, sans succès.

Maintenant c'est certain que c'est dans le passage des paramètres que ca déconne. Je vais faire des tests en amont et je te reviens.

[kressano]

Salutations kiki,

Je viens de tester mes procedures de long en large et en travers, tout fonctionne sur des fichiers tout simples, voici mes tests :
J'ai essayé avec des nom de fichiers très long, aucune incidence.
Testé avec des extensions xls, xlsm, aucun problème.
J'ai testé avec des formules dans le fichier source, bidouilles avec des dates, des sommes, aucun problème.
De même avec des cellules fusionnées, tout est bon.

Je ne m'explique toujours pas pourquoi mes fichiers sources (les 720 vrais fichiers cette fois ci), j'obtiens l'erreur REF, erreur 2023.

• Se pourrait il que quelque chose cloche sans que je comprenne quoi ?
• Y a-t-il des restrictions dans l'usage de Excel4macro ?

J'ai aussi testé ta proposition, je comprends ce que tu fais avec Replace, mais cela me semble superflue. A moins que je me trompe ?

Merci d'avance

[kiki29]

Salut, cette fonction avait été adaptée pour des feuilles/fichiers comportant des apostrophes dans leur nom d'ou le Replace. Par contre sans échantillon difficile de voir qqch.