Discussion :

[Markos22]

Bonjour,

Je viens de découvrir un super objet dans VBA, qui va m'être d'une grande utilité :

Code :

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

1
2
3
4
5
Dim file As FileDialog
 
    Set file = Application.FileDialog(msoFileDialogOpen)
    file.Show
    file.Execute

Ce code permet de sélectionner un fichier dans l'explorateur de documents Windows, et ouvre le fichier.
Le problème, c'est que je ne peux rien en faire. Il ne renvoie aucun objet que je puisse récupérer pour faire référence au fichier ou à la fenêtre que j'ai ouverte. Or, comme j'ai besoin de faire référence alternativement au classeur dans lequel se trouve la macro et au fichier que je viens d'ouvrir avec le FileDialog, j'ai besoin de mettre dans une variable le nom du fichier ou l'index de la fenêtre, de la feuille ou de ce que vous voulez qui puisse me permettre de basculer d'une fenêtre à l'autre.

Or, au moment où j'exécute la FileDialog, ActiveWorkbook ne renvoie rien, ni ActiveSheet, ni ActiveWindow.
Quant à SelectedItems, je ne sais pas à quel type d'objet il correspond, ni comment l'utiliser.

C'est dommage, j'ai vraiment besoin de cette fonctionnalité.

Merci d'avance de votre aide.
A bientôt

[patricktoulon]

annalise cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        If .Show = -1 Then
            'récuperation du chemin complet et extraction du nom avec son extention
            chemin = .SelectedItems(1)    'recupere le chemin complet
            juste_le_nom = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\") + 1, Len(.SelectedItems(1)))    'recupere le nom du fichier
            MsgBox chemin & vbCrLf & juste_le_nom & vbCrLf & "avec createobject(wscript.shell)=.run" & vbCrLf & "on ouvre le fichier avec le programe par defaut pour ce type de fichier"
            'a la place de ton file.execute
            CreateObject("WScript.Shell").Run juste_le_nom
        End If
    End With
End Sub

[patricktoulon]

et si je m'inspire de ton besoins selon tes explications,persoj'aurais pas utilisé cet boite de dialog
mais "getopenfilename " qui ne fait que renvoyer le nom du fichier que tu a selectionné

et F1 c'est pour tout le monde

Code :

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

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

et pour le dialog msofiledialog que tu examine il est possible aussi de la meme maniere que getopenfilename d'ajouter les filtres d'extention de fichier
comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .AllowMultiSelect = False
        If .Show = -1 Then
            'récuperation du chemin complet et extraction du nom avec son extention
            chemin = .SelectedItems(1)    'recupere le chemin complet
            juste_le_nom = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\") + 1, Len(.SelectedItems(1)))    'recupere le nom du fichier
            MsgBox chemin & vbCrLf & juste_le_nom & vbCrLf & "avec createobject(wscript.shell)=.run" & vbCrLf & "on ouvre le fichier avec le programe par defaut pour ce type de fichier"
            'a la place de ton file.execute
            CreateObject("WScript.Shell").Run juste_le_nom
        End If
    End With
End Sub

[Markos22]

Peut-être que mon cas est plus simple que ça : le fichier à ouvrir est forcément un fichier Excel. Et j'espère que c'est plus simple, parce que je dois être idiot, mais je n'arrive pas trop à utiliser le code que tu me propose. La méthode Application.GetOpenFilename est censée renvoyer un objet Workbook, mais si je fais :

Code :

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

1
2
wb = Application.GetOpenFilename
Msgbox wb.Name

ça ne marche pas !

L'idée, c'est d'utiliser

Code :

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

wb.Activate

afin de basculer d'un classeur à l'autre.

[patricktoulon]

plus simple que ca????????????
et alors?????
tu entends quoi par plus simple que ca ???
qu'est ce qu'il y a de compliqué dans ce que je t'ai montré ??

si tu veux une boite de dialog pour ouvrir ton fichier excel et en recuperer le nom , tu que ces 2 choix

maintenant sans recupérer le nom tu a deja l'exemple avec msofiledialogopen
et sans le nom a recupérer il y en a une 3ème aussi

[Markos22]

(voir message précédent modifié)