Rapport de message :*
 

Re: Archiver des feuilles par références

Titre du sujet : Re: Archiver des feuilles par références
par myDearFriend! le 29/12/2008 14:04:58

Re,

Pour afficher la feuille "Modèle", menu Format / Feuille / Afficher...

Au bouton que tu vas rajouter sur cette feuille "Modèle", tu peux lui affecter le code suivant (dans le module de code de la feuille "Modèle") :
Private Sub CommandButton1_Click()
Dim F As String
    F = ThisWorkbook.Path & "\" & Range("F2") & "\" & Range("J2") & ".xls"
    MsgBox "Archivage sous le chemin :" & vbLf & F
    ActiveSheet.Move
    ActiveWorkbook.SaveAs Filename:=F
    ActiveWorkbook.Close
End Sub

Attention toutefois : le chemin (sous-répertoires) doit exister sinon... plantage assuré.

Cordialement,