IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Fonction ExecuteExcel4Macro comment l'utiliser [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Août 2004
    Messages
    53
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2004
    Messages : 53
    Par défaut Fonction ExecuteExcel4Macro comment l'utiliser
    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-... (((

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Août 2004
    Messages
    53
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2004
    Messages : 53
    Par défaut
    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.

  3. #3
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    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

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Août 2004
    Messages
    53
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2004
    Messages : 53
    Par défaut
    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.

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Août 2004
    Messages
    53
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2004
    Messages : 53
    Par défaut
    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

  6. #6
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    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.
    Images attachées Images attachées  

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 6
    Dernier message: 19/02/2009, 12h02
  2. [Optimisation] Comment bien utiliser le StringBuffer?
    Par mathieu dans le forum Langage
    Réponses: 4
    Dernier message: 17/05/2004, 14h22
  3. Comment bien utiliser ce forum ?
    Par Alcatîz dans le forum Pascal
    Réponses: 0
    Dernier message: 21/04/2004, 16h37
  4. [scrapbook] comment l'utiliser ?
    Par Didier 69 dans le forum Eclipse Java
    Réponses: 4
    Dernier message: 16/04/2004, 17h28
  5. [INDY] -> IdIdentServer comment l'utiliser ?
    Par MaTHieU_ dans le forum C++Builder
    Réponses: 9
    Dernier message: 06/08/2003, 16h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo