Recopier une macro

Bonjour à tous,

Je me permets de me tourner vers vous pour un peu d'aide. J'utilise un fichier excel qui dispose d'une macro (bouton de contrôle). Cette macro permet à la feuille que j'ai constituée d'être dupliquée sur une nouvelle feuille excel en prenant le n° qui lui est donnée (il s'agit en l’occurrence de factures). CA marche très bien!

Cependant, j'aimerais reproduire ce bouton de macro sur d'autres classeurs (car c'est vraiment très pratique) mais je ne dispose de suffisamment de connaissances malheureusement et mes tentatives ont échoué.
Voici le code en question:

Code:

---

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

Private Sub CommandButton1_Click()   Dim NFeuil As String If Range("G11") <> "" Then NFeuil = Range("G11") If FeuilExist(NFeuil) Then Sheets(NFeuil).Activate Exit Sub Else Sheets("Modele").Copy After:=Sheets(ThisWorkbook.Sheets.Count) ActiveSheet.Name = NFeuil   End If End If   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9

Function FeuilExist(NomFeuil As String) As Boolean Dim a FeuilExist = False On Error GoTo Err1 a = Sheets(NomFeuil).Range("A1").Value FeuilExist = True Exit Function Err1: End Function

---

Quelqu'un pourrait m'expliquer comment utiliser ce bouton de commande avec cette macro dans un autre classeur svp? CA m'aiderait beaucoup.
J'espère que je ne suis pas trop brouillon dans mes explications.
D'avance merci.

Bonjour,

quelles tentatives as-tu essayé et quels ont été les messages indiqués le cas échéant ?

Normalement, il te suffit d'insérer un bouton dans tes autres fichiers, de réaliser un click droit dessus => affecter une macro

un nouvel écran s'ouvre pour sélectionner la macro à affecter, la 2 cas possibles :

- La macro n'existe pas, tu click sur "nouvelle" et tu copies ce code dedans :

Code:

---

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

Dim NFeuil As String If Range("G11") <> "" Then NFeuil = Range("G11") If FeuilExist(NFeuil) Then Sheets(NFeuil).Activate Exit Sub Else Sheets("Modele").Copy After:=Sheets(ThisWorkbook.Sheets.Count) ActiveSheet.Name = NFeuil   End If End If

---

et l'autre partie du code en dessous du 1er End Sub.



- soit tu as déjà copier ces 2 bouts de code dans un nouveau module, et tu as juste à choisir le nom de la macro dans la liste.



Après il ne te reste qu'à modifier le code en fonction de tes nouveaux fichiers (par exemple si le nom de la feuille à vérifier / générer, ne se trouve plus en cellule G11).


Sinon une petite recherche Google, qui mène directement sur le site de Microsoft :

http://office.microsoft.com/fr-fr/ex...010342137.aspx

Lorsque je souhaite intégrer un contrôle active X, excel ouvre une fene^tre de dialogue pour me dire: "impossible d'insérer un objet".
Par contre, je peux insérer un contrôle de formulaire.

Comment cela se fait-il?

Bonjour
Plusieurs discussions sur le sujet, regardes, entre autres ici :http://www.developpez.net/forums/d14...inserer-objet/

et ici http://www.developpez.net/forums/d14...d/#post8066977

Bonjour,

Pour le contrôle active x, c'est résolu. Cependant en copiant le code dans le bouton, ça m'affiche ceci:

Erreur d’exécution '9": l'indice n'appartient pas à la sélection

Quesako?

Comme je ne connais pas le code utilisé, peux-tu le publier

Bon, j'ai à priori réussi à résoudre mon problème. Merci de vos interventions.

Cordialement