Copier une feuille Excel dans un nouveau classeur

Bonjour,

J'aimerai savoir si l'on peut automatiquement nommer un classeur qui s'est ouvert par macro à la demande faite sur un autre classeur.

par exemple, j'ai le fichier joint, lorsque j'ouvre ce classeur, je clic et la feuille va se copier sur un autre classeur "vierge" mais le nom donné reste le même à chaque fois alors que je veux qu'il prenne le nom que j'aurai par exemple mis en A1.

https://www.excel-pratique.com/~files/doc/fichier_archive_automatiquement.xls

j'espère être clair dans ma demande sinon ne tenez pas compte de celle-ci.

Encore merci.

rémy

Bonsoir et bienvenue

Peux-tu tester si cette macro te convient :

Sub archiveoui2()
Dim extension As String
ThisWorkbook.ActiveSheet.Copy
ActiveSheet.UsedRange.Activate
With Selection
.Copy

End With
extension = ".xls"

    With ActiveWorkbook
    Chemin = "C:\Users\croix rouge\Desktop\a archiver\"

    nomfichier = ActiveSheet.Range("A1")

    .SaveAs Filename:=Chemin & nomfichier
    .Close
End With
End Sub

C'est une macro que j'ai sur un de mes fichiers et que j'ai essayé d'adapter à ton cas.

A te relire

Amicalement

Nad

Bonjour nad,

Merci beaucoup, c'est magique, ça fonctionne, lol

Je sais pas comment te rendre la pareil.

car j'ai l'impression que tu en sais plus que moi, mais on sait jamais.

Si je peux t'aider autrement. mais on se voit qu'ici? je suppose, pas d'adresse mail etc autorisé?

rémy

Re

C'est sympa mais en ce qui concerne les macros je ne sais que les adapter. Je suis plutot formules.

D'ailleurs, les VBAîstes confirmés du forum vont certainement te proposer une macro plus simple.

Si tu veux contacter un membre, tu peux lui envoyer un MP ou un mail (si celui-ci a consenti à en recevoir) en cliquant sur la zone concernée en bas d'un de ses messages.

N'oublie pas de passer ton fil en RESOLU.

Amicalement

Nad

Bonsoir,

A rajouter dans le code mis par Nad:

juste après

 Dim extension as string

mets ceci

Dim chemin as string, nomfichier as string

Amicalement

Dan