Code Vba avec Hyperlink [Résolu]
gerardcjf
- Messages postés
- 47
- Date d'inscription
- mardi 3 juillet 2007
- Dernière intervention
- 26 décembre 2013
- Messages postés
- 47
- Date d'inscription
- mardi 3 juillet 2007
- Dernière intervention
- 26 décembre 2013
A voir également:
- Thisworkbook.followhyperlink
- Vba followhyperlink - Meilleures réponses
- Vba access hyperlink - Meilleures réponses
- Code vba pour référencer une dll sous access - Conseils pratiques - Visual Basic / VB.NET
- Visual Basic / VB.NET : Modifier le menu contextuel de la souris (code vba excel) - CodeS SourceS - Guide
- Gérer modification de donnée dans cellule excel (code vba) - Codes sources - Visual Basic / VB.NET (VBA)
- Visual Basic / VB.NET : Shifumi en formulaire accèss / code vba - CodeS SourceS - Guide
- Visual Basic / VB.NET : Générateur des codes vba à intégrer à acc - Guide
6 réponses
Meilleure réponse
- Messages postés
- 116
- Date d'inscription
- jeudi 14 décembre 2006
- Dernière intervention
- 29 août 2013
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 Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 47
- Date d'inscription
- mardi 3 juillet 2007
- Dernière intervention
- 26 décembre 2013
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 ....
Sujet résolu !!!
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
Sujet résolu !!!
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- Messages postés
- 47
- Date d'inscription
- mardi 3 juillet 2007
- Dernière intervention
- 26 décembre 2013
Merci Houtas de m'aider,
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
@+
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
@+
- Messages postés
- 116
- Date d'inscription
- jeudi 14 décembre 2006
- Dernière intervention
- 29 août 2013
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
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.