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

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Re,

bah oui, l'usf étant toujours présent à l'écran et en mémoire....

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Comment puis je faire pour ouvrir le fichier excel dans une autre application excel que celle qui utilise mon fichier vba?

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Re,

Regarde peut être ceci :

Dim x As Excel.Application
Set x = CreateObject("Excel.Application")
x.Visible = True

mais bon.... en l'état, vois pas trop l'intérêt...

bon après midi
@+

 

[MJ13]

Re : Ouverture fichier excel dans d'autres classeurs.

Bonjour Perpitou, Kiki, Pierrot

Comment puis je faire pour ouvrir le fichier excel dans une autre application excel que celle qui utilise mon fichier vba?

Normalement, on peut le faire avec Shell 🙂(ne pas confondre avec Total 😱) .

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

désolé je vais essayer ton code pierrot!

Pour la fonction shell c'est ce que j'utilise et j'arrive pas à manipuler mes ficheirs excel...

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Je peux l'ouvrir donc pas de problème .
Le showmodal de chaque userform est false.
Maintenant j'ai toujours le problème de pouvoir ouvrir et travailler sur d'autres fichiers.
J'ai essayé d'ouvrir une nouvelle application de Excel afin d'ouvrir le fichier mais mon code ne fonctionne pas:

Private Sub CommandButton3_Click()
Dim x As Excel.Application
Dim dialop As FileDialog
Set dialop = Application.FileDialog(msoFileDialogOpen)
dialop.InitialFileName = "C:\"
dialop.Show
Set x = CreateObject("Excel.Application")
If dialop.SelectedItems.Count > 0 Then
x.Visible = True
Workbooks.Open Filename:=dialop.SelectedItems(1)
End If
Set dialop = Nothing

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Bonjour,

Exécuté à partir d'un usf, le code ci-dessous ouvre bien le classeur selectionné dans une autre instance Excel...

Dim x As Excel.Application
With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Filters.Clear
    .Filters.Add "ma descrip", "*.xls"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Set x = CreateObject("Excel.Application")
        x.Visible = True
        x.Workbooks.Open .SelectedItems(1)
        'tes actions sur le classeur nouvellement ouvert
        x.Quit
        Set x = Nothing
    End If
End With

j'ai même pu travailler dessus d'ailleurs... voir exécuter un autre usf alors que le 1er était toujours en cous d'exécution... normal puisque 2 instances....

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Et si je veux pouvoir ouvrir d'autres fichiers je n'ai plus qu'à modifier les filtres? Tu sais je veux ouvrir les pdf word excel et dwg.

Le problème va se poser avec :

x.Workbooks.Open .SelectedItems(1)

qui est que pour les ficheirs excel??

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Pourquoi sur mon fichier il ouvre le fichier excel dans une nouvelle instance donc autant te dire que c'est génial et après paf... il se ferme seul?

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Re,

il se ferme seul?

normal, il y a "application.quit" qui ferme la 2ème instance d'excel, donc les classeurs ouverts dans celle-ci....

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

oui j'ai vu ça... Désolé.

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Je suis obligé de rentrer l'extension de chaque type de fichier? Je ne peux pas autoriser d'ouvrir tous les types de fichiers??

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Re,

essaye avec ceci :

    .Filters.Add "ma descrip", "*.*"

 

[perpitou]

Re : Ouverture fichier excel dans d'autres classeurs.

Ok mais avec ce code il m'ouvre tout dans le classeur excel? Que dois je changer?

 

[Pierrot93]

Re : Ouverture fichier excel dans d'autres classeurs.

Re,

Ok mais avec ce code il m'ouvre tout dans le classeur excel?

bah, ce code est spécifique pour les fichiers Excel...

x.Workbooks.Open .SelectedItems(1)