VBA: Enregistrer un fichier xlam en xlsm

[MJ13]

Bonjour à tous

Je cherche le code qui me permettrait d'enregistrer un fichier xlam en xlsm. Sachant que ce fichier est chargé en mémoire dans les macros complémentaires et est actif.

Cela m'a l'air complexe .

Merci d'avance .

 

[Pierrot93]

Re : VBA: Enregistrer un fichier xlam en xlsm

Re Michel

regarde peut être ceci :

With Workbooks("macrocompl.xlam")
    .IsAddin = False
    ActiveWorkbook.SaveCopyAs "C:\MesDocs\test.xlsm"
    .IsAddin = True
End With

A tester sous 2007 et +

bonne journée
@+

 

[MJ13]

Re : VBA: Enregistrer un fichier xlam en xlsm

Re Pierrot

Ah, on se suit .Encore merci .

Sur le fichier cela ne fonctionnait pas mais j'ai pu contourner le problème ainsi.

J'ai afficher le .xlam avec ce code (C'est super ).

ThisWorkbook.IsAddin = False

Puis j'ai enregistré avec celui-ci (ainsi je peux même voir que c'est un xlam puisqu'il demeure dans le nom du fichier).

NOMW = ThisWorkbook.Name
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
ActiveWorkbook.SaveCopyAs chemin & "\" & NOMW & ".xlsm"

Encore Merci Pierrot et Bon Week-End .