Modifier un autre classeur à partir de l'actuel

Bonjour à tou(te)s !

J'ai un petit souci.

J'ai un classeur à partir duquel je voudrais créer un autre classeur. Jusque là pas de souci, j'ai pu trouver mon bonheur sur le forum avec la macro permettant de le faire.

Cependant, je voudrais modifier et mettre en forme le classeur ainsi créé avec la même macro (fusion de cellules, saisie d'information, ...).

Lorsque je saisis mon code, les modifications que je voudrais apporter se font dans l'onglet du classeur d'origine et non dans le nouveau classeur ainsi créé.

Comment puis-je faire ?

SI joint l'extrait de code que j'utilise pour la création du nouveau classeur :

Sub Récap_Clic()

'On créé un nouveau fichier Excel de récap
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet

        'On créé l'objet Excel
        Set xlApp = CreateObject("Excel.Application")
        'On définit le nombre d'onglets (ici 1)
        xlApp.SheetsInNewWorkbook = 1
        'On ajoute un classeur
        Set xlBook = xlApp.Workbooks.Add
        'On donne un nom au classeur
        xlBook.SaveAs ("Récapitulatif frais de livraison commande.xls")
        'On rend le classeur visible
        xlApp.Visible = True
        'On créer l'objet onglet dans le nouveau classeur créé
        Set xlSheet = xlBook.Worksheets(1)
        'On affecte un nom aux l'onglets
        xlSheet.Name = "Récap. Frais de livraison"
        'On remet la propriété de l'application à 3 (par défaut)
        xlApp.SheetsInNewWorkbook = 3

'On dimensionne l'en-tête du fichier
    Range("A1").Value = "Récapitulatif des Frais de Livraison commande client"

End Sub

La saisie de la chaîne "Récapitulatif des Frais de Livraison commande client" se fait dans la cellule A1 de mon classeur d'origine...

Merci d'avance pour votre aide

Très Cordialement,

Yann

Bonsoir,

Essaie ce code plutôt

Sub Récap_Clic()
'Macro Dan le 20/01/11
Workbooks.Add.SaveAs Filename:="Récapitulatif frais de livraison commande.xls"
Worksheets.Add.Name = "Récap Frais de livraison"
Sheets("Récap Frais de livraison").Range("A1") = "Récapitulatif des Frais de Livraison commande client"
End Sub

Evite aussi les points ou espace dans les noms de feuilles et de fichier. Mets plutôt un "_" en lieu et place.

Amicalement

Salut Dan,

Je viens de tester le bout de code que tu m'as proposé et ça marche nickel !

De plus, il est bien plus léger que celui que j'avais proposé...

Merci beaucoup

Amicalement,

Yann