Copier et renommer un fichier d'une macro

Bonjour à tous

Voilà mon problème: Chaque semaine je copie un fichier que je renomme en fonction de la nouvelle semaine:

ex: WISS_2010_S39

C'est le fichier WISS année 2010 semaine 39

je le copie et le renomme WISS_2010_S40 pour la semaine 40 de l'année 2010 et ainsi de suite

L'adresse de se fichier est:

C:\Users\ggetsandrine\Documents\WISS_2010_S39

J'aimerai affecté une macro à un bouton "Dupliqué" qui, lorsque je l'éxécute me demande la semaine et l'année, puis qui en fonction de ma réponse me duplique le fichier avec le nouveau nom et le place dans le chemin d'accés suivant:

C:\Users\ggetsandrine\Documents\NOUVEAU FICHIER

En même temps, j'aimerai que le numéro de la semaine s'affiche en E1 de mon onglet LUNDI, et que l'année s'affiche dans l'onglet AH1 de mon onglet RENSEIGNEMENTS

Merci pour votre aide

Bonsoir Gérald.q,

Ci-joint ma proposition. Teste là bien car il existe sûrement d'autres contrôles à mettre en place.

Bonsoir à tous,

Une autre :

Sub EnregistrerSous()
Dim Chemin$, An$, Semaine$, Rep%
    Do '--- année
        An = Application.InputBox("Tapez l'année", "Enregistrer", 2011, Type:=1)
        If An = False Then Exit Sub  'bouton  Annuler
    Loop While An = ""

    Do '--- semaine
        Semaine = Application.InputBox("Tapez le N° de Semaine", "Enregistrer", 0, Type:=1)
        If Semaine = False Then Exit Sub
    Loop While Semaine = ""

    Rep = MsgBox("Ce fichier sera enregistré ici" & Chr(10) & _
    "C:\Users\ggetsandrine\Documents\WISS_" & An & "_S" & Semaine & Chr(10) & Chr(10) & _
    "Confirmez ?", vbYesNo + vbCritical + vbDefaultButton2, "Enregistrer")
    If Rep = vbNo Then Exit Sub

        Sheets("RENSEIGNEMENTS").Range("ah1") = An
            With Sheets("LUNDI")
                .Activate
                .Range("e1") = Semaine
                Application.Goto .Range("a1"), Scroll:=True
            End With
    Chemin = "C:\Users\ggetsandrine\Documents\"
    ActiveWorkbook.SaveAs Filename:=Chemin & "WISS_" & An & "_S" & Semaine
End Sub

Amicalement

Claude

Merci à tous les deux pour vos réponses:

Marmotte 18, je n'ai pas réussi à faire fonctionner ton code.

Claude le tiens fonctionne , comment faire lorsque je confirme la nouvelle adresse pour que le fichier se ferme automatiquement?

Merci

re,

Tu ajoute cette ligne à la fin

    ThisWorkbook.Close Savechanges:=False
End Sub

Merci beaucoup