Discussion :

[tmlpqsdpmdlc]

Bonjour,

Je poste ce message dans le cadre de mon travail. Je ne pourrais donc pas vous donner tout le code utilisé.

Je cherche à enregistrer-sous un fichier bourré de macros à partir d'un autre. Dont une qui gère l'enregistrement-sous.

Et là c'est le drame. ça bogue à chaque fois que j'enregistre et l'erreur pointe sur le vba du fichier bourré de macro.

Ma question est: comment désactiver les macros d'un autre fichier ou de forcer l'enregistrement sous

Merci de votre aide

[joe.levrai]

Bonjour,

si c'est une procédure évènementielle que tu veux neutraliser (lors de l'enregistrement), utilise la propriété EnableEvents de l'objet Application

si = False : les évènements sont désactivés

attention à bien remettre la propriété à True ! ça ne se fera pas automatiquement en fin de procédure

regarde l'aide au sujet de cette propriété

[tmlpqsdpmdlc]

Ok

Ca marche quand je fais ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim repertoire As String
 
repertoire = Workbooks("fichier_a_enregistrer.xlsm").Path
 
'pour bloquer les messages d'erreurs
Application.EnableEvents = False
 
Workbooks("fichier_a_enregistrer.xlsm").SaveAs Filename:= _
        repertoire + "/test.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
'pour remettre les messages d'erreur
Application.EnableEvents = True

Merci !