Fichier Excel sur une clé USB

violet94 · 18 Janvier 2019

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 · 18 Janvier 2019

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

job75 · 18 Janvier 2019

Bonsoir à tous,

Bizarre, exactement le même message mais sous 2 pseudos différents

Fichier Excel sur une clé USB

violet94

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires