enregistrer sur clé USB

PIERRE02

XLDnaute Nouveau
bonjour à tous

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
merci de votre aide
 

tatiak

XLDnaute Barbatruc
Bonjour,
Trop facile!
VB:
Option Explicit


' ***********************************************************************
' *****                                                             *****
' *****        CODE PierreP56 : http://tatiak.canalblog.com/        *****
' *****                                                             *****
' ***********************************************************************


Sub Cle_USB()
Dim FSO As Object, Drv As Object

    On Error Resume Next
    Set FSO = CreateObject("Scripting.FileSystemObject")
   
    For Each Drv In FSO.Drives
        'Debug.Print Drv.DriveType & "|" & Drv.VolumeName & "|" & Drv.DriveLetter
        If Drv.IsReady Then
            If ExisteRep(Drv.DriveLetter & ":\DATA\") Then
                ActiveWorkbook.SaveAs Drv.DriveLetter & ":\DATA\" & ActiveWorkbook.Name
            End If
        End If
    Next
   
    Set FSO = Nothing
    Set Drv = Nothing
End Sub


Function ExisteRep(NTtk As String) As Boolean
    On Error Resume Next
    ExisteRep = GetAttr(NTtk) And vbDirectory
End Function
Pierre
 

PIERRE02

XLDnaute Nouveau
merci de ta réponse mais sauf erreur de manip de ma part la macro ne fonctionne pas
rien ne se passe a l'exécution pas de clé USB reconnue ??

rectification cela fonctionne
merci beaucoup
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas