Discussion :

[tompom3108]

Bonjour à tous

J'ai une petite question : est il possible d'enregistrer une feuille contenant des macros dans un autre classeur tout en conservant les macros?

j'ai un bout de code :

Code :

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

1
2
 ActiveWorkbook.SaveAs Repertoire & Num_Fact & " " & Nom_client & ".xlsx"
ActiveWorkbook.Close

J'ai beau changer ".xlsx" en ".xlsm". ça ne veut pas marcher.

Si quelqu'un peut m'aiguiller merci d'avance.

[patricktoulon]

bonsoir

xlsx est l'extention pour les classeurs sans macro donc oubli xlsx

pour plus de compatibilité avec toute version sauve le en xls compatible
avec 2000 a 2010

voici

Code :

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

1
2
3
4
5
6
7
8
Application.DisplayAlertsalerts = False
    repertoire = "C:\Users\patrick\Desktop"
 
    ActiveWorkbook.SaveAs Filename:=repertoire & Num_Fact & " " & Nom_client & ".xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Application.Goto Reference:="Macro1"
ActiveWorkbook.Close

au plaisir

[tompom3108]

oui effectivement ça ne me demande plus d'enregistrer dans un format sans macro!
Mais les macros existantes du fichier mère ne fonctionnent plus (Erreur : Sub ou Fonction non défini).

Enfin, je te remercie pour ta réponse j'avance encore un peu plus

J'ai une petite question par rapport à ce que tu as écrit dans le code

Code :

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

Application.Goto Reference:="Macro1"

Qu'est ce qu'est sensé faire cette ligne ?

Cela rend cette macro active dans le classeur de destination?

Perso j'ai essayé avec le nom d'une mais macro ça n'a pas marché...

Si tu peux m'éclairer

[patricktoulon]

bonjour

c'est une erreur de ma part milles excuses

oublie le "app goto references"

cela dit si dans tes macros tu nome le workbook par son nom tu devrais utiliser le "thisworkbook"

ensuite je peux pas t'en dire plus n'ayant pas le fichier sous les yeux

au plaisir