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
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
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
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
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
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
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" a écrit dans le message de groupe de discussion :
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
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" <i@v.org> a écrit dans le message de groupe de discussion :
ih75lf$aqr$1@speranza.aioe.org...
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
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" a écrit dans le message de groupe de discussion :
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
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" a écrit dans le message de groupe de discussion :
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
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" <kln@LJKnd> a écrit dans le message de groupe de discussion :
4d372ec8$0$20693$426a74cc@news.free.fr...
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" <i@v.org> a écrit dans le message de groupe de discussion :
ih75lf$aqr$1@speranza.aioe.org...
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
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" a écrit dans le message de groupe de discussion :
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
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
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$426a74cc@news.free.fr...
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
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
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
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$426a74cc@news.free.fr...
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
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
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" a écrit dans le message de groupe de
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
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" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion : ih8e2u$441$2@speranza.aioe.org...
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$426a74cc@news.free.fr...
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
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" a écrit dans le message de groupe de
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
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
--------------------------------------------
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
--------------------------------------------
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
--------------------------------------------