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 15:22:14

Re,

Tout d'abord, j'ai écrit :
ActiveWorkbook.SaveAs Filename:=F
(avec un "e")

Ensuite, ce que je veux dire c'est que si tu veux sauvegarder le fichier dans le sous-dossier PP116B, il faut que ce sous-dossier PP116B existe sur le disque dur, sinon, plantage de la macro assuré.
Ci-dessous, la macro évènementielle commentée :
Private Sub CommandButton1_Click()
Dim F As String
    'On détermine le chemin d'archivage (stocké dans une variable F)
    F = ThisWorkbook.Path & "\" & Range("F2") & "\" & Range("J2") & ".xls"
    MsgBox "Archive sous le chemin:" & vbLf & F
    'On "coupe" l'onglet actif et on crée un nouveau classeur avec
    ActiveSheet.Move
    'On sauve ce nouveau classeur sous le chemin déterminé plus haut
    ActiveWorkbook.SaveAs Filename:=F
    'On ferme le nouveau classeur
    ActiveWorkbook.Close
End Sub
Cordialement,