Racine : la clé usb

Le
Greg
Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code pour
faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de l'ordinateur qui
l'accueille, et d'autres paramètres qui m'échappent. Que dois-je écrire pour
que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 7
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23035211
bonjour Greg,

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
MsgBox Drv.driveletter & " " & Drv.volumename
x = x + 1
End If
End If
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

isabelle



Le 2011-01-19 11:53, Greg a écrit :
Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code
pour faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de l'ordinateur
qui l'accueille, et d'autres paramètres qui m'échappent. Que dois-je
écrire pour que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg
Greg
Le #23035441
Bonjour Isabelle et merci pour ta réponse,

Ceci n'est pas un bout de code mais une macro complète. Que dois-je faire ?
Désolé pour la naïveté de la question...

"isabelle" ih75lf$aqr$
bonjour Greg,

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
MsgBox Drv.driveletter & " " & Drv.volumename
x = x + 1
End If
End If
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

isabelle



Le 2011-01-19 11:53, Greg a écrit :
Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code
pour faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de l'ordinateur
qui l'accueille, et d'autres paramètres qui m'échappent. Que dois-je
écrire pour que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg
Jacquouille
Le #23035501
Bonsoir
Soit tu intercales le code dans ta macro, soit tu enregistres la macro d'
isabelle, puis tu appelles celle-ci dans ta macro en indiquant simplement le
nom.

--
Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

"Greg" a écrit dans le message de groupe de discussion :
4d372ec8$0$20693$
Bonjour Isabelle et merci pour ta réponse,

Ceci n'est pas un bout de code mais une macro complète. Que dois-je faire
? Désolé pour la naïveté de la question...

"isabelle" ih75lf$aqr$
bonjour Greg,

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
MsgBox Drv.driveletter & " " & Drv.volumename
x = x + 1
End If
End If
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

isabelle



Le 2011-01-19 11:53, Greg a écrit :
Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code
pour faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de l'ordinateur
qui l'accueille, et d'autres paramètres qui m'échappent. Que dois-je
écrire pour que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg





Greg
Le #23035671
Merci Jacquouille,

Je crois que c'est dans mes cordes.

à bientôt

Greg

"Jacquouille" discussion : 4d372f59$0$14258$
Bonsoir
Soit tu intercales le code dans ta macro, soit tu enregistres la macro d'
isabelle, puis tu appelles celle-ci dans ta macro en indiquant simplement
le nom.

--
Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

"Greg" a écrit dans le message de groupe de discussion :
4d372ec8$0$20693$
Bonjour Isabelle et merci pour ta réponse,

Ceci n'est pas un bout de code mais une macro complète. Que dois-je faire
? Désolé pour la naïveté de la question...

"isabelle" ih75lf$aqr$
bonjour Greg,

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
MsgBox Drv.driveletter & " " & Drv.volumename
x = x + 1
End If
End If
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

isabelle



Le 2011-01-19 11:53, Greg a écrit :
Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code
pour faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de
l'ordinateur
qui l'accueille, et d'autres paramètres qui m'échappent. Que dois-je
écrire pour que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg





michdenis
Le #23036431
Bonjour,

Essaie comme ceci :

'---------------------------------------------
Sub test()
Dim LecteurSource As String
LecteurSource = RemovableDisk(LecteurSource)
If LecteurSource = "" then
msgbox "Aucun lecteur amovible attaché."
Exit sub
end if
If EstPret(LecteurSource) = True Then
'ton code
else
Msgbox "Lecteur non disponible pour l'instant."
exit sub
End If
End Sub

'--------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'--------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'--------------------------------------


MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion : 4d371710$0$13280$

Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code pour
faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de l'ordinateur qui
l'accueille, et d'autres paramètres qui m'échappent. Que dois-je écrire pour
que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg
Greg
Le #23036531
Merci à vous pour vos propositions... J'essaie ça dans la soirée. Là, je
suis coincé...

