Enregistrer de xlsm (macro) à xlsx (sans macro)

Bonjour à tous,

A partir d'un de mes fichiers xlsm, je souhaite enregistrer la première feuille dans un autre répertoire mais en xlsx

Voilà le code que j'utilise :

Sub CopieFeuilles()
Worksheets("Feuil1").Copy
ActiveWorkbook.SaveAs "C:\Users" & Worksheets("Feuil1").Name
ActiveWorkbook.Close
End Sub

Mais le message d'alerte suivant apparait :

Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des claseurs sans macro :

Porjet VB

etc

etc

Pour continuer à enregistrer en tant que classeur sans macro, cliquez sur Oui.

Si je clique sur Oui, ça fonctionne, mais je ne veux pas que ce message apparaisse !

Comment faire ?

En attente de vos solutions,

Salutations,

Dadams

Bonjour

As-tu essayé avec

Application.DisplayAlerts = False

Sub CopieFeuilles()
Worksheets("Feuil1").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users" & Worksheets("Feuil1").Name
ActiveWorkbook.Close
End Sub

Cordialement

Bonjour ddept88,

Effectivement ça marche, merci

C'est résolu,

Dadams