Primo tu va dans l'éditeur vba tu sélectionne outils/Références et tu coche Microsoft Word 12.0 Object library tu clic OK ensuite tu colle ce code et tu modifie le chemin
Sub fouilledossier()
Dim objWord As New Word.Application
Dim cheminfichier As String
Dim cheminfichier2 As String
cheminfichier1 = "C:\Documents and Settings\toto\test1.doc"
cheminfichier2 = "D:\Documents and Settings\toto\test.doc"
If Len(Dir(cheminfichier1)) > 0 Then
objWord.Documents.Open cheminfichier1
objWord.Visible = True
Set objWord = Nothing
ElseIf Len(Dir(cheminfichier2)) > 0 Then
objWord.Documents.Open cheminfichier2
objWord.Visible = True
Set objWord = Nothing
End If
End Sub
Houtas, je te remercie pour le temps que tu m'as consacré.
Je garde précieusement ton code ... et tes explications qui enrichisse ma culture informatique pour le coup.
Pour info, je met mon code pour montrer comment je m'en suis sorti.
Certainement perfectible ....
Sub aide_ACCUEIL()
On Error GoTo 1
Dim cheminaide As String
cheminaide = Sheets("paramètres").Range("aide").Value
signet = "#ACCUEIL"
ThisWorkbook.FollowHyperlink cheminaide + signet, , True
1: Exit Sub
End Sub
ton code est intéressant ... mais mon problème est que c: d: peut être aussi x: y: z: ... donc autant de chemin que d'inconnue ! Et par définition si c'est inconnu ...
Donc je pense demander à l'utilisateur de spécifier le lecteur du chemin ... De plus je pensais passer par hyperlink qui me parait plus simple quand il s'agit d'atteindre un signet dans un document Word
Ok ton doc est sur le réseau, utilise un lien universel (adresse du disque réseau) et plus de pb l'utilisateur peut mapper son disque réseau comme il veut, si la réponse te convient et résoud ton pb n'oublie pas d'accepter la réponse
salut,
si tu est en entreprise, et qu'il s'agit d'un disque réseau hebergé sur un serveur
au lieu d'avoir une adresse de type w:\dossier
W étant le disque réseau mappé
tu peux retrouver le nom du serveur et ton adresse sera du type \\serveur\dossier
du coup ce lien fonctionnera pour tous les utilisateurs, même si sur leur poste au lieu d'utiliser W ils mappent sur D: ou F: etc
Pour vérifier que tu a le bon lien tape le dans la fenêtre exécuter et le dossier s'ouvrira si ton chemin est correct
a aidé 90 internautes ce mois-ci