| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
J'ai modifié très légèrement cette section de la procédure
pour faire afficher la lettre de la clé de l'explorateur Windows
Si tu as une clé d'installer, tu n'obtiens pas la bonne lettre ?
Si oui, qu'obtiens-tu ?
'-------------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
Else
MsgBox "Lecteur non disponible pour l'instant."
Exit Sub
End If
End If
End Sub
'------------------------------
MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
4d42fd6a$0$28105$
Bonsoir à tous,
Je reviens vers vous après bien des essais... je vais donc donner les
détails de ce que je n'arrive pas à faire. MichDenis et Isabelle mon
proposé
un code (MichDenis m'a même invité à rentrer mon code dans le code, mais
c'est sans résultat)
Voici le début de mon code :
Sub RechercheFichiers()
racine = "C:OUTILS DU MAITREORGANISEUR" ' à modifier
Columns("C:G").Select
Selection.ClearContents
Ctr = 0
'Set fso = New Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = fso.getfolder(racine)
Lit_dossier dossier_racine
Columns("E:E").Select
Range("E2").Activate
Le problème, c'est bien qu'excel situe mon fichier sur la clé USB. Il
faut,
si je comprends bien, changer le chemin "racine". Evidemment, la clé
changera de lettre selon les machines. J'ai essayé les deux codes proposés
plus haut mais décidément, je ne suis pas un as!
Voici mon fichier au cas où : http://cjoint.com/?3bCsBh4SEhA
Merci pour votre aide et votre patience.....
Greg
"michdenis" a écrit dans le message de groupe de
discussion : ihn1em$37s$| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
J'ai modifié très légèrement cette section de la procédure
pour faire afficher la lettre de la clé de l'explorateur Windows
Si tu as une clé d'installer, tu n'obtiens pas la bonne lettre ?
Si oui, qu'obtiens-tu ?
'-------------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
Else
MsgBox "Lecteur non disponible pour l'instant."
Exit Sub
End If
End If
End Sub
'------------------------------
MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
4d42fd6a$0$28105$426a74cc@news.free.fr...
Bonsoir à tous,
Je reviens vers vous après bien des essais... je vais donc donner les
détails de ce que je n'arrive pas à faire. MichDenis et Isabelle mon
proposé
un code (MichDenis m'a même invité à rentrer mon code dans le code, mais
c'est sans résultat)
Voici le début de mon code :
Sub RechercheFichiers()
racine = "C:OUTILS DU MAITREORGANISEUR" ' à modifier
Columns("C:G").Select
Selection.ClearContents
Ctr = 0
'Set fso = New Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = fso.getfolder(racine)
Lit_dossier dossier_racine
Columns("E:E").Select
Range("E2").Activate
Le problème, c'est bien qu'excel situe mon fichier sur la clé USB. Il
faut,
si je comprends bien, changer le chemin "racine". Evidemment, la clé
changera de lettre selon les machines. J'ai essayé les deux codes proposés
plus haut mais décidément, je ne suis pas un as!
Voici mon fichier au cas où : http://cjoint.com/?3bCsBh4SEhA
Merci pour votre aide et votre patience.....
Greg
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion : ihn1em$37s$1@speranza.aioe.org...
| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
J'ai modifié très légèrement cette section de la procédure
pour faire afficher la lettre de la clé de l'explorateur Windows
Si tu as une clé d'installer, tu n'obtiens pas la bonne lettre ?
Si oui, qu'obtiens-tu ?
'-------------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
Else
MsgBox "Lecteur non disponible pour l'instant."
Exit Sub
End If
End If
End Sub
'------------------------------
MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion :
4d42fd6a$0$28105$
Bonsoir à tous,
Je reviens vers vous après bien des essais... je vais donc donner les
détails de ce que je n'arrive pas à faire. MichDenis et Isabelle mon
proposé
un code (MichDenis m'a même invité à rentrer mon code dans le code, mais
c'est sans résultat)
Voici le début de mon code :
Sub RechercheFichiers()
racine = "C:OUTILS DU MAITREORGANISEUR" ' à modifier
Columns("C:G").Select
Selection.ClearContents
Ctr = 0
'Set fso = New Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = fso.getfolder(racine)
Lit_dossier dossier_racine
Columns("E:E").Select
Range("E2").Activate
Le problème, c'est bien qu'excel situe mon fichier sur la clé USB. Il
faut,
si je comprends bien, changer le chemin "racine". Evidemment, la clé
changera de lettre selon les machines. J'ai essayé les deux codes proposés
plus haut mais décidément, je ne suis pas un as!
Voici mon fichier au cas où : http://cjoint.com/?3bCsBh4SEhA
Merci pour votre aide et votre patience.....
Greg
"michdenis" a écrit dans le message de groupe de
discussion : ihn1em$37s$| J'ai essayé mais ça ne fonctionnait pas
Avec l'information que tu as fournie, je n'ai aucune idée
pourquoi cela ne fonctionne pas...je ne suis pas devin !
MichD
Est-ce possible que tu aies omis d'insérer tout le code :
'------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
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
--------------------------------------------
Est-ce possible que tu aies omis d'insérer tout le code :
'------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
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
--------------------------------------------
Est-ce possible que tu aies omis d'insérer tout le code :
'------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
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
--------------------------------------------
Est-ce possible que tu aies omis d'insérer tout le code :
'------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
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
--------------------------------------------
Est-ce possible que tu aies omis d'insérer tout le code :
'------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
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
--------------------------------------------
Est-ce possible que tu aies omis d'insérer tout le code :
'------------------------------
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
Msgbox LecteurSource '<===== ligne ajoutée
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
--------------------------------------------
Qu'est-ce une carte SD ?
Qu'est-ce une carte SD ?
Qu'est-ce une carte SD ?
