Discussion :

[JojoSs]

Bonjour,

Pour un besoin de dialogue entre Word et excel, j'ai récupéré ce bout de code.
-> Coller une plage de cellules Excel dans Word

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub OuvreExcel()
' Macro : OuvreExcel
 
    Set XlAppli = CreateObject("Excel.Application") 
    ' -> L'appli Excel
        Set XlCl = XlAppli.Workbooks.Open("E:\Planning\Planning_2015_B [Dev3].xlsm")
        ' -> le classeur
        Set Xlfl = XlCl.Worksheets("Rapport") 
        ' -> la feuille
 
End Sub

Mon Problème est que se chemin change...

Code :

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

Set XlCl = XlAppli.Workbooks.Open("E:\Planning\Planning_2015_B [Dev3].xlsm")

est-il possible avec un code VBA de sélectionner le fichier Excel, et le transformer en variable

Code :

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

Set XlCl = XlAppli.Workbooks.Open(CheminFichierExcel)

Merci d'avance de votre Aide.

[clementmarcotte]

Bonjour,

est-il possible avec un code VBA de sélectionner le fichier Excel, et le transformer en variable

Merci d'avance de votre Aide.

Oui

Pour utiliser les boîtes de dialogue de Word:

Chercher dans l'aide de VBA - Word
Dialog, objet : pour un exemple
WdWordDialog, énumération : Énumération xlbuiltindialog

Pour utiliser les boîtes de dialogue d'Excel:

Chercher dans l'aide de VBA - Excel
Dialog, objet : pour un exemple
Énumération xlbuiltindialog : Énumération xlbuiltindialog

[Heureux-oli]

Salut,

En plus général, on peut utiliser l'objet FileDialog.

Voilà un exemple :

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
Sub TestOliver()
Dim oDlg As FileDialog
 
Set oDlg = Application.FileDialog
 
With oDlg
    .AllowMultiSelect = False
    .InitialFileName = "C:\temp"
    .Filters.Add "FichierExcel", "*.xlsx", 1
    .Show
End With
 
MsgBox oDlg.SelectedItems(1)
 
End Sub

[JojoSs]

Un grand Merci pour votre Aide

Oui

Pour utiliser les boîtes de dialogue de Word:

Chercher dans l'aide de VBA - Word
Dialog, objet : pour un exemple
WdWordDialog, énumération : Énumération xlbuiltindialog

Merci clementmarcotte!
j'avoue que cet objet (WdWordDialog), ne pas ma pas beaucoup aidé, il m'a faits tournés en rond une bonne partie de la matinée :Lol:

Salut,

En plus général, on peut utiliser l'objet FileDialog.

Voilà un exemple :

Merci, Heureux-oli!
C'est parfait, et c'est exactement ce que je cherchais.

Par contre : juste une petite erreur sur ton code : -> Erreur de compilation : Argument non facultatif

Code :

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

1
2
     Set oDlg = Application.FileDialog 
          ' -> Erreur de compilation : Argument non facultatif

voici ma modification :

Code :

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

    Set oDlg = Application.FileDialog(msoFileDialogOpen)

Et pour ceux a qui ça intéresse : j'ai changer le dossier de recherche (il ouvre dans le dossier de mon Word)

Code :

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

1
2
3
    Dim CheminDossierActif As String
            '   .InitialFileName = "C:\temp"
            .InitialFileName = CheminDossierActif

Voici mon code complet:

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
Sub TestOliver()
    Dim oDlg As FileDialog
    Dim CheminDossierActif As String
    Dim FichierExcel As String
 
    CheminDossierActif = ActiveDocument.Path
    Set oDlg = Application.FileDialog(msoFileDialogOpen)
 
        With oDlg
            .AllowMultiSelect = False
            '   .InitialFileName = "C:\temp"
            .InitialFileName = CheminDossierActif
            .Filters.Add "FichierExcel", "*.xlsx", 1
            .Show
        End With
 
    FichierExcel = oDlg.SelectedItems(1)
    MsgBox FichierExcel
 
End Sub