Lancer une macro existante

Bonjour,

J'ai une macro qui fonctionne bien dans un fichier excel elle se trouve dans mon ClasseurA, cette macro récupère 44 champs du fichier trameB de A1 :AT1 puis les transfert vers n'importe fichier à condition d'avoir ClasseurA ouvert :(


Le pb : Pour faire fonctionner cela je suis obligé d'avoir le classeur A ouvert si non rien retrouve pas la macro dans éxecuter macro .


1-/ je ne retrouve pas la macro pour faire fonctionner cela
2-/ Je souhaite pouvoir avec n'importe quelle fichier importer ou autre lancer cette macro sans avoir à chaque fois le classeur A car s'il est fermer je retrouve pas la macro dans éxecuter macro

Merci pour votre aide

Bonjour,
Pour que ta macro apparaisse dans la liste de macros, il faut que ton fichier soit ouvert, par contre, tu peux le masquer en affectant True à la propriété IsAddin dans ThisWorkbook. Tu enregistres ton fichier (classeur A) dans ton répertoire d'ouverture ou dans XLSTART.

@+

Merci Gord 21

mais y-a-t-il une solution plus simple ?


si j'ouvre n'importe quelle fichier excel peut-on pas avoir cette macro par défaut ?

Citation:

---

Envoyé par Debutant10

Merci Gord 21

mais y-a-t-il une solution plus simple ?


si j'ouvre n'importe quelle fichier excel peut-on pas avoir cette macro par défaut ?

---

Bonjour

Oui il existe une solution "plus simple" et permettant d'avoir ta macro "dans" Excel et non rattachée à un classeur particulier...

Il sagit des marco complémentaire. Mais cela nécessite quelques adaptation de la macro originale et de faire passer le fichier xls qui la contient en .xla
Une fois le fichier converti en xla tu peux aller dans l'onglet Outil -> Macro complémentaire et rattacher ton fichier xla.

Une fois cela fait tu peux lancer la macro complémentaire dès l'ouverture d'excel. Et même créer un bouton dans la barre de menu qui sera permanent et te permetra de lancer facilement ta macro

Un tour par le tutoriel en recherchant "Macro complémentaire" te donnera tout les détails :)

MERCI Many 31 pour votre explication,

Pouvez vous me dire comment faites vous pour le transformer en .xla et créer un bouton dans la barre de menu qui sera permanent et me permetra de lancer facilement la macro

merci pour votre aide

bonjour envoie ton fichier ou ta macro complete

je te la metrais en xla avec un nouveau bouton dans la commandbar


au plaisir

Bonjour, voici la macro,

comment la mettre en xla puis avec un nouveau bouton dans la commandbar
toujours par défaut ?

Code:

---

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

Sub Remplacer()   Dim exc As New Excel.Application exc.Workbooks.Open ("E:\variables.xls")   Dim col As Integer col = 1 Do While (col < 9) Cells(1, col).Value = exc.Cells(1, col).Value col = col + 1 Loop   exc.Workbooks.Close exc.Quit Set exc = Nothing   MsgBox "Fini"   End Sub

---

bonjour debutant

excuse moi j'etais occupé

tiens voila ton complement en piece jointe

au plaisir

Merci patrickt pour votre aide cela fonctionne bien