Voici mon probleme : j'ai un document excel et je souhaiterais qu'il
crée automatiquement des hyperliens vers tous les fichiers Word
contenu dans un dossier en particulier (au moment de l'ouverture du
document excel):
Par exemple, tous les documents contenus dans c:\essais (y compris les
sous-fichiers si il y en a)
Ainsi, il nommerait automatiquement les hyperliens en utilisant le nom
du document.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
gilbert
Bonjour
à adapter
et à mettre dans le code d' une feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range) adresse = InputBox("Adresse", "Mettre l' adresse du lien", "document_word") titre_du_document = InputBox("Titre", "Mettre un Titre", "Mon titre") ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:resse, _ TextToDisplay:=titre_du_document End Sub
salutations
Gilbert
"Nathalie" a écrit dans le message de news:
Bonjour à tous,
Voici mon probleme : j'ai un document excel et je souhaiterais qu'il crée automatiquement des hyperliens vers tous les fichiers Word contenu dans un dossier en particulier (au moment de l'ouverture du document excel):
Par exemple, tous les documents contenus dans c:essais (y compris les sous-fichiers si il y en a)
Ainsi, il nommerait automatiquement les hyperliens en utilisant le nom du document.
Es-ce possible ?
Par avance, merci de votre aide !
Nathalie
Bonjour
à adapter
et à mettre dans le code d' une feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
adresse = InputBox("Adresse", "Mettre l' adresse du lien", "document_word")
titre_du_document = InputBox("Titre", "Mettre un Titre", "Mon titre")
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:resse, _
TextToDisplay:=titre_du_document
End Sub
salutations
Gilbert
"Nathalie" <nathalie.montion@bnc.ca> a écrit dans le message de
news:1f911bb5.0411250536.517358ef@posting.google.com...
Bonjour à tous,
Voici mon probleme : j'ai un document excel et je souhaiterais qu'il
crée automatiquement des hyperliens vers tous les fichiers Word
contenu dans un dossier en particulier (au moment de l'ouverture du
document excel):
Par exemple, tous les documents contenus dans c:essais (y compris les
sous-fichiers si il y en a)
Ainsi, il nommerait automatiquement les hyperliens en utilisant le nom
du document.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) adresse = InputBox("Adresse", "Mettre l' adresse du lien", "document_word") titre_du_document = InputBox("Titre", "Mettre un Titre", "Mon titre") ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:resse, _ TextToDisplay:=titre_du_document End Sub
salutations
Gilbert
"Nathalie" a écrit dans le message de news:
Bonjour à tous,
Voici mon probleme : j'ai un document excel et je souhaiterais qu'il crée automatiquement des hyperliens vers tous les fichiers Word contenu dans un dossier en particulier (au moment de l'ouverture du document excel):
Par exemple, tous les documents contenus dans c:essais (y compris les sous-fichiers si il y en a)
Ainsi, il nommerait automatiquement les hyperliens en utilisant le nom du document.
