Discussion :

[Ade-1305]

Bonjour

Un grand merci à vos aides et partages, je pense qu'on le dira assez.

Aujourd'hui un petit point particulier :
Nous avons un système informatique quelque peu archaïque rendant complexe les mouvements informatiques et beaucoup, pour ne pas dire tous, se font part transferts en clé USB.

Jusqu'à ce matin et depuis plusieurs mois pas de soucis. Or aujourd'hui donc, une clé USB à vu son attribution de lettre lecteur modifiée et à perturber toutes les macros...
Après moult recherches infructueuses, je me retourne vers vous en vous appelant à l'aide :
existe-t-il un moyen d’écrire les chemins d'accès aux fichiers sur clé USB de manière générale, en somme quelque soit le lecteur?
Je vous remercie de l'attention portée à la lecture et à la résolution de notre petit soucis.

amicalement.

[had4789]

Existe-t-il un moyen d’écrire les chemins d'accès aux fichiers sur clé USB de manière générale, en somme quelque soit le lecteur?

Je ne pense pas. Excel n'est pas omniscient et ne peut pas savoir de lui même où chercher les informations.

Comme il y a plusieurs macro, je suppose que celle-ci sont liées. Il suffit donc décrire une fois le chemin dans la macro mère et le tour est joué.

[Ade-1305]

Merci Had
mais nous n'avons pas accès au système informatique pour des raisons de sécurité...

Donc pas moyen de scruter "tous les ports" pour savoir lequel serait occupé par une clé contenant "mon fichier"....?
Mes recherches mes mènent sur tellement de chemins... que ça en devient presque pénible.

Je continue à.... chercher.

[mercatog]

Une petite fonction qui donne la lettre du premier lecteur USB branché trouvé.
Si rien n'est trouvé (n'est branché), la fonction retourne une chaine vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Drivetype
'       0: t = "Unknown"
'       1: t = "Removable"
'       2: t = "Fixed"
'       3: t = "Network"
'       4: t = "CD-ROM"
'       5: t = "RAM Disk"
 
Function LECTEUR_USB() As String
Dim FSO As Object, MyDrive As Object
 
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each MyDrive In FSO.drives
    If MyDrive.DriveType = 1 Then
        LECTEUR_USB = MyDrive.DriveLetter & ":\"
        Exit For
    End If
Next MyDrive
Set FSO = Nothing
End Function

[Ade-1305]

rooo

Je vais voir comment m'en accommoder...
Merci et de retour pour vous dire "quoi".

[Marc-L]

Bonjour,

sinon tes informaticiens ne sont pas foutus d'effectuer un clic droit sur l'icône de l'ordinateur dans l'Explorateur de fichiers
puis de choisir Gérer afin de modifier la lettre attribuée au lecteur USB ?‼