Executer une macro d'un autre classeur excel

Executer une macro d'un autre classeur excel - VB/VBA/VBS - Programmation

Marsh Posté le 17-10-2002 à 10:03:26    


voila j'aimerai executer une macro d'un autre classeur excel mais je c pas comment il faut faire pour l'appeller.
 
Pour l'instant je clik sur un bouton du classeur1 ki execute une macro et dans cette macro j'ouvre un autre classeur (classeur2) et je voudrai lancer une macro ki appartient a ce classeur2...........;
 
merci


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 10:03:26   

Reply

Marsh Posté le 17-10-2002 à 10:15:42    

pleazzzzzzzzzzzzzzzzzzzzzzz c urgent !!!!!!!!!!


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 10:24:23    

Sub AutomationPowerPointExcel()
Dim AppExcel As Excel.Application
 
Set AppExcel = New Excel.Application
 
AppExcel.Visible = True
 
AppExcel.Workbooks.Open "C:\Chemin\NomClasseur.xls"
 
AppExcel.Run "NomClasseur.xls!Message"
 
Set AppExcel = Nothing
 
End Sub
 


Trouvé sur http://groups.google.fr/groups?hl= [...] 6rnum%3D12
 
avec recherche http://groups.google.fr/groups?q=E [...] rt=10&sa=N
 
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 17-10-2002 à 10:53:31    

ca marche pas tro, jprefereré kelkun ki c comment faire et ki la deja fé, ca doit pas etre bien compliké suffit d'avoir la bonne syntaxe et d'etre deja tombé dans les vieux piege a la con ki nous font tjs perdre un temps fou !!!!!!!!!!!!!!
 
 
merci qd meme  
 
 
help me !!!!!!!!!!!


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 10:57:19    

Pour appeler ta macro tu dois faire un truc du genre
NomClasseur.xls!NomMacro
 
Et le code VBA doit marcher je pense... même si je l'ai pas testé...  :D


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 17-10-2002 à 10:59:21    

ben c ce que j'essaye depuis tout a l'heure
 
nomduclasseur.xls!Module1.macro
nomduclasseur.xls!macro
...
...
 
 
 
marche pôôôôôôô
 


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 11:01:01    

voila ce que je met
 
Application.Run ("LISTE DES PROJETS CTM1.xls!Module1.MAJFdP" )


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 11:05:54    

xtoune a écrit a écrit :

ben c ce que j'essaye depuis tout a l'heure
 
nomduclasseur.xls!Module1.macro
nomduclasseur.xls!macro
...
...
 
 
 
marche pôôôôôôô
 
 




Tu rajoute un boutton macro
tu fous nom.xls!macro
et voilou
Tested
 
Pour que ça marche il fo que le document soit ouvert


Message édité par [SDF]Poire le 17-10-2002 à 11:06:51

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 17-10-2002 à 11:14:56    

oui je c ca, j'avé deja testé. Mais moi il faut kune macro soit excuté depuis le classeur d'origine justement pour ( entre autre ) verifier que le deuxieme classeur n'est pas deja utilisé par kulkun d'autre ( il ne faut pas ecraser les données, ou réouvrir le classeur sans sauvegarder ce que la personne été en train de faire)
 
donc je ve faire la meme chose que attcher une macro a un bouton mais le lancé depuis une macro


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 11:43:20    

Application.Workbooks.Open "C:\Chemin\NomClasseur.xls"  
Application.Run "NomClasseur.xls!Message"


 
non ?


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 17-10-2002 à 11:43:20   

Reply

Marsh Posté le 17-10-2002 à 11:44:24    

ben non  
???????????????????????????????????????????????
 
fé ch..


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 12:03:24    

pourtant ca devrait etre ca


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 13:45:12    

p...... de sa .....r....


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 16:19:50    

bon !!!!!!!
 
voila je suis viré si demain soir sa marche pas .............................................................................................  .        .          .                      .                             .                                                                                                                   .. .... pfffffuuuuuuuu merci a ceux ki ont essayé de m'aider ..
 
BYe


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 16:31:23    

Désolé...
G luté pendant 2j pour un truc du même genre...
fo pas oublier que C du krosoft
 
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 17-10-2002 à 17:11:35    

bah c pas grave jva allé travailler au mac do ...............


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 17:15:37    

:sweat:  
Tu bosses où ? A quel nivo ?


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 17-10-2002 à 18:01:14    

je suis en ecole d'ingenieur en 3 ieme anné par aprentissage. Mon entreprise est une SSII et la je travail pour un bureau d'etude de piece automobile.  
 
