Discussion :

[baime]

Bonjour,

J'ai un userForm pour avec plusieurs zones de saisie et groupe d'option et je voudrais rajouter une cache à cocher.

Jusque là rien d'extraordinaire. Par contre au moment ou je coche cette case je voudrais que cela m'ouvre un sous formulaire qui me permette de charger un fichier.

J'avoue que je ne sais pas comment faire et il existe peut être des objets tout fait mais je ne connais pas assez

Si quelqu'un a un conseil je suis preneur

[kidone]

bonsoir,
j'essaierai d'ouvrir le userform en vbmodal, ce qui vous permet d'en ouvrir un second
regarde de ce coté la
unload userform
show userform vbmodal
a+

[baime]

Merci je vais ce que cela peu donner

[patricktoulon]

bonjour

dans tout les cas tu dois metre tes deux userform a "userformX.show 0" pour les avoir tout les deux a mode nommodal



au plaisir

[Didier Gonard]

Bonjour,

Jusque là rien d'extraordinaire. Par contre au moment ou je coche cette case je voudrais que cela m'ouvre un sous formulaire qui me permette de charger un fichier.

Quel sorte de fichier ?

Veux-tu un menu du genre ouvrir d'Excel ?

cordialement,

Didier

[baime]

Exactement, ce qui permettra à l'utilisateur de choisir le chemin en navigant dans son arborescence plutôt qu'ouvrir une boite de dialogue ou il serait obligé de saisir à la main le chemin exact.

[Didier Gonard]

Il te suffit d'adapter ce fil :
http://www.developpez.net/forums/d97...toire-choisir/

en changeant l'argument du type de boîte genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set dlgSaveAs = Application.FileDialog(msoFileDialogOpen)

revoir le reste (nom des variables etc.) selon ton contexte..

cordialement,

Didier

[baime]

Alors là Ormonth c'est tout simplement magique

Je vais abuser de toi.

Ce que je voudrais faire c'est au lieu d'ouvrir le fichier que l'utilisateur a choisit dans la super boîte c'est de récupérer le chemin et le nom fichier pour faire des traitement derrière.

Si tu préfére que je clôture ce post et que j'en ouvre un nouveau tu me dis

Encore merci pour la première réponse

[Didier Gonard]

Regardes donc dans l'aide VBA à la propriété FileDialog :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub UseFileDialogOpen()
 
    Dim lngCount As Long
 
    ' Open the file dialog
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
 
        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(lngCount)
        Next lngCount
 
    End With
 
End Sub

cordialement,

Didier

[baime]

Il suffit effectivement de savoir lire mais pour cela il faut savoir quelle fonction on cherche

J'ai maintenant ce qu'il me faut c'est parfait

Merci