salut à tous,
j'ai trouvé un code sur internet permettant d'ouvrir n'importe quel type de fichiers par vba, en spécifiant le chemin.
ceci dit, j'arrive a tous ouvrir (word, powerpoint, explorateur, internet ....) mais j'ai un souci avec les fichiers excel !
que ce soit du .xls ou .xlsx sa rentre dans une espèce de boucle infinie, et faut l'arreter de manière peu scrupuleuse ..
si quelqu'un arrive à trouver le pourquoi du comment ..
j'ai trouvé un code sur internet permettant d'ouvrir n'importe quel type de fichiers par vba, en spécifiant le chemin.
ceci dit, j'arrive a tous ouvrir (word, powerpoint, explorateur, internet ....) mais j'ai un souci avec les fichiers excel !
que ce soit du .xls ou .xlsx sa rentre dans une espèce de boucle infinie, et faut l'arreter de manière peu scrupuleuse ..
si quelqu'un arrive à trouver le pourquoi du comment ..
Code:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal fsShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL = 1
Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _
"", "C:\", SW_SHOWNORMAL)
End Function
Sub TESTM()
Dim r As Long
Dim ledoc As String
Dim chemin As String
chemin = Range("am:an").Find(what:=Range("k6")).Offset(0, 1).Value
ledoc = chemin
r = StartDoc(ledoc)
End Sub
