Discussion :

[littlepower]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[vanhoa]

Salut littlepower,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

set nouveau_claseur = Workbooks.Add(modele)