Fenêtre Windows
softin
Messages postés
5
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
14 août 2003
-
13 août 2003 à 10:20
softin Messages postés 5 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 14 août 2003 - 14 août 2003 à 10:58
softin Messages postés 5 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 14 août 2003 - 14 août 2003 à 10:58
2 réponses
carnez
Messages postés
120
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
2 août 2004
13 août 2003 à 11:01
13 août 2003 à 11:01
bonjour,
ce petit code te permet de lancer l'explorateur Windows :
Dim Fd As FileDialog
' choix du fichier par l'explorateur
Set Fd = Application.FileDialog(msoFileDialogOpen)
' récupération du nom et du chemin du fichier sélectionné
With Fd
.AllowMultiSelect = False ' multisélection interdite
If .Show = -1 Then
path= .SelectedItems(1)' mémorisation du fichier sélectionné
Else
'The user pressed Cancel.
Exit Sub
End If
End With
Set Fd = Nothing
Il te faut la bib Office10 dans tes références
oiseau
ce petit code te permet de lancer l'explorateur Windows :
Dim Fd As FileDialog
' choix du fichier par l'explorateur
Set Fd = Application.FileDialog(msoFileDialogOpen)
' récupération du nom et du chemin du fichier sélectionné
With Fd
.AllowMultiSelect = False ' multisélection interdite
If .Show = -1 Then
path= .SelectedItems(1)' mémorisation du fichier sélectionné
Else
'The user pressed Cancel.
Exit Sub
End If
End With
Set Fd = Nothing
Il te faut la bib Office10 dans tes références
oiseau
softin
Messages postés
5
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
14 août 2003
14 août 2003 à 10:58
14 août 2003 à 10:58
Super , je sais pas comment tu as trouvé ce petit bou de code, mais il correspond exactement à mes besoins.
Merci beaucoup :big)
Merci beaucoup :big)
