Pouvoir ouvrir des fichiers excel avec vba sans le faire planterRésolu

Question

Bonjour à tous,

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 :
Code :
UserForm1.Show vb Modeless

Là je peux réduire mon userform mais 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.

Avez vous une solution à cela?

Cordialement,
Perpitou

ucfoutu · Accepted Answer

Exact ! T'as tout compris 
Alors comment traiter ?
on va commencer par le plus simple : un classeur Excel. Pourquoi ? ===>>
Parce que ce coquin de Microsoft/Excel s'est "réservé" une priorité assez bienvenue : l'ouverture d'un classeur utilisera spontanément l'application Excel si l'on utilise la méthode execute de l'objet dialop ===>>
Regarde et vois ce qui se passe en choisissant un classeur (donc index 1) :
Dim dialop As FileDialog
    Set dialop = Application.FileDialog(msoFileDialogOpen)
    dialop.InitialFileName = "C:"
    dialop.Filters.Clear
    dialop.Filters.Add "classeurs Excel", "*.xlsm; *.xls", 1
    dialop.Filters.Add "documents Word ", "*.doc; *.doc", 2
    dialop.Show
    If dialop.SelectedItems.Count > 0 Then
      MsgBox "tu as choisi " & dialop.SelectedItems(1) & vbCrLf & _
      " et ton fichier en cours est " & Application.Path & "" & ThisWorkbook.FullName & vbCrLf & _
      "et tu as sélectionné sur le filtre d'index " & dialop.FilterIndex 
    End If
    Select Case dialop.FilterIndex
      Case 1: dialop.Execute
      Case Else: MsgBox "pas encore traité. On y viendra ensuite"
    End Select
    Set dialop = Nothing

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Bonjour,
Pourquoi te compliquer ainsi la vie, à passer par l'explorateur, alors que VBA/Excel t'offre l'objet FileDialog (à voir dans ton aide VBA), bien plus souple et élégant et que tu peux de surcroît assortir d'une expression conditionnelle pour refuser ton propre fichier en cours ?

Même l'intruction DIR et une listbox, moins élégants ,  seraient mieux que l'utilisation de Explorer.exe ! 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Sans compter que tu pourrais utiliser un filtre pour ne proposer que des classeurs Excel et non TOUS les fichiers présents !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Bonjour ucfoutu,

tout d'abord merci de t'interesser à mon travail. Je ne veux pas de filtre car je souhaite pouvoir récupérer et ouvrir tous types de fichiers mais mon problème je le rencontre en ouvrant des fichiers excels.

Après j'utilise l'explorateur pour aller chercher des dossiers sur son ordinateur.

Pour "VBA/Excel t'offre l'objet FileDialog" et  "Même l'intruction DIR et une listbox, moins élégants , seraient mieux que l'utilisation de Explorer.exe" : ce n'est pas que je ne veux pas mais je ne connais pas donc j'ai fait avec ce que j'ai pu trouver sur le net.

ucfoutu · Answer

mais je ne connais pas donc j'ai fait avec ce que j'ai pu trouver sur le net

