Création nouveau fichier Excel à partir du ActiveWorkbook

Bonjour,

Je cherche à créer un nouveau fichier Excel à partir de la feuille active, et l'enregistrer à un emplacement spécifique et le nommer à partir de la valeur contenue dans une cellule (A1).

Mais je m'y prends mal...

Dim ceFichier As Workbook
Set ceFichier = ActiveWorkbook

Nom = Range("A1").Value

.SaveAs Filename:="chemin d'accès" & "\" & ... , FileFormat:=xlNormal

Je vous remercie par avance ^^

Bonne journée.
Olivier

Bonjour,

essayez ceci

Dim nom As String

nom = ThisWorkbook.ActiveSheet.Range("A1").Value
If nom = vbNullString Then Exit Sub 'cas où pas de nom en cellule A1
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & nom, FileFormat:=xlNormal

Le fichier sera sauvegardé dans le même répertoire que le fichier contenant la macro

Cordialement

Edit : pensez à modifier votre Biographie dans le profil de votre compte. Elle n'a plus de raison d'être ce jour vu que le modérateur n'est plus sur ce site

Merci Dan

On avance :-)

Le fichier se crée, mais le contenu est vide :/

Le fichier se crée, mais le contenu est vide :/

Vous ne dites pas ce que vous voulez comme contenu dans votre demande

A moins que ce soit une sauvegarde du fichier existant avec le nom en A1 que vous voulez ?

Pardon.

Le fichier se crée bien dans le même dossier.
Mais lorsque je l'ouvre le fichier est vide.

Le fichier se crée bien dans le même dossier.
Mais lorsque je l'ouvre le fichier est vide.

çà je le sais mais cela ne répond pas à la question que je vous ai posée dans mon post précédent

C'est la fin de semaine je n'ai pas percuté.
Je veux le contenu de l'onglet sur lequel je suis.

Uniquement celui depuis lequel je lance la macro :)

Ok si je comprends bien, vous voulez sauvegarder l'onglet dans un nouveau classeur que vous nommez selon le nom en A1 du fichier contenant la macro

Oui exactement.

J'aurais du exposer le probleme de cette façon...

Essayez comme ceci

Dim nom As String

With ThisWorkbook
    With .ActiveSheet
        nom = .Range("A1").Value
        If nom = vbNullString Then Exit Sub
        .Copy
    End With
    ActiveWorkbook.SaveAs Filename:=.Path & "\" & nom, FileFormat:=xlNormal
End With

Si ok, pensez à corriger dans votre biographie

Cordialement

Je vous remercie.

Bonne fin de journée à vous :)