Macro copiant en valeur des onglets dans un nouveau fichier

Bonjour à tous,

Je souhaiterai créer une macro avec un bouton d'activation sur un fichier excel qui ferait les actions suivantes :

• Création d'un nouveau fichier excel ayant pour nom les données d'une cellule (A1 par exemple).
• Copie en valeur (respectant la mise en forme et taille des lignes et colonnes) d'un ou plusieurs onglets (nommés de manière identique).
• Sauvegarde du nouveau fichier sur le bureau.

Pour prendre un exemple simple avec le fichier joint ci-dessous, le bouton de macro situé dons l'onglet donnée créerai un nouveau fichier "X" contenant uniquement les onglets "Formule 1" et "Formule 2" en valeurs

Avez-vous une idée de comment procéder car je suis un peu perdu.

Merci d'avance !

Bonsoir Alevi,

Essayez le code suivant:

Sub test()
  ThisWorkbook.Sheets(Array("Formule1", "Formule2")).Copy
  With ActiveWorkbook
    .Sheets("Formule1").UsedRange.Value = .Sheets("Formule1").UsedRange.Value
    .Sheets("Formule2").UsedRange.Value = .Sheets("Formule2").UsedRange.Value
    .SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Sheets("Données").Range("a1")
  End With
End Sub

Bonsoir,

Merci pour cette réponse rapide !

J'ai testé, ça marche très bien pour la copie et l'enregistrement .