Enregistrer sous un fichier existant

Bonjour

J'ai ce code ci dessous pour ouvrir un fichier existant

Sub Rectangleàcoinsarrondis1812173_Cliquer()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = Workbooks.Open("Q:\Commun\5. Plannings\2021\officiel NE PAS OUVRIR\MoisVierge.xlsx")
    Set ws = wb.Worksheets("P1")

    nom1 = Range("j1").Value
    Select Case nom1
        Case "dan": Ch1 = "Q:\Commun\1. Foyer d'Hebergement - Equipe éducative\3. Résidents\dan\Planning\2021"
        Case "eri": Ch1 = "Q:\Commun\1. Foyer d'Hebergement - Equipe éducative\3. Résidents\eri\Planning\2021"

    End Select

End Sub

Je voudrais ensuite copier une plage de cellules dans cette nouvelle feuille

mais je voudrais avant de coller enregister sous ce fichier existant qui est en fait une trame vierge.

dans le chemin indiqué dans select case

Pourriez vous m'aider svp ?

Je vous remercie beaucoup

Cordialement

S'il y a "dan" en J1, on sait que le dossier de sauvegarde sera : Q:\Commun\1. Foyer d'Hebergement - Equipe éducative\3. Résidents\dan\Planning\2021\
mais :
1) quel sera le nom du fichier de sauvegarde ?
2) idem s'il y a déjà un fichier dans ce dossier ?

Bonjour,

Comme tes chemins d'accès sont identiques, à une variable près (le contenu de J1), tu peux (normalement) tout à faire faire comme ceci :

Sub Rectangleàcoinsarrondis1812173_Cliquer()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim chemin as string, nomfichier as string

    Set wb = Workbooks.Open("Q:\Commun\5. Plannings\2021\officiel NE PAS OUVRIR\MoisVierge.xlsx")
    Set ws = wb.Worksheets("P1")

    nom1 = Range("j1").Value
    Chemin = "Q:\Commun\1. Foyer d'Hebergement - Equipe éducative\3. Résidents\" & nom1 & "\Planning\2021\"
    nomfichier = "nom-que-tu-veux-donner.xlsx"
    wb.saveas chemin & nomfichier

End Sub

Edit : Hello Optimix !
En effet, ce que tu préconises est tout à fait juste. On pourrait même imaginer vérifier que le dossier 2021 existe et, dans le cas contraire, le créer. Ainsi pour 2022 tout serait déjà fait.

Je suis désolé pour le retard

Je pensais avoir répondu

Votre code marche à merveille

Je vous en suis très reconnaissant

MERCI BEAUCOUUUUUUUP