[AC-2007] déterminer la lettre que prend une Clé USB pour la sauvegarde [Résolu]

[gerarddurand]

Bonjour,

Je reviens vers le forum car je n'arrive pas a me débrouiller.

Je suis toujours à déterminer la lettre que ma cle usb va prendre. j'ai fait ceci qui fonctionne

Code :

fs.copyfile "c:\hotellerie\Hotel1.accdr", "F:\"

mais si le lettre du système change je suis dans les choux

Qui me tendra un mouchoir ?

salutations.

[Philippe JOCHMANS]

Bonjour

Regardes dans ce tuto : http://warin.developpez.com/access/fichiers/#LI-B-2

Dans ce chapitre tu pourrais peut-être tester les lecteurs, c'est une idée.

Philippe

[gerarddurand]

merci Philippe je vais voir

salutations.

[Domi2]

Bonjour,

Une discussion sur un sujet similaire qui pourrait t'intéresser.

Domi2

[gerarddurand]

Bonjour,

Une discussion sur un sujet similaire qui pourrait t'intéresser.

merci domi2 pour ton intervention.

j'ai planché sur le conseil de philippe

Regardes dans ce tuto : http://warin.developpez.com/access/fichiers/#LI-B-2

voilà ce que j'en ai fait:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Clef = ""
 
Dim rs, rs1, rs2, rs3, rs4, rs5 As String
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Scripting.Drive
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
rs = 0
For Each oDrv In oFSO.Drives
On Error Resume Next
rs = rs + 1
  If rs = 1 Then rs1 = oDrv.DriveLetter + ":" & " " & oDrv.VolumeName
  If rs = 2 Then rs2 = oDrv.DriveLetter + ":" & " " & oDrv.VolumeName
  If rs = 3 Then rs3 = oDrv.DriveLetter + ":" & " " & oDrv.VolumeName
  If rs = 4 Then rs4 = oDrv.DriveLetter + ":" & " " & oDrv.VolumeName
  If rs = 5 Then rs5 = oDrv.DriveLetter + ":" & " " & oDrv.VolumeName
Next oDrv
Me.Texte7 = rs1 & "        " & rs2 & "     " & rs3 & "     " & rs4 & "     " & rs5

Ensuite j'affecte la lettre voulue à une variable (Clef)que je colle dans mon code de sauvegarde.

Code :

fs.copyfile "c:\hotellerie\Hotel1.accdb", Clef & ":\"

Je tourne autour de ce problème depuis des jours.

merci