nouveau dossier

[justine]

bonsoir a tous.
voila mon souci
je fais une application sous xl2000 en vba.
mon fichier comporte 13 feuilles (une par mois et une bilan annee)
une userform me sert a selectionner les feuilles a envoyer par courrier.
mon pb, quand je selectionne mes feuilles a envoyer a l'aide de bouton a cocher, je voudrais copier ma ou mes feuilles selectionnees dans un autre dossier (cle usb) .
mais seulement mes feuilles, pas le fichier entier.
merci de me solutionner ce probleme.
justine

 

[Fredmax]

Dim Rep_Bool as boolean

Workbooks.Add

If Dir(ThisWorkbook.Path & '\\TEMP.XLS', vbNormal) <> '' Then Kill (ThisWorkbook.Path & '\\TEMP.XLS')

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & '\\TEMP.XLS'

Windows('Le nom du fichier de travail').Activate
ActiveSheet.Copy before:=Workbooks('TEMP.XLS').Sheets(1)

Rep_Bool = Application.Dialogs(xlDialogSaveAs).Show(ActiveSheet.Name, 1)
ActiveWorkbook.Close SaveChanges:=False
Windows('Le nom du fichier de travail').Activate

If Dir(ThisWorkbook.Path & '\\TEMP.XLS', vbNormal) <> '' Then Kill (ThisWorkbook.Path & '\\TEMP.XLS')


Voici comment je fait
Bon courage...