cs_epoc
Messages postés87Date d'inscriptionmardi 28 mai 2002StatutMembreDernière intervention25 octobre 2006
-
7 juin 2003 à 13:55
RJLFRANCE
Messages postés71Date d'inscriptionsamedi 17 août 2002StatutMembreDernière intervention 5 août 2012
-
21 août 2005 à 18:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
RJLFRANCE
Messages postés71Date d'inscriptionsamedi 17 août 2002StatutMembreDernière intervention 5 août 20121 21 août 2005 à 18:34
Super cool, voila longtemps que je chercher ca, Merci, Merci !!
plooff
Messages postés1Date d'inscriptionjeudi 17 mars 2005StatutMembreDernière intervention24 mars 2005 24 mars 2005 à 10:56
excellent !! grace a ton application j'ai pu me décoincer car ca faisait deux heures que j'essayais de faire ca mais avec un common dialog !
merci tu me sauves la vie :)
trouble magma
Messages postés15Date d'inscriptionmercredi 8 septembre 2004StatutMembreDernière intervention11 août 2005 15 sept. 2004 à 17:42
MERCI!!!!!!!!!!
cs_Les2A
Messages postés2Date d'inscriptionlundi 23 août 2004StatutMembreDernière intervention23 août 2004 23 août 2004 à 15:16
Merci bcp :)
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 23 août 2004 à 14:49
un simple editeur de texte suffirait....
pour du VBA, essaies :
Dim shell, item
Set shell = WScript.CreateObject("Shell.Application")
titre="Sélection de dossier"
Set Item = shell.BrowseForFolder(0, title, 1 , "C:")
If isvalue(Item) Then
Buffer=Item.Title
If InStr(1,Buffer,":")=0 Then
Buffer=Item.ParentFolder.ParseName(Item.Title).Path
End If
wscript.echo Buffer
else
wscript.echo "Annulé"
End If
Wscript.quit
Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
IsValue (Err 0)
On Error GoTo 0
End Function
cs_Les2A
Messages postés2Date d'inscriptionlundi 23 août 2004StatutMembreDernière intervention23 août 2004 23 août 2004 à 14:03
Bonjour tout le monde
Je n'arrive pas à ouvrir le code, moi j'ai besoin de ça en VBA (je crois que ce code est sur VB). Est-ce que quelqu'un peut envoyer juste le code dans un fichier .txt?
Je vous remercie d'avance
Les2A
FearBlue
Messages postés149Date d'inscriptionlundi 15 septembre 2003StatutMembreDernière intervention26 octobre 2008 7 déc. 2003 à 18:13
Merci exactement ce que je cherchais.
Merci encore :d
cs_epoc
Messages postés87Date d'inscriptionmardi 28 mai 2002StatutMembreDernière intervention25 octobre 2006 7 juin 2003 à 15:28
pq faire compliqué ?
cs_Urgo
Messages postés780Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention16 avril 20091 7 juin 2003 à 14:37
trop simple mais merci pour les nb
cs_epoc
Messages postés87Date d'inscriptionmardi 28 mai 2002StatutMembreDernière intervention25 octobre 2006 7 juin 2003 à 13:55
Excellent ! exactement ce dont j'avais besoins ! merci !
21 août 2005 à 18:34
24 mars 2005 à 10:56
merci tu me sauves la vie :)
15 sept. 2004 à 17:42
23 août 2004 à 15:16
23 août 2004 à 14:49
pour du VBA, essaies :
Dim shell, item
Set shell = WScript.CreateObject("Shell.Application")
titre="Sélection de dossier"
Set Item = shell.BrowseForFolder(0, title, 1 , "C:")
If isvalue(Item) Then
Buffer=Item.Title
If InStr(1,Buffer,":")=0 Then
Buffer=Item.ParentFolder.ParseName(Item.Title).Path
End If
wscript.echo Buffer
else
wscript.echo "Annulé"
End If
Wscript.quit
Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
IsValue (Err 0)
On Error GoTo 0
End Function
23 août 2004 à 14:03
Je n'arrive pas à ouvrir le code, moi j'ai besoin de ça en VBA (je crois que ce code est sur VB). Est-ce que quelqu'un peut envoyer juste le code dans un fichier .txt?
Je vous remercie d'avance
Les2A
7 déc. 2003 à 18:13
Merci encore :d
7 juin 2003 à 15:28
7 juin 2003 à 14:37
7 juin 2003 à 13:55