Sauvegarde

[gds35]

Bjr mes AMIS du Forum, j'ai un soucis , j'ai ecrit une small Appli en VBA , et doit remettre , mon fichier à 0 pour un nouvel EX , la je fais reussir , mais n'arrive pas a sauvegarder l'ancien fichier sous un autre nom . Il doit se trouver sur cle USV dont je ne connais le prompt , comment faire pour trouver ou se trouve la cle USB et passer via une input le nouveau avec lequel il doit doit sauvegardez ??? Merci de Votre vous etes des Pro et moi qu'un novice en quête d'apprendre
GDS35

 

[Guest]

Re : Sauvegarde

Bonjour Gds,

voici deux procédures.

La première enregistre un fichier sur une clef usb en identifiant celle-ci par son numéro de série.
La secondes liste dans la fenêtre de débogage les numéros de série des disques amovibles branché à l'ordinateur.

Sub EnregistrerSurClefUSB()
   Const Removable = 1
   Dim strFichier As String
   Dim Destination As String
   Dim fso, d, Disques
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set Disques = fso.Drives
   For Each d In Disques
      If d.DriveType = Removable And d.IsReady Then
        If d.serialnumber = -1732782130 Then
            strFichier = ThisWorkbook.FullName
            Destination = d.RootFolder.Path & "[COLOR=red]LeFichierAenregistrer.xls[/COLOR]"
            fso.CopyFile strFichier, Destination
        End If
      End If
   Next
   Set d = Nothing
   Set Disques = Nothing
   Set fso = Nothing
End Sub
 
Sub ListerAmovible()
   Const Removable = 1
   Dim fso, d, Disques
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set Disques = fso.Drives
   For Each d In Disques
      If d.DriveType = Removable And d.IsReady Then
       Debug.Print d.serialnumber
      End If
   Next
   Set d = Nothing
   Set Disques = Nothing
   Set fso = Nothing
End Sub

A bientôt

 

[gds35]

Re : Sauvegarde

Merci HASCO , je teste et te tiens au courant , je vais ds le fichier LeFichierAenregistrer.xls son nom via une input box