J'ai le même problème avec une page Power point, qui sert de page d'accueil
pour aller chercher tous les fichiers excel (Je ne sais pas si c'était
opportun, mais c'était à ma portée... et ça permettait d'avoir un plein
écran en version diapo). J'ai le même problème avec les liens que je crée
sur la page du PPT. A votre avis, puis-je utiliser la même macro ? (même si
ce n'est pas vraiment le lieu pour poser la question...)

Merci encore

Greg

"michdenis" discussion : ih8e2u$441$
Bonjour,

Essaie comme ceci :

'---------------------------------------------
Sub test()
Dim LecteurSource As String
LecteurSource = RemovableDisk(LecteurSource)
If LecteurSource = "" then
msgbox "Aucun lecteur amovible attaché."
Exit sub
end if
If EstPret(LecteurSource) = True Then
'ton code
else
Msgbox "Lecteur non disponible pour l'instant."
exit sub
End If
End Sub

'--------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'--------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'--------------------------------------


MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
4d371710$0$13280$

Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code pour
faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de l'ordinateur
qui
l'accueille, et d'autres paramètres qui m'échappent. Que dois-je écrire
pour
que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg

michdenis
Le #23037971
Désolé, mais je ne comprends pas ta question.



MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion : 4d37ddee$0$17821$

Merci à vous pour vos propositions... J'essaie ça dans la soirée. Là, je
suis coincé...

J'ai le même problème avec une page Power point, qui sert de page d'accueil
pour aller chercher tous les fichiers excel (Je ne sais pas si c'était
opportun, mais c'était à ma portée... et ça permettait d'avoir un plein
écran en version diapo). J'ai le même problème avec les liens que je crée
sur la page du PPT. A votre avis, puis-je utiliser la même macro ? (même si
ce n'est pas vraiment le lieu pour poser la question...)

Merci encore

Greg

"michdenis" discussion : ih8e2u$441$
Bonjour,

Essaie comme ceci :

'---------------------------------------------
Sub test()
Dim LecteurSource As String
LecteurSource = RemovableDisk(LecteurSource)
If LecteurSource = "" then
msgbox "Aucun lecteur amovible attaché."
Exit sub
end if
If EstPret(LecteurSource) = True Then
'ton code
else
Msgbox "Lecteur non disponible pour l'instant."
exit sub
End If
End Sub

'--------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'--------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'--------------------------------------


MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
4d371710$0$13280$

Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code pour
faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de l'ordinateur
qui
l'accueille, et d'autres paramètres qui m'échappent. Que dois-je écrire
pour
que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg

Greg
Le #23039221
Bonjour,

Je sors de la raison d'être du forum pour poser une question sur un document
PowerPoint :

Puis-je utiliser les macros que vous proposez ici dans un document
PowerPoint pour créer des liens vers ma clé USB.

Par exemple, je crée un lien hypertexte sur une zone de texte. Ce lien
renvoie vers la clé USB. Comment faire pour que le lien fonctionne quel que
soit l'emplacement reconnu de la clé USB par le PC ?

Je comprendrais que je sois invité à poser ma question ailleurs, mais ça me
semblait dans la continuité.

Merci et à bientôt

Greg

"Greg" a écrit dans le message de groupe de discussion :
4d37ddee$0$17821$
Merci à vous pour vos propositions... J'essaie ça dans la soirée. Là, je
suis coincé...

J'ai le même problème avec une page Power point, qui sert de page
d'accueil pour aller chercher tous les fichiers excel (Je ne sais pas si
c'était opportun, mais c'était à ma portée... et ça permettait d'avoir un
plein écran en version diapo). J'ai le même problème avec les liens que je
crée sur la page du PPT. A votre avis, puis-je utiliser la même macro ?
(même si ce n'est pas vraiment le lieu pour poser la question...)

Merci encore

Greg

"michdenis" discussion : ih8e2u$441$
Bonjour,

Essaie comme ceci :

'---------------------------------------------
Sub test()
Dim LecteurSource As String
LecteurSource = RemovableDisk(LecteurSource)
If LecteurSource = "" then
msgbox "Aucun lecteur amovible attaché."
Exit sub
end if
If EstPret(LecteurSource) = True Then
'ton code
else
Msgbox "Lecteur non disponible pour l'instant."
exit sub
End If
End Sub

'--------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'--------------------------------------
Function EstPret(Lecteur As String)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'--------------------------------------


MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
4d371710$0$13280$

Bonjour à tous,

Mon problème est tout bête : je dois modifier le chemin dans un code pour
faire référence à la clé USB.

Le code d'origine : racine = "c:OUTILS DU MAITREORGANISEUR"

Il me semble que la clé USB change de lettre en fonction de l'ordinateur
qui
l'accueille, et d'autres paramètres qui m'échappent. Que dois-je écrire
pour
que la racine soit toujours la clé USB que j'utilise ?

Merci à vous

Greg

michdenis
Le #23041631
Ceci devrait fonctionner dans un module de PowerPoint
bien que je n'ai pas testé explicitement :

'-------------------------------------
Sub test()
Dim LecteurSource As String
LecteurSource = RemovableDisk(LecteurSource)
If LecteurSource = "" Then
MsgBox "Aucun lecteur amovible attaché."
Exit Sub
Else
If EstPret(LecteurSource) = True Then
'Ton code
Else
MsgBox "Lecteur non disponible pour l'instant."
Exit Sub
End If
End If
End Sub

'--------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'--------------------------------------
Function EstPret(Lecteur As String)
Dim T As Double
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'--------------------------------------


MichD
--------------------------------------------
Greg
Le #23052191
Bonjour et merci MichDenis pour cette proposition. J'ai essayé mais ça ne
fonctionnait pas... Certainement ai-je commis une erreur...

J'ai donc trouvé une solution toute simple... mais quand on ne sait pas, ça
ne se devine pas. Je rentre un chemin relatif plutôt qu'un chemin absolu.

à bientôt

Greg

"michdenis" discussion : ihcig3$fub$
Ceci devrait fonctionner dans un module de PowerPoint
bien que je n'ai pas testé explicitement :

'-------------------------------------
Sub test()
Dim LecteurSource As String
LecteurSource = RemovableDisk(LecteurSource)
If LecteurSource = "" Then
MsgBox "Aucun lecteur amovible attaché."
Exit Sub
Else
If EstPret(LecteurSource) = True Then
'Ton code
Else
MsgBox "Lecteur non disponible pour l'instant."
Exit Sub
End If
End If
End Sub

'--------------------------------------
Function RemovableDisk(MonLecteur As String)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & _
strComputer & "rootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each Objdisk In colDisks
'2 constante numérique pour disque dur "removable"
If Objdisk.DriveType = 2 Then
RemovableDisk = Objdisk.Name & ""
Exit Function
End If
Next
End Function
'--------------------------------------
Function EstPret(Lecteur As String)
Dim T As Double
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objdrive In colDrives
If Lecteur = objdrive & "" Then
If objdrive.IsReady = True Then
EstPret = objdrive.IsReady
End If
End If
Next
End Function
'--------------------------------------


MichD
--------------------------------------------

Publicité
Poster une réponse
Anonyme