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