[XL-2003] FileDialog: ouvrir excel dans autres instance et pouvoir ouvrir les autres fichiers.

[perpitou]

Bonjour à tous,
J'ai réussit à faire ça pour pouvoir ouvrir mais fichier excel dans d'autres applications excel. Seuls problèmes je ne peux plus ouvrir les autres ficheirs (pdf word ou autres) Que faut il modifier?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton3_Click()
 
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
 
 
End Sub

Merci d'avance

[jfontaine]

Bonjour,

Test l'extension du fichier a ouvrir et gère une ouverture différente suivant cette extension

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
    If .SelectedItems.Count > 0 Then
        Select Case Split(.SelectedItems(1), ".")(UBound(Split(.SelectedItems(1), ".")))
            Case "xls"
                Set x = CreateObject("Excel.Application")
                x.Visible = True
                x.Workbooks.Open .SelectedItems(1)
                Set x = Nothing
            Case "doc"
                '...
            Case Else
                MsgBox "extension de fichier non pris en charge"
        End Select
    End If