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é)

[Markos22]

Ce qu'il y a de compliqué, c'est que tu t'embarrasse de précisions d'extensions et de trouver la bonne application pour ouvrir les fichiers, alors que si je pars d'un fichier Excel pour ouvrir un autre fichier Excel, on ne devrait pas avoir à ajouter tous ces paramètres.

Mais comme je te le dis, je dois être un peu idiot, mais je débute en VBA et je ne parviens pas à mettre en application ton code...

[Markos22]

Bon. GetOpenFilename renvoie le chemin du fichier ouvert. Bon. Mais comment je fais après pour basculer d'une fenêtre à l'autre ? Et pourquoi le code suivant :

Code :

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

1
2
chemin = Application.GetOpenFilename
wb = Workbooks(chemin)

ne fonctionne pas ?
et

Code :

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

1
2
w = Windows(chemin)
w.Activate

non plus ?

Il n'y a pas d'objet "File" en VBA, avec des méthodes adéquates ? Comment récupérer un objet Workbook, à partir du code que tu m'as donné ? C'est ça que je ne comprends pas. Je voudrais manipuler un objet Workbook.
Merci de ton aide.

[patricktoulon]

non!!! les dialog dans les deux cas que je t'ai présenté ne renvoient absolument rien d'autre que le string du chemin complet du fichier

