Executer une macro depuis un autre classeur

Bonjour,

Je m'excuse par avance si ma question a déjà été posée. J'ai fait une recherche sur le forum et sur google mais j'avoue :oops: je n'ai pas pu y passer trop de temps. En fait, je ne connais pas le VBA mais j'ai dit à une collègue que j'allais l'aider en regardant sur internet...

Contexte:
J'ai un fichier excel A contenant un tableau non mis en forme.
Je souhaite créer un fichier excel B qui va agir sur la mise en forme de A.
A ne doit pas contenir de macros. B contient des macros.

Réalisation:
Dans mon fichier B, j'ai créé 2 boutons:
- bouton1 auquel j'ai associé la macro1
- bouton2 auquel j'ai associé la macro2

Macro1
La macro1 ouvre le fichier A.
ça marche.

Code:

---

1 2 3 4

Sub OuvrirClasseur() Dim MonClasseur As Workbook Set MonClasseur = Workbooks.Open("C:\Users\Debdev\Desktop\FichierA.xls") End Sub

---

Macro2
La macro2 doit mettre à jour le fichier B.
ça ne marche pas. ça me met à jour le fichier A.

Code:

---

1 2 3 4

Sub MAJ() MonClasseur.Activate Columns("D:D").ColumnWidth = 4.43 End Sub

---

Comment dire à la macro2 d'agir sur le fichier A ?

Merci de votre aide.

Bonjour

Citation:

---

Envoyé par debdev

La macro2 doit mettre à jour le fichier B.
ça ne marche pas. ça me met à jour le fichier A.
Comment dire à la macro2 d'agir sur le fichier A ?

---

Alors, il faut mettre à jour A ou B? :koi:

PGZ

Oops :oops: je me suis emmelée les pinceaux. Merci de l'avoir remarqué.

La macro, située dans le fichier B, doit agir sur le fichier A.
Mon code ne marche pas car elle met à jour le fichier B.

Re,

Tu peux rendre la variable MonClasseur public (elle semble actuellemnt limitée à la procédure OuvrirClasseur.

Sinon,

Code:

---

1 2 3

Sub MAJ() Application.workbooks("FichierA.xls").Columns("D:D").ColumnWidth = 4.43 End Sub

---

Cdlt,

PGZ

Merci de ton aide. Mais je n'arrive pas à faire fonctionner le code.

Si je mets

Code:

---

1 2 3 4

Sub MAJ() Application.workbooks("FichierA.xls").Columns("D:D").ColumnWidth = 4.43 End Sub

---

Alors quand je clique sur le bouton qui appelle cette macro, ça me met:

Citation:

---

Propriété ou méthode non gérée par cet objet

---

Si je mets

Code:

---

1 2 3 4

Sub MAJ() Application.workbooks("C:\Users\Debdev\Desktop\FichierA.xls").Columns("D:D").ColumnWidth = 4.43 End Sub

---

Alors quand je clique sur le bouton qui appelle cette macro, ça me met:

Citation:

---

L'indice n'appartient pas à la sélection

---

Bonsoir
Alors il fallait spécifier la feuille
Ici en exemple MonClasseur est déclarée de porté module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit Dim MonClasseur As Workbook   Sub OuvrirClasseur()   Set MonClasseur = Workbooks.Open("C:\Users\User\Desktop\tst.xlsm") End Sub   Sub MAJ()   If Not MonClasseur Is Nothing Then MonClasseur.Worksheets(1).Columns("D:D").ColumnWidth = 40 End Sub

---

Oui :ccool:
Merci.
En ajoutant l'onglet, ça fonctionne :P

Merci pour votre aide.

Bonne nuit !

Bonsoir debdev,

J'ai essayé de reproduire ton code et voici le résultat après quelques modifs :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub MaJ() OuvrirClasseur End Sub   Sub OuvrirClasseur()   Dim MonClasseur As Workbook Set MonClasseur = Workbooks.Open("C:\ClasseurB.xlsx") Columns("D:D").ColumnWidth = 4.43   MonClasseur.Save MonClasseur.Close Set MonClasseur = Nothing     End Sub

---

Peut être que ça pourra t'aider.

Doncamelo

Désolé,

J'arrive un peu tard !!!

@doncamelo: merci pour ton aide :P. effectivement, une solution m'avait déjà été proposée mais merci à toi pour t'etre intéressé au problème.

bon week end !