[VBA-E] CommonDilaog perdu ?

Version imprimable

19/10/2006, 09h12
SpaceFrog

[VBA-E] CommonDilaog perdu ?

Dans la série mon café n'a pas encore agi....

Je sais plus comment acceder au commondialog en VBA E ...

Code:

Dialogs

Exemples :

Code:

1
2
3
4
5
    DisplayAlerts = False
    Application.Dialogs.Item(xlDialogOpen).Show 'xlDialogSaveAs).Show
    Application.Dialogs.Item(xlDialogInsertObject).Show
    Application.Dialogs.Item(xlDialogInsertPicture).Show
    Application.Dialogs.Item(xlDialogPrint).Show

19/10/2006, 09h27
SpaceFrog

que ferais-je sans toi ma boussole préférée ...

je teste tout ça ...
19/10/2006, 10h58
SpaceFrog

bon nickel en plus avec que les images ...
mantenant faut que je trouve comment en récupérer la valeur ...:?

en fait je vues juste récupérer le nom du fichier pointé dans cette boite de dialogue ...

donc sur le click de validation de la boite de dialogue; je voudrait chopper el nom du fichier ...
19/10/2006, 11h05
ouskel'n'or

Quelle valeur ?
19/10/2006, 11h19
SpaceFrog

arf non je me goure ... j'ai collé un insert picture ... mais ça va pas ...
il me faudrait un showfiles avec filtre sur un type d'extension et pouvoir récupérer le nom du fichier selectionné...
19/10/2006, 11h35
SpaceFrog

me dites pas qu'il faut que je passe par fso pour faire un dir de repertoire et les coller dasn un listbox :(
19/10/2006, 11h55
ouskel'n'or

Tu peux reprendre depuis le début, j'ai peur d'avoir pas tout suivi...
Tu utilises un Dialogs... show pour insérer quoi et ensuite ? :(
19/10/2006, 13h51
SpaceFrog

en fait je dois remplir un formulaire...
et l'un des champs est le nom d'un fichier image ...
donc je voudrasi un controle qui me permette da parcourrir un repertoire, selectionner un fichier et lors de la selection le nom du fichier se colle dans le champs ...

tiens directement adapté de l'aide en ligne VBA :

Code:

1
2
3
4
5
6
 
fileToOpen = Application _
    .GetOpenFilename("Fichier image (*.bmp *.jpg), *.bmp;*.jpg")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If

19/10/2006, 14h25
SpaceFrog

pfff fallait le trouver ...

et sinon pour le repertoire par defaut ?

Code:

1
2
3
4
5
6
ChDir "c:\Program files"
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If

19/10/2006, 15h15
SpaceFrog

Nickel !
Merci les chums :wink: