Ouvrir modèle excel en vba

Bonjour à tous, j'ai une petite question. Je tente, comme le titre l'indique, ouvrir un modèle excel à partir d'un classeur excel à l'aide d'une macro. J'ai vérifié que le modèle est bien enregistrer dans le même dossier que mon autre classeur et cela m'indique une erreur lors de l'ajout d'un modèle. (dernière ligne) Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Partie_1()   Dim debut As Range Dim fin As Range Dim nouveau_nom As String Dim nouveau_classeur As Workbook Dim i As Integer Dim ligne As Integer Dim classeur_donnees As String Dim chemin As String Dim modele As String     classeur_donnees = "ActiveWorkbook.Path \ tp3.xlsm.Sheets(1)" Set debut = Range("A4")   While Not IsEmpty(debut)   nouveau_nom = debut   chemin = ActiveWorkbook.Path   modele = chemin & "\tp3Modele.xltx"   nouveau_claseur = Workbooks.Add(modele)

---

Salut littlepower,

Tu souhaites simplement ouvrir un modele Excel non?
Essaie donc ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit Sub OuvrirClasseur() Dim v_ToOpen As Variant, o_CurFile As Object, str_fileTB As String   Set o_CurFile = ActiveWorkbook 'si besoin, ici tu enregistres le fichier qui contient la maccro, dans le cas ou tu aurais plusieurs fichiers ouvert, c'est bien de l'enregistrer dans une variable objet au cas ou   v_ToOpen = Application.GetOpenFilename("All file (*.*),*.*")   If v_ToOpen <> False Then Workbooks.Open Filename:=v_ToOpen 'si tu veux activer ton fichier ouvert, sauve le nom dans une variable comme ci-dessous str_fileTB = ActiveWorkbook.Name '.FullName = nom sans extension donc .FullName & ".xlsm" = .Name 'donc la tu peux jongler entre different fichier, ton fichier ouvert est donc Workbooks(str_fileTB) MsgBox "Le fichier est ouvert"   'donc ici ecrit le code que tu souhaites pour travailler avec ton fichier ouvert '[...]   'si tu souhaites fermer ton fichier, sans enregistrer les modifications qu'il y aurait pu y avoir: Workbooks(str_fileTB).Activate Application.CutCopyMode = False Workbooks(str_fileTB).Close Else Exit Sub End If   End Sub

---

maintenant dans ton classeur, ajoute un bouton et associe lui cette maccro

set nouveau_claseur = Workbooks.Add(modele)