MJ13 XLDnaute Barbatruc 15 Février 2013 #1 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 .
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 XLDnaute Barbatruc 15 Février 2013 #2 Re : VBA: Enregistrer un fichier xlam en xlsm Re Michel regarde peut être ceci : Code: With Workbooks("macrocompl.xlam") .IsAddin = False ActiveWorkbook.SaveCopyAs "C:\MesDocs\test.xlsm" .IsAddin = True End With A tester sous 2007 et + bonne journée @+ Vote positif 0 Vote négatif
Re : VBA: Enregistrer un fichier xlam en xlsm Re Michel regarde peut être ceci : Code: 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 XLDnaute Barbatruc 15 Février 2013 #3 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 ). Code: 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). Code: NOMW = ThisWorkbook.Name chemin = CreateObject("WScript.Shell").specialFolders("Desktop") ActiveWorkbook.SaveCopyAs chemin & "\" & NOMW & ".xlsm" Encore Merci Pierrot et Bon Week-End . Vote positif 0 Vote négatif
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 ). Code: 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). Code: NOMW = ThisWorkbook.Name chemin = CreateObject("WScript.Shell").specialFolders("Desktop") ActiveWorkbook.SaveCopyAs chemin & "\" & NOMW & ".xlsm" Encore Merci Pierrot et Bon Week-End .