ouverture de ppt, html, pdf ou autre à partir d'xl

[roulio]

Salut'

J'ai une feuille xl qui répertorie différents types de documents (word, excel, ppt, pdf, html, autres), et j'aimerais pouvoir ouvrir n'importe quel type de ces fichiers en lançant l'appli leur est associée.

Merci pour votre réponse !

 

[bellenger florian]

Bonjour,


je suis actuellement face au même type de problème et j'essaie de m'en dépatouiller en traitant les types cas par cas.




Pour les fichiers excel, j'ai rentré les lignes suivantes:

Dim s As String
s = reffichier.Path 'on récupère le chemin d'accès au fichier
Workbooks.Open Filename:=s, UpdateLinks:=0, ReadOnly:=True


Pour les fichiers word, à force d'essayer tout et n'importe quoi, j'ai fini par tomber sur les lignes suivantes:

Dim s As String

s = reffichier.Path 'on récupère le chemin d'accès au fichier

Set appWD = CreateObject("Word.Application")

Application.ActivateMicrosoftApp (xlMicrosoftWord)

appWD.Documents.Open Filename:=s

Documents(1).Activate


Bon, en exécutant le fichier s'ouvre, mais les autres auront peut-être des solutions plus propres.


Pour ce qui est des autres types de fichiers, je n'ai pas encore trouvé. Je t'en reparle dès que j'ai du nouveau.

Florian

 

[roulio]

Voici un code que j'ai trouvé sur le site (très complet) de frédéric sigonneau (http://perso.wanadoo.fr/frederic.sigonneau).

Non testé encore.

Code :
-----------------------
Attribute VB_Name = "OuvrirTousFichiers"


'Ouvrir des fichiers quelle que soit leur extension
'utilise la commande DOS "Start" avec la fonction Shell)
'cette solution est alternative à l'utilisation de l'API ShellExecute
'(Win 9x et Me seulement)

Sub OpenTheFiles()
'Dave Peterson, mpep
Dim myfiles
Dim i As Long

myfiles = Array("c:\testme.txt", "C:\my documents\word\iraclose.doc", _
"C:\my documents\word\sign\gsd2.bmp")

For i = LBound(myfiles) To UBound(myfiles)
If Dir(myfiles(i)) <> "" Then
Shell "Start " & Chr(34) & myfiles(i) & Chr(34)
End If
Next i

End Sub

 

[bellenger florian]

merci,


malheureusement cette solution ne marche pas pour moi. Je suppose que c'est parce que je travaille sous windows 2000.


Pour ta part, j'espère que cela marchera

Bonne journée

Florian

 

[A-binouze_drinker_among_others]

bonjour

utilisez la ñethode followhyperlink, le systeme prendra en charge l ouverture des fichiers avec les outils par defaut associes a leur extension

(ou la methode shell)