Ouvrir et modifier un xltm en VBA

Version imprimable

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:

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

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:

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

04/01/2019, 11h58
YannLxT

Merci beaucoup :D
04/01/2019, 12h40
Theze

Content de t'avoir aidé ;)