lancement d'un xla

aurelien · 31 Octobre 2015

bonjour à toutes et tous,
je voudrais lancer un .xla (nommé TOTO) depuis une macro.
ce .xla est une macro qui permet de générer un fichier texte et de le mettre a dispo sur un serveur. TOTO est protégé par un mot de passe que je ne connais pas et que je ne veux pas connaitre
d'ordinaire on indique dans plusieurs cellules certaines variables (nom de fichier, date etc...) et on clique sur la macro complémentaire TOTO dans le ruban pour lancer la macro.
Nous avons automatisé la saisie des variables et je souhaiterais automatiser la saisie jusqu'au lancement de cette macro.

TOTO apparait bien dans le classeur sous forme "VBAPROJECT(TOTO.xla)" dans vba par contre quelle ligne de code me permettrait de la lancer?
j'ai essayé call TOTO ca ne marche pas j'ai 2 messages : Toto.xls est inaccessible puis toto.htm est inaccessible.
J'ai essayé application.run : erreur 1004 et la je bloque....
merci d'avance pour votre aide.

MJ13 · 31 Octobre 2015

Re : lancement d'un xla

Bonjour Aurélien

Ton xla étant chargé, as tu essayé de mettre un bouton sur la barre d'outils rapide et de l'associer à ta macro?

aurelien · 1 Novembre 2015

Re : lancement d'un xla

Bonjour
en fait un bouton existe dejà dans le ruban mais je voudrais m'affranchir de cette étape (les macros me rendent fainéant !)
comment puis je y faire référence dans ma ligne de code?
merci pour ton aide

MJ13 · 1 Novembre 2015

Re : lancement d'un xla

Re

Bon, sinon, voici un code que je viens de tester .

Code VBA:
Sub Macro1()
Application.Run "Calendrier_MJ_2013V2.xlam!Réinitialise_USF_Conges"
End Sub

aurelien · 1 Novembre 2015

Re : lancement d'un xla

bonjour,
merci mais je ne comprends pas la construction de la formule :
application.run " fichier en cours ! nom de la macro a lancer" est ce bien cela? sinon il me met erreur 1004 !

MJ13 · 1 Novembre 2015

Re : lancement d'un xla

Re

Oui, tout à fait.

Mais, il ne faut pas d'espace dans le nom de fichier, sinon on doit rajouter des quotes '.

aurelien · 1 Novembre 2015

Re : lancement d'un xla

Le fichier porte justement des espaces il s'intitule Envoi Données_vers_toto.xla je dois mettre :

Application.Run ("toto.xlsm!'Envoi Données_vers_toto'")
ps : j'ai essayé ca ne fonctionne pas.....grrrrrr

MJ13 · 1 Novembre 2015

Re : lancement d'un xla

Re

j'aurais mis le quote avant le nom du fichier et à la fin du nom de la macro.

Mais tu peux essayer aussi en supprimant le nom des espaces dans ton fichier xla.

Je me demande si ce n'est pas plus logique de ne pas mettre d'espaces dans le nom des fichiers xla, comme dans les macros d'ailleurs, on ne peut pas en mettre.

mapomme · 1 Novembre 2015

Re : lancement d'un xla

Bonjour à tous ,

Et avec ce code (le nom fichier du fichier comportant la macro à exécuter comporte des apostrophes et des espaces) ? :

VB:

Sub Test()
Const FicMacro = "D:\EXCEL\@EXCEL-DOWNLOADS\abcd\a  b  c  'd' .xlsm"
Const macro1 = "toto"
Const ap = "'"
    
  Application.Run ap & Replace(FicMacro, ap, ap & ap) & ap & "!" & macro1
End Sub

lancement d'un xla

aurelien

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

aurelien

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

aurelien

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

aurelien

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires