Discussion :

[YannLxT]

Bonjour à tous,

J'ai un fichier xltm contenant du code.
Lorsque je l'ouvre, il passe en xlsm (normal jusque là).

Je fait une recherche dans une feuille de ce classeur et si je ne trouve pas la valeur cherchée, je souhaite l'inscrire dans le fichier source en xltm.

J'ai bien essayé ça :

Code :

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

1
2
3
4
5
6
7
8
fichierxltm="Monfichier.xltm"
 
Application.EnableEvents = False
Workbooks.Open (chemin & fichierxltm)
Workbooks(fichierxltm).Sheets(MaFeuille).Range("A" & Sheets(MaFeuille).Range("A" & Rows.Count).End(xlUp).Row + 1) = MaValeur
Workbooks(fichierxltm).Save
Workbooks(fichierxltm).Close
Application.EnableEvents = True

Le problème c'est que forcément lorsque je fait mon workbooks.open il ne m'ouvre pas le modèle mais me fait un nouveau fichier en xlsm !

Avez-vous une idée pour pouvoir ouvrir un fichier xltm en vba ...

Merci d'avance.

Yann

[Theze]

Bonjour,

Pour modifier un modèle, il te faut préciser que tu veux le modifier sinon, Excel crée un classeur basé sur le modèle. Pour préciser que tu veux faire une modif sur le modèle, il te faut mettre l'argument "Modifiable" (Editable) à Vrai :

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 Test()
 
    Dim Cl As Workbook
    Dim fichierxltm As String
    Dim Chemin As String
    Dim MaFeuille As String
    Dim MaValeur As String
 
    'chemin où se trouvent les modèles sur le PC
    Chemin = Application.TemplatesPath
 
    fichierxltm = "MonFichier.xltm"
    MaFeuille = "Feuil1"
    MaValeur = "Test"
 
    'l'argument "Modifiable" (Editable) doit être à vrai pour ouvrir l'original
    Set Cl = Workbooks.Open(Chemin & fichierxltm, , , , , , , , , True)
 
    Cl.Sheets(MaFeuille).Range("A" & Cl.Sheets(MaFeuille).Range("A" & Rows.Count).End(xlUp).Row + 1) = MaValeur
 
    Workbooks(fichierxltm).Save
 
    Cl.Close
 
End Sub

[YannLxT]

Merci beaucoup

[Theze]

Content de t'avoir aidé