ouvrir un fichier quel que soit le format via vba

[Adeus33]

Bonjour le forum,

Bonne année et meilleurs vœux à toutes et à tous !

Est-il possible d’ouvrir un fichier (quel que soit le format : doc, xls, pdf…) en cliquant sur une textbox ou un label contenant l’adresse complète du fichier (dans un userform) ?

Merci d’avance et bonne journée

Adeus

 

[Modeste geedee]

Re : ouvrir un fichier quel que soit le format via vba

Bonsour®
Voir l'utilisation d'une API windows : ShellExecute
Comment faire pour utiliser ShellExecute pour lancer un fichier associé (32 bits)

 

[Adeus33]

Re : ouvrir un fichier quel que soit le format via vba

Bonjour Modeste geedee,

Merci pour ton aide, je regarde ca.

 

[Adeus33]

Re : ouvrir un fichier quel que soit le format via vba

Bonsoir,

Finalement, je m'y suis pris différemment en utilisant les fonctionnalités des liens hypertextes ...

 

[Roland_M]

Re : ouvrir un fichier quel que soit le format via vba

bonsoir,

sinon voir avec ceci: code dans un module (à adapter)

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
 (ByVal hwnd As Long, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub ShellOuvreFich()
Dim Fichier As Variant, fTypes$, Result, I%
fTypes = "Fichiers (*.*) (*.*),"
Fichier = Application.GetOpenFilename(Title:="Ouvrir", fileFilter:=fTypes)
If Fichier = False Then
   MsgBox "Pas de fichier sélectionné.", , "Microsoft"
Else
   I = InStrRev(Fichier, ".")
   If I Then
      If LCase(Mid(Fichier, I, 3)) = ".xl" Then
         ThisWorkbook.FollowHyperlink Fichier
      Else
         Result = ShellExecute(0, "Open", Fichier, "", "", 1)
      End If
   End If
End If
End Sub