Discussion :

[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 :

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
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 :

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

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