Macro Excel Démarrage automatique uniquement dans le fichier XLT et non dans le fichier XLS

Question

J'utilise XLT et contient des macros, il crée un XLS par ouvrir, et l'enregistrer dans un répertoire choisi, le problème est, le fichier enregistré contient le mêmes macros que le XLT. Y at-il une chance de modifier le proc pour le rendre enregistrer le fichier généré sans les macros?

meilleures salutations,

Thomas

Answer 1

Si votre question porte sur la façon de démarrer automatiquement une macro que lorsqu'elle est appelée à partir XLT et non quand il est appelé à partir du XLS généré, alors peut-être cela peut aider

Private Sub Workbook_Open() 
    If ThisWorkbook.Path = "" Then 
    Call myMacro 
    End If 
End Sub 

mymacro ne sera appelée si le fichier ouvert est XLT, pas XLS.

Answer 2

Il y a deux façons de le faire. Si vous avez seulement besoin des feuilles de calcul et aucune du code, la méthode la plus simple est probablement juste de copier les feuilles d'un nouveau classeur puis enregistrez que:

Private Sub workbook_open() 
    Dim wb As Workbook 
    Dim saveName As String 

    ThisWorkbook.Sheets.Copy 
    Set wb = ActiveWorkbook 

    saveName = Application.GetSaveAsFilename(fileFilter:="Excel Workbook (*.xls),  *.xls") 

    If Not saveName = "False" Then 
     wb.SaveAs saveName 
    End If 
End Sub 

Si un code est toujours nécessaire dans le XLS alors vous devrez manipuler l'environnement VB directement pour enlever les parties dont vous n'avez pas besoin. Ceci est un peu plus impliqué et a un certain nombre de restrictions/caveats, mais il semble que la méthode la plus simple illustrée ci-dessus puisse convenir à vos besoins de toute façon.