si tu veux déterminer workbook(1) (celui de la macro et workbook(2) celui que tu ouvre
il te faut les mémoriser dans une variable object (workbook)
et la on est pas du tout dans le registre de ta question initiale qui n'a rien a voir d'ailleurs

pour déterminer tes deux Wbk il te suffit de mettre en haut de module d

Code :

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

1
2
Dim WBK1 As Workbook
Dim WBK2 As Workbook

ET !!!!faire avant ton fildialog

Code :

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

set wbk = thisworkbook

et après l'ouverture du 2d

Code :

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

set wbk2 = activeworkbook

et jouer avec les activate

[Markos22]

Si tu trouves que ça n'a rien à voir avec ma question initiale, c'est que je me suis mal exprimé. Tout mon problème est d'ouvrir un nouveau classeur et pouvoir y faire référence.
Quant au code que tu me donnes, quelque chose doit m'avoir échappé, parce que c'est exactement ce que j'ai fait, et ça ne marche pas !

Voici le code que j'ai essayé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim c As Range
    Dim fd As FileDialog
    Dim w1 As Workbook
    Dim extraction As Workbook
 
    Application.ScreenUpdating = False
 
    'Sélection et ouverture du fichier d'extraction de la base de données
    w1 = ThisWorkbook
    fd = Application.FileDialog(msoFileDialogOpen)
    fd.Show
    fd.Execute
    Set extraction = ActiveWorkbook

et le code d'erreur qui me renvoie à l'affectation de la variable fd :
Erreur de compilation : Utilisation incorrecte de la propriété

Merci pour ta patience

[patricktoulon]

regarde cet exemple
j'ouvre un classeur et reactive le classeur 1 le 2 etant en dessous

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
19
20
21
22
Dim wind1 As String
Dim wind2 As String
Sub testx()
     wind1 = ThisWorkbook.Name
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Add "Images", "*.xls; *.xlsm; *.xlsx; *.xlsb", 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
           Workbooks.Open Filename:=chemin
        End If
    End With
wind2 = chemin
 
    Windows(wind1).Activate
'plustard selon besoin 
'Windows(wind2).Activate
End Sub

[Markos22]

Je dois être débile. J'ai du mal à comprendre, mais je crois qu'il s'agit d'une erreur de syntaxe à la con. En effet, le code suivant fonctionne bien :

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
19
Sub essai2()
    Dim file As FileDialog
    Dim w As Window
    Dim chemin As String
    Dim target As Workbook
    Dim source As Workbook
 
    Set source = ThisWorkbook
 
    With Application.FileDialog(msoFileDialogOpen)
 
        .Show
        .Execute
        Set target = ActiveWorkbook
        MsgBox target.Name
 
    End With
 
End Sub

fonctionne très bien.

Mais celui-ci :

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
    Dim c As Range
    Dim w1 As Workbook
    Dim extraction As Workbook
 
    Application.ScreenUpdating = False
 
    'Sélection et ouverture du fichier d'extraction de la base de données
    Set w1 = ThisWorkbook
 
    With Application.FileDialog(msoFileDialogOpen)
        .Show
        .Execute
    End With
 
    Set extraction = ActiveWorkbook

Me renvoie une erreur d'exécution : Variable objet ou variable de bloc With non définie.

Manque de bol : la première est un test, la deuxième est ma procédure Workbook_Open() avec laquelle je me bats depuis tout à l'heure. Je continue d'étudier comment adapter ta proposition...

[Markos22]

Je commence à comprendre ton code. Tu n'utilises pas la méthode Execute, mais Workbook.Open. Après, tu peux récupérer le nécessaire.
Merci. Je vais étudier la question. Pour l'instant, ma journée est finie, et je ne vais pas pouvoir apporter ce travail chez moi, car les fichiers sont volumineux et ils n'ont pas à sortir de l'entreprise. Je reprendrai ça lundi. Mais je vais essayer d'y réfléchir.

Merci pour ton aide précieuse et ta patience.
A bientôt, bon weekend.

[Markos22]

Bonjour,

Voici mon code :

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
    Dim c As Range
    Dim copie As String
    Dim extraction As String
 
    Application.ScreenUpdating = False
 
    'Sélection et ouverture du fichier d'extraction de la base de données
    copie = ThisWorkbook.Name
 
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        If .Show = -1 Then
            extraction = .SelectedItems(1)
            Workbooks.Open fileName:=extraction
        End If
    End With
 
    Windows(extraction).Activate

Mon message d'erreur : Erreur d'exécution '9': L'indice n'appartient pas à la sélection

Apparemment, ce message est déclenché par la dernière ligne : Windows(extraction).Activate. J'ai vérifié que la variable extraction renvoie bien le nom de mon fichier. Je ne comprends pas l'erreur.

J'ai beau relire et comparer avec ton code, je ne comprends pas.

[Markos22]

Re-Bonjour,

Merci de m'aider, SVP. Je suis en retard et ma mission se termine mercredi. Je n'arrive plus à avancer dans mon travail et c'est inquiétant.

[Markos22]

Ce que j'aimerais, c'est comprendre comment on utilise la méthode "Activate". Pourquoi j'ai cette erreur lorsque je fais :

Code :

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

Workbooks("MonFichier.xlsx").Activate

mais également lorsque je fais :

Code :

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

Windows("MonFichier.xlsx").Activate

[Marc-L]

Bonjour,

le message d'erreur et son aide indiquent la raison !

Activer l'Enregistreur de macro puis opérer manuellement :  une base de code est livrée sur un plateau …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Markos22]

C'est ce que je fais depuis trois heures ! Sans résultat !

[Marc-L]

Aucun souci de mon côté en procédant ainsi et ce depuis des dizaines d'années !

Montrer au moins le code généré par l'Enregistreur …

[Markos22]

Difficile d'enregistrer une macro qui ouvre un FileDialog. Le code généré pour ouvrir un fichier est :

Code :

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

    Workbooks.Open fileName:="Z:\Mon\Chemin\de\Fichier\MonFichier.xlsx"

Mais ça ne nous avance pas à grand-chose. De fait, s'il y avait une façon de passer par l'enregistreur de macro sans faire de programmation, je ne m'embêterais même pas à faire du VBA. Ce que je cherche à faire, c'est créer une variable qui permette de manipuler des fichiers. Il s'agit de copier des données qui se trouvent dans un fichier pour les utiliser dans un autre fichier. Pour cela, j'ai créé une procédure qui permet de copier du contenu d'un objet ListObject A d'un classeur vers un autre objet ListObject B d'un autre classeur.