Pourquoi chercher plus loin ce que tu as tout près (ton aide VBA) et assorti d'un exemple, en plus ?
Tu ne veux pas de filtre ? C'est encore plus simple, alors (ça en moins)
Vas-y (lis ce qu'est FileDialog) et essaye. Reviens si tu t'y perds malgré cette lecture.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Le  problème reste le même j'ouvre le fichier excel et ça fonctionne pas

ucfoutu · Answer

et je t'ai dit plus haut :
tu peux de surcroît assortir d'une expression conditionnelle pour refuser ton propre fichier en cours 
l'as-tu fait ? 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Excuses moi encore d'être aussi mauvais mais je n'arrive toujours pas à ouvrir le fichier... et 
tu peux de surcroît assortir d'une expression conditionnelle pour refuser ton propre fichier en cours 
Je n'en  parle même pas...

ucfoutu · Answer

Hé bé !
Tu attends du tout cuit ? As-tu ouvert ton aide VBA, comme je te le demandais, au moins ?
Je veux bien commencer un peu, mais pas à pas, juste pour voir ...
Premier pas :
un bouton de commande et :
Private Sub CommandButton4_Click()
    Dim dialop As FileDialog
    Set dialop = Application.FileDialog(msoFileDialogOpen)
    dialop.InitialFileName = "C:"
    dialop.Show
    If dialop.SelectedItems.Count > 0 Then
      MsgBox "tu as choisi " & dialop.SelectedItems(1) & vbCrLf & _
      " et ton fichier en cours est " & Application.Path & "" & ThisWorkbook.Name
    End If
    Set dialop = Nothing
End Sub
tu cliques sur ce bouton ===>> et tu vois ===>> tu choisis un fichier ===>> ouvrir ===>> et tu vois ...
Je t'ai là non seulement mis sur la voie, mais t'ai pratiquement tout fait 
Te reste juste une expression conditionnelle (super-évidente) pour ne traiter qu'un fichier qui ne serait pas le tien.
A toi,maintenant (quand-même) !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Ok ok! je partais sur un truc complètement différent... J'essaye de voir.

Merci beaucoup pour ta patience et ta disponnibilité..

perpitou · Answer

Ok je suis vraiment nul je n'arrive pas à modifier ce code... Je suis désolé pour mon incompétence mais je ne comprend pas..

ucfoutu · Answer

Il n'y a à ce stade rien à modifier à ce code ! Il est à compléter (les actions à conduire sur le fichier choisi ).
Qu'entends-tu par "modifier" ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Oui en le testant je me suis bien rendu compte qu'il fonctionnait mais je souhaite sélectionner et ouvrir. Pour cela j'ai modifier : (msoFileDialogOpen)par (msoFileDialogFilePicker). J'ai pas réussit après, j'ai fait ce code qui ne fonctionne pas :

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

ucfoutu · Answer

Tu as pourtant vu ce qui s'affichait dans la msgbox (mon code).
Quel y est selon toi le chemin du fichier que tu as choisi ? 
dialop seul n'est pas un fichier, mais (regarde bien) : la boîte de dialogue elle-même !
Je vais te laisser là et te laisser travailler avec sérieux. Ne reviens pas avant cet effort (je ne reviendrai sur cette discussion avant d'avoir laissé passer un temps raisonnable ... deux heures ... pas avant, de sorte à ce que tu en profites pour exercer tes neurones ).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Je vais y arriver.. Mais je vais manger là je reviens plsu tard.
Private Sub CommandButton4_Click() 
Dim dialop As FileDialog 
Set dialop = Application.FileDialog(msoFileDialogOpen) 
dialop.InitialFileName = "C:" 
dialop.Show 
If dialop.SelectedItems.Count > 0 Then 
Workbooks.Open Filename: = dialop.SelectedItems(1) 
End If 
Set dialop = Nothing 
End Sub

perpitou · Answer

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

ucfoutu · Answer

Bon !
2ème étape, maintenant (avant d'aller plus loin, mais après, hein ...)
1) Que veux-tu maintenant exactement faire avec le fichier choisi ?
2) tu as dit plus haut que tu voulais ouvrir "tous fichiers", mais voilà que tu ne t'intéresses apparemment qu'aux classeurs Excel (ton "Workbooks.Open Filename:=dialop.SelectedItems(1)")
Qu'en est-il exactement, donc ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Oui je veux ouvrir tous les fichiers et oui je m'aperçois donc que je me suis planté...

ucfoutu · Answer

Oui je veux ouvrir tous les fichiers et oui je m'aperçois donc que je me suis planté...

Tu commences à mesurer la nécessité d'être terès précis.
Mais dis-nous : vraiment TOUS les fichiers ? (car, y compris depuis Explorer, tous ne s'ouvriront pas ainsi). Précise ce point également.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Excel, Word, Pdf ,Dwg et c'est tout! La je suis entrain de chercher le code correspondant

ucfoutu · Answer

Alors à CE stade, regarde :
Dim dialop As FileDialog
    Set dialop = Application.FileDialog(msoFileDialogOpen)
    dialop.InitialFileName = "C:"
    dialop.Filters.Clear
    dialop.Filters.Add "classeurs Excel", "*.xlsm; *.xls", 1
    dialop.Filters.Add "documents Word ", "*.doc; *.doc", 2

    dialop.Show
    If dialop.SelectedItems.Count > 0 Then
      MsgBox "tu as choisi " & dialop.SelectedItems(1) & vbCrLf & _
      " et ton fichier en cours est " & Application.Path & "" & ThisWorkbook.FullName
    End If
    Set dialop = Nothing

J'ai dsans cet exemple :
- supprimé les filtres éventuellement présents
- ajoutés des filtres pour Excel et Word
regarde ce qui t'es maintenant proposé dans l'onglet "type de fichiers" 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

J'arrive à ouvrir les fichiers excel mais pasl es autres aaaaa

perpitou · Answer

dialop.Filters.Add "Tous les fichiers", "*.*",

perpitou · Answer

Dim x As Excel.Application
With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = ActiveWorkbook.Path & ""
    .Filters.Clear
    .Filters.Add "Tous les fichiers", "*.*"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Set x = CreateObject("Excel.Application")
        x.Visible = True
        x.Workbooks.Open .SelectedItems(1)
                   
           Set x = Nothing
    End If
End With

En prenant compte ce que tu m'avais dit et en utilisant des bouts de code sur facebook j'ai fait ça

perpitou · Answer

Enfin internet, je ne vois pas pourquoi j'ai écrit facebook

ucfoutu · Answer

J'arrive à ouvrir les fichiers excel mais pasl es autres aaaaa
Comme nt cela ! ?
As-tu bien lu :
regarde ce qui t'es maintenant proposé dans l'onglet "type de fichiers" 
Reprends mon code et regarde mieux  (car tes "*.*" ===>> pas convenable car =  tous les fichiers !)
Et cesse de chercher ailleurs  ce que tu as dans ton aide VBA  (tu t'en porteras mieux, crois-moi).
Rappel : o n'en est pas encore à les ouvrir, mais juste à les afficher ppour y choisir. Et le reste, qui viendra en dernière étape, devra dépendre du choix, précisément.

____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

On repart sur  Ton code :

Dim dialop As FileDialog
    Set dialop = Application.FileDialog(msoFileDialogOpen)
    dialop.InitialFileName = "C:"
    dialop.Filters.Clear
 dialop.Filters.Add "classeurs Excel", "*.xlsm; *.xls", 1
 dialop.Filters.Add "documents Word ", "*.doc; *.doc", 2
 dialop.Filters.Add "Documents autocad ", "*.dwg; .dxf", 3
 dialop.Filters.Add "Les photos ", "*.jpeg", 4

    dialop.Show
    If dialop.SelectedItems.Count > 0 Then
      MsgBox "tu as choisi " & dialop.SelectedItems(1) & vbCrLf & _
      " et ton fichier en cours est " & Application.Path & "" & ThisWorkbook.FullName
    End If
    Set dialop = Nothing

perpitou · Answer

Mes compétences s'arrêtent là... Je n'y arrive pas! Merci quand même

ucfoutu · Answer

Bon (j'en déduis que cette fois-ci tu as "vu")

Juste une petite explication générale, maintenant.
Les "mots" de Microsoft se terminant par la lettre "s" ré réfèrent toujours à une collection des objets de même nom au singulier.
Ainsi, dans le code montré : Filters veut dire la collection des objets Filter, SelectedItems veut dire collection des objets selecteditem.
Toutes les collections d'objets répondent aux même méthodes (add, pour ajouter un objet, Clear, pour effacer, etc ...) et ont un index (que l'on a utilisé par exemple pour ajouter des filtres : index 1 pour les classeurs Excel, 2 pour les documents Word). Ont peut en ajouter ainsi autant que l'on veut).
Pigé ? ===>> on continue === >>
tu veux maintenant, si j'ai bien compris, pouvoir ouvrir/exécuter le fichier choisi ?

Or, il va falloir les ouvrir différemment selon leur catégorie (un classeur Excel, par exemple, ne s'ouvre pas comme un document Word, un fichier texte, etc...)

 Etape 3, donc : savoir à quelle catégorie appartient le fichier choisi   ===> fastoche ! nous allons le savoir grâce à la propriété FilterIndex de ton objet dialop . Elle te retourne tout bêtement l'index du filtre (Filter) choisi dans la collection Filters ===>> regarde ce que ton donne maintenant la msgbox avec, cette fois-ci :
Dim dialop As FileDialog
    Set dialop = Application.FileDialog(msoFileDialogOpen)
    dialop.InitialFileName = "C:"
    dialop.Filters.Clear
    dialop.Filters.Add "classeurs Excel", "*.xlsm; *.xls", 1
    dialop.Filters.Add "documents Word ", "*.doc; *.doc", 2
    dialop.Show
    If dialop.SelectedItems.Count > 0 Then
      MsgBox "tu as choisi " & dialop.SelectedItems(1) & vbCrLf & _
      " et ton fichier en cours est " & Application.Path & "" & ThisWorkbook.FullName & vbCrLf & _
      "et tu as sélectionné sur le filtre d'index " & dialop.FilterIndex '<regarde ici
    End If
    Set dialop =  Nothing

C'est cet index (la denière ligne affichée) qui va nous permettre de savoir avec quel logiciel ouvrir le fichier affiché en 2ème ligne.
Pigé ? Teste et on passe à la 4ème étape ensuite.

PS : il faut que tu saches trois choses : 
1) je n'utilise personnellement jamais cette boîte de dialogue, ni même le composant CommonDialog (j'utilise pour mes applis directement les fonctions de l'Api de Windows)
Pour te renseigner, j'ai donc étudié en même temps que toi l'utilisation de cette boîute de dialogue 
2) je n'utilise non plus jamais ce que je vais te faire faire en 4ème étape (pour celle-la également, j'utilise une fonction de l'Api de Windows - ShellExecute - qui m'affranchit de la nécessite de déterminer à l'aide de quel logiciel ouvrir le fichier choisi).
Mais tu es débutant !  Je veux donc éviter pour l'instant d'utiliser autre chose que ce que t'offre nativement VBA  quitte à te montrer autre chose après que tu auras assimilé ce qui est à ta portée. Je serais à ce propos assez reconnaissant aux visiteurs avertis de cette discussion de ne pas venir "étaler" d'ores et déjà ShellExecute
3) le fait que nous sommes en fin de semaine m'a paru l'opportunité donnée d'y aller ainsi pas-à-pas, tout en m'assurant de rester à ta portée. Ce n'est dans mon esprit pas peine perdue, ni pour toi, ni pour d'autres débutants "tombant" sur la présente discussion.
____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

J'ai utilisé shellexecute, c'est vrai c'est simple mais après quand je l'ouvrais il se mettait dans l'application excel de mon fichier excel. 
Merci de m' expliquer tous les détails.

C'est top! Tu choisis le dossier que tu veux mais il t'indique l'index donc le type de fichier que tu as choisis.

Donc si j'ai bien compris ta démarche, tu me montres qu'on établit  des index selon les extensions. 
En choisissant, un fichier, on choisit donc un type de fichier renseigné par l'index que nous allons utiliser pour l'ouverture de nos documents. Exact?

ucfoutu · Answer

Ah ... Mais je viens de voir que (et en plus sur la base de ce que tu as appris ici), tu es allé "à la pêche" ailleurs (et pour tout te dire, je n'apprécie pas vraiment) . Pourquoi continuerais-je alors sur une lancée didactique, qui me demande des efforts, dans de telles conditions ? Il est certain que tu y trouveras (là-bas) une bonne âme (faux cadeau, à mon avis) qui t'écriras un code que tu n'auras plus qu'à copier, sans être vraiment passé par les étapes de compréhension auxquelles je voulais te conduire pas à pas, en parfaite connaissance de cause.
Tu voudras alors bien comprendre que j'arrête ici tout net ce que j'avais entrepris. 



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Bonjour,
J'ai vraiment besoin de ton aide car je n'arrive pas à trouver seul les codes ! Oui je suis allé voir ailleur car je croyais que tu n'allais pas m'aider! 
peux tu finir ton explication stp!

Excuses moi encore une fois!

ucfoutu · Answer

J'ai vraiment besoin de ton aide car je n'arrive pas à trouver seul les codes ! Oui je suis allé voir ailleur car je croyais que tu n'allais pas m'aider! 
Elle est bien bonne ! Et à la même heure !
Et tu ne reviens que parce qu'abandonné "ailleurs"...
Bon ..
Tu étais impatient ? un peu capricieux ? ===>> je reviendrai dans ce cas continuer, mais pas avant une bonne semaine, maintenant. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

perpitou · Answer

Impatient et stupide car en plus de me donner les codes tu m'expliquais les fonctions et c'est important si je veux les adapter...
Enfin si tu as le temps un de ces 4 c'est avec plaisir.

Désolé merci et à la prochaine!

perpitou · Answer

Juste pour info cette partie reste pour une énigme!
 Select Case dialop.FilterIndex
      Case 1: dialop.Execute
      Case Else: MsgBox "pas encore traité. On y viendra ensuite"
    End Select

perpitou · Answer

J'ai essayé avec shell, shell execute...

Mais ce qui est bizare c'est que par moment il s'ouvre normalement sans faire planter vba et on réeffectue la même opération et hop ça plante...

perpitou · Answer

Bon je n'ai pas de solution à mon problème... Si quelqu'un peut m'aider??

Pouvoir ouvrir des fichiers excel avec vba sans le faire planter

37 réponses

Votre réponse

Discussions similaires