Sinon nivo prog j'ai commencé par le qbasic puis java pdt 2 ans en DUT( j'aime assez ce langage) et pi un pe de VB ( j'aime pôôôô, c pas assez strict comparais au java).
 
et je c pas si je pousse du coté de java ou si j'essaye le C# ou l'asp
 
voili voilou et toi tu fé koi ??


---------------
heu...
Reply

Marsh Posté le 17-10-2002 à 18:42:39    

Moi suis en alternace pour diplome de chargé de projet (Bac + 4)
ds une société de service


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 18-10-2002 à 08:59:26    

ben c cool !!
 
mais ca m'aide pas pour mon pb a 0.3 euro


---------------
heu...
Reply

Marsh Posté le 18-10-2002 à 10:37:48    

ou a 2 fr pour les anciens


---------------
heu...
Reply

Marsh Posté le 18-10-2002 à 10:38:06    

ou a 200 fr pour les tres anciens


---------------
heu...
Reply

Marsh Posté le 18-10-2002 à 10:47:14    

Déslé mais fo que je bosse aussi...
regarde ds les groupes google...
 
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 18-10-2002 à 11:07:31    

Salut, voila j'ai eut ce probleme, j'ai cherche et j'ai trouve dans l'aide de Excel, je te livre la macro que j'ai réalisé.
 
Le principe :  
un fichier index.xls qui contient une liste de fichiers de statistiques a mettre a jour.
A cote du nom du fichier la macro qu'il contient et que je dois lancer.
 
Donc je lance mon fichier excel et ensuite j'appelle la macro dudit fichier.
 
Ca marche trés bien, je fais des mises a jours toutes les semaines.

Code :
  1. OffsetMacro = 2
  2.     OffsetImpression = 2
  3.     MyDebug = 0
  4.     Ligne_Depart = 6
  5.     Ligne_Arrive = 22
  6.     Colonne = 3 'soit la lettre C
  7.     Rep_Source = "r:\stats\info\"
  8.     Rep_Dest = "s:\service\trans400\info\"
  9.     'Worksheets(1).Activate
  10.     For Ligne = Ligne_Depart To Ligne_Arrive
  11.         If Worksheets(1).Cells(Ligne, Colonne).Value <> "" Then
  12.             If MyDebug <> 0 Then MsgBox Cells(Ligne, Colonne).Value
  13.             'ouverture du fichier
  14.             Fichier_Source = Cells(Ligne, Colonne).Value
  15.             'récupération du nom de la macro dans le fichier index
  16.             NomMacro = Cells(Ligne, Colonne + OffsetMacro)
  17.             'ouverture du fichier -> il devient le classeur actif
  18.             Workbooks.Open Filename:=Rep_Source & Fichier_Source
  19.             If MyDebug <> 0 Then MsgBox "ouverture du fichier " & Fichier_Source
  20.             'si une macro est spécifique à ce classeur
  21.             If NomMacro <> "" Then
  22.             'je l'appelle
  23.                 If MyDebug <> 0 Then MsgBox "appel de macro " & NomMacro
  24.                 ControleImpression = Cells(Ligne, Colonne + OffsetMacro)
  25.                 'ControleImpression = 1
  26.                 'MsgBox ControleImpression
  27.                 If (ControleImpression = 1) Then
  28.                     If MyDebug <> 0 Then MsgBox "Appel avec impression"
  29.                     If MyDebug = 0 Then Application.Run Fichier_Source & "!" & NomMacro, impression
  30.                 Else
  31.                     If MyDebug <> 0 Then MsgBox "Appel sans impression"
  32.                              ******c'est ici que ça se passe*********************
  33.                     If MyDebug = 0 Then Application.Run Fichier_Source & "!" & NomMacro, vbNo
  34.                 End If
  35.             Else 'sinon je fais mon traitement par défaut
  36.                 'activer le classeur que je viens d'ouvrir
  37. ...
  38. ...


 
les reste de la macro on s'en tape le coquillard avecd une pelle à gateaux  :o  
En esperant que cela puisse t'aider  ;)


Message édité par ZeT le 18-10-2002 à 11:10:37

---------------
Membre du mouvement [:mossieurpropre] L'un dans l'autre, vaut mieux être l'un !
Reply

Marsh Posté le 18-10-2002 à 12:10:50    


alors la j'hallucine grave !!!!
 
now sa marche pourtant je fé comme hier :
 
Application.Run "destination.xls!test"
 
jva manger et je regarderai si ca marche avec les vrai fichier et pas kavec les fichier de test  :--)))
 
 
MERCI les GARS !!!
 
.......................jva garder mon job lol
 


---------------
heu...
Reply

Marsh Posté le 18-10-2002 à 12:11:52    

deja moi je mettais des parenthese on dirai ..................


---------------
heu...
Reply

Marsh Posté le 18-10-2002 à 13:54:51    

non en fait j'en mettais pas
 


---------------
heu...
Reply

Marsh Posté le 18-10-2002 à 14:45:03    

le pb c paske le nom du fichier ou se trouvait la macro que je voulais lancer comporté des espaces.
 
c bizarre, mais on dirai bien que c ca
 
voili voilou !!
merci


---------------
heu...
Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed