Ouvrir un fichier html dans excel à partir d'une macro

[morinn]

Bonjour,
j'aimerai ouvrir un fichier html dans excel à partir d'une macro mais si je fais :

Workbooks.Open Filename:= _
        "C:\Documents and Settings\MONPC\Mes documents\DOSSIER\SOUSDOSSIER\monfichier.html"

cela marche mais si je partage mon fichier excel et mes fichiers html, les autre utilisateurs n'auront pas le même chemin d'accès.

Y a t-il une commande par une macro qui pourrait ouvrir le fichier html sans préciser de dossier :
on aurait, mon fichier serait dans dossier/sousdossier et mon fichier excel dans dossier.
La commande dirait d'aller chercher juste dans sousdossier, un peu comme une commande html classique pour un site web par exemple

Merci

 

[Softmama]

Re : Ouvrir un fichier html dans excel à partir d'une macro

Bonsoir,

Je crains de ne pas avoir tout compris, mais je tente avec ton sous dossier qui s'appellerait "TOTO" et ton fichier "Holebeaufichier.xls":

Sub OpenMyFile(nF as String)
Chemin = Thisworkbook.path & "\"
SousDossier = "TOTO" & "\"
Workbooks.Open Filename:= Chemin & SousDossier &  nf & ".xls"
end sub

que tu peux lancer depuis une macro par

OpenMyFile "Holebeaufichier"

 

[morinn]

Re : Ouvrir un fichier html dans excel à partir d'une macro

C'est parfait ça marche !
Merci beaucoup
J'ai juste modifier le

Workbooks.Open Filename:= Chemin & SousDossier &  nf & ".xls"

en

Workbooks.Open Filename:= Chemin & SousDossier &  nf & ".html"

Merci encore