Fichier Excel sur une clé USB

violet94

XLDnaute Nouveau
Hello.

je suis à la recherche d'une fonction VBA permettant un dialogue qui permettrait d'enregistrer un fichier Excel sur une clé USB dont la lettre serait reconnu par le programme
par exemple la clé USB est insérée en E je voudrais une boite de dialogue me permettant d'indiquer le chemin complet E:\DATA\nomdefichier.
la difficulté étant que la lettre de la clé USB change en fonction des ordis

Thanks.
 

vgendron

XLDnaute Barbatruc
Hello
un exemple de code pour choisir un répertoire de travail

VB:
Sub ChangerRepertoire()
Set NewRep = Application.FileDialog(msoFileDialogFolderPicker)
NewRep.Show
If NewRep.SelectedItems.Count > 0 Then
    RepertoireArchivage = NewRep.SelectedItems(1) & "\"
    ChDir RepertoireArchivage
Else
    MsgBox "Aucun Répertoire Sélectionné"
End If
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG