Boite dialogue Ouvrir : Word pdf excel...

[perpitou]

Bonjour à tous,

J'ai (encore 😉 ) une question.

J'ai des userforms sur lesquels se trouvent des boutons accès à un répertoire par exemple :

Private Sub CommandButton1_Click()
Shell "C:\WINDOWS\EXPLORER.EXE /n,/e,C:\", vbNormalFocus
    End Sub

Dans ce répertoire j'ai des fichiers excels et je souhaite les ouvrir en cliquant simplement dessus.
Et là le problème c'est que je ne peux pas travailler sur mon fichier excel ouvert car j'ai monfichier vba qui fonctionne.

Donc à l'ouverture de l'userform, j'ai mis :

UserForm1.Show vb Modeless

Là je peux réduire mon userform mais là il se bloque ou se ferme et je ne comprend.

Il faut savoir:
- Il ya plusieurs fichiers excels avec des noms qui peuvent changer dans le répertoire.
- Mes userform sont en plein écran.

J'espère vous avoir aidé à m'aider 😉.

Cordialement,
Perpitou

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

J'ai trouvé la fonction filadialog, Pensez vous que cela fonctionnera dans mon cas? Comment l'utiliser?

Merci d'avance.

 

[kiki29]

Re : Ouverture fichier excel dans d'autres classeurs.

Salut, [F1] et Google

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Merci je sais bien mais l'intérêt est de savoir quel est l'avantage de cette fonction par rapport à ce que j'ai fait.

Merci...

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Je vous transmets un bout de mon fichier car je suis totalement à l'arrêt. Mais je continue à chercher... 😉

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Private Sub CommandButton1_Click()
Dim Wbk As Workbook
Dim dialop As FileDialog
Set dialop = Application.FileDialog(msoFileDialogOpen)
dialop.InitialFileName = "C:\"
dialop.Show
If dialop.SelectedItems.Count > 0 Then
Set Wbk = Workbooks.Open(dialop)
   
Wbk.Close False

End If
Set dialop = Nothing
 
End Sub

Pourquoi ça fonctionne pas?

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Bonjour,

regarde ceci, en espérant que cela puisse t'aider à avancer :

With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "ma descrip", "*.xls"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then Workbooks.Open   .SelectedItems(1)
End With

bonne journée
@+

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Encore une fois merci pierrot mais pourquoi msoFileDialogFilePicker au lieu de msoFileDialogOpen. Je suis bloqué et je ne comprend plus

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Re,

ceci fonctionne également chez moi..

With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "ma descrip", "*.xls"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1)
End With

A noter il faut enleer le "=" lors de l'ouverture, je modifie le post précédant...

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Mais je n'accède toujours pas au fichier que j'ouvre

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

vb workbook false ça fonctionne? Je n'auras pas le même problème alors??

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Re,

vb workbook false ça fonctionne? Je n'auras pas le même problème alors??

euh.. c'est quoi ??

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Excuses moi n'importe quoi: dans les propriétés de mon userform j'ai mis Showmodal : false

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Re,

pas de problème chez moi, si instruction lancée à partir d'un usf non modal... le fichier s'ouvre et je peux le modifier...

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Après on peut reprendre notre fichier VBA?