Ouvrir fichier excel avec vba

Version imprimable

salut a tous,

j'essaie de faire un programme pour pouvoir ouvrir n'importe quel type de fichiers à travers un code vba.

mon code est le suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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 TESTH()
         Dim r As Long
         Dim ledoc As String
         Dim chemin As String
         chemin = Range("ai:aj").Find(what:=Range("f6")).Offset(0, 1).Value
         ledoc = chemin
         r = StartDoc(ledoc)
End Sub

cependant sa marche pour TOUT type de fichiers ... office, internet, photo, text, explorateur ...

mais pour les fichiers excel, sa plante ! sa ne sort pas une msgbox d'erreur, mais sa mouline a fond sans s'en sortir ..

en mode pas a pas, apriori je detecte le bug a la ligne

Code:

1
2
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _
         "", "C:\", SW_SHOWNORMAL)

si vous avez une idée ..

merci d'avance

25/05/2013, 15h50
patricktoulon

re

bonjour
peut etre parceque pour les fichiers excel l'application est deja ouverte puisque il y a execution de la macro

peut etre que tu devrais metre une condition sur les extention (xls,xlt,xlm)
selon ta version d'exel et de fichier

cette condition dirait que si c'est du xl...

instancier une nouvelle instance d'excel et d'ouvrir le fichier sur celle ci

Au plaisir
25/05/2013, 15h57
Traputaca

je vois. sa marcherai pas parce qu'excel est déjà ouvert enfaite ?

par contre je t'avoue que je débute totalement en vba .. j'ai simplement trouver le code, j'en ai compris les grande ligne pour l'adapter à mon besoin ..

pourrais tu m'apporter un peu plus d'info ?

merci d'avance
25/05/2013, 16h22
Traputaca
suite à un avis sur un autre forum, j'ai codé de maniere différente, sans la fonction shellexecute qui était un peu "un bazooka pour tuer une mouche" .. j'ai voulu utiliser la grosse artillerie pour pas faire grand chose d'exceptionnel !

merci quand meme !

ma solution :

"Exemple
Code:

1 2 3 4 MyPath = "c:\blah\blah\" MyFile = "MonFichierEnVarialble.xls" ActiveWorkbook.FollowHyperlink Address:=MyPath & MyFile, NewWindow:=True