Discussion :

[veronique2r]

Bonjour,

Comme plein d'autres, je débute
Je voudrais d'abord vous remercier à tous car sans vous et le forum je n'aurais jamais fait la moitié de mon projet
Certes il y a beaucoup de réponse à mes interrogations sauf cette fois ou je l'ai mal formulé pour trouver. Donc ...
Mon problème est le suivant :

Dans une macro, je lui demande de m'ouvrir un "fichier modèle.xlsm"
Seulement il me l'ouvre comme "fichier modèle1.xlm"

Après modif, lorsque je l'enregistre sous un "nouveau nom", il me met un message, si je veux garder mes macros il faut que je change d'extension Grrrr

mon code :

Code :

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

1
2
3
4
5
  Dim wbk As Workbook
   Dim Model As String
 
   Model = "C:\MonRepertoire\Fichier modele.xlsm"
   Set wbk = Workbooks.Add(Model)

espérant avoir été assez claire pour obtenir de l'aide
merci d'avance
bien cordialement
V.

[jpvba]

Bonjour Véronique,


.xlsm n'est pas un fichier modèle mais .xltm oui


Possiblement ton setting au niveau d'enregistrement est .xls par défaut

[veronique2r]

Merci beaucoup
Vous m'avez mise sur la bonne voix
En adaptant mon code pour sauvegarder .... ça fonctionne !!!

quand je suis en peine, je lui les discussions et à la fin le demandeur écrit "j'ai trouvé !!" cool ! j'apprécierai de savoir ce qu'il a écrit donc ....
mon code complété:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' enregistrer le fichier avec le nom de la cellule 
    Dim extension As String
    Dim chemin As String
    Dim fichier As String
 
    extension = ".xlsm"
    chemin = "adresse"
    fichier = ActiveSheet.Range("G2") & extension
 
    With ActiveWorkbook
 
        .SaveAs Filename:=chemin & fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
    End With

Merci!
Bon succès
V.