XL 2019 comment enregistrer une macro qui inclut un lien hypertexte et l'impression d'un fichier word

mama123 · 24 Août 2020

Bonjour à tous,

Je suis mama123, agent de conditionnement dans l'industrie pharmaceutique. Mes connaissances en informatiques sont élémentaires. J'essaie d'évoluer et de m'améliorer sur ce plan. J'espère qu'avec votre attention et votre patience mes questions dont l'une ci-dessous trouveront des réponses.

Je viens demander de l'aide pour l'enregistrement ou l'écriture d'une macro, car je suis étrangère à cette fonction. Je ne connais pas le langage des macros.

Il est question d'imprimer des fichiers Word qui se trouvent derrière des liens hypertexte crées sur un tableau Excel.
Je dois cliquer sur le lien hypertexte qui se trouve dans une cellule du tableau Excel pour ouvrir le document Word, Ensuite imprimer le document Word qui s'ouvre.
Comment enregistrer une macro sur cette action à partir du tableau (fichier) Exel?

J'ai remarqué que sur le ruban du tableau Excel il y a un onglet développeur; Lorsque je clique sur le lien hypertexte dans la cellule du tableau, le fichier Word qui s'ouvre porte également un onglet développeur sur son ruban. Comment faire pour enregistrer une macro permettant d'imprimer le document Word à partir de ces deux onglets developpeur?

Merci pour votre reponse

job75 · 24 Août 2020

Bonjour mama123, bienvenue sur XLD,

Je comprends que vous voulez une macro qui imprime le document Word ouvert par le lien.

Alors téléchargez les 2 fichiers joints sur le bureau et voyez cette macro dans la feuille du lien :

VB:

Private Sub Worksheet_FollowHyperlink(ByVal h As Hyperlink)
If Left(Mid(h.Address, InStrRev(h.Address, ".") + 1), 3) <> "doc" Then Exit Sub
With GetObject(, "Word.Application")
    .ActiveDocument.PrintPreview 'pour tester
    '.ActiveDocument.PrintOut 'pour imprimer
End With
End Sub

Elle se déclenche automatiquement quand on clique sur un lien hypertexte.

A+

mama123 · 25 Août 2020

Bonjour à tous,

Merci Job75 pour votre réponse,
Elle serait parfaite si je n'avais pas à modifier les document Word avant de les imprimer.
Je vais essayer d'apporter un peu plus de détails
En fait je dois modifier et imprimer plusieurs documents pour constituer des dossiers.
Sur un tableau Excel, j'ai des liens hypertexte qui donnent sur des documents Word.
Tous les documents Word dont les liens hypertextes sont situés sur la même ligne du tableau composent un dossier.
un exemple:
- soit la ligne 3 du tableau Excel,
- cellule B3: lien hypertexte vers un document Word F1
- cellule C3: lien hypertexte vers un document Word F2
- cellule D3: len hypertexte vers un document Word F3
- Je dois dans un premier temps à partir des liens hypertextes ouvrir les 3 documents Word pour les modifier. (pas de problème pour cet étape)
- Dans un deuxième temps, j'aimerais pouvoir, après avoir modifier les 3 documents Word les imprimer en une seule fois. C'est la raison pour laquelle je demande de l'aide pour écrire une macro capable d'assurer ce type d'impression (impression multiple de document Word se trouvant derrière des liens hypertexte situés sur une même ligne de tableau Excel)

Remarque: Il existe des lignes du tableau Excel qui possèdent 4, 5, 6 ou 7 liens hypertexe. Une seule et même macro pourrait-elle permettre d'imprimer sur toute les lignes?

Je vous remercie par avance pour vos reponses

job75 · 25 Août 2020

mama123 à dit:
Merci Job75 pour votre réponse,
Elle serait parfaite si je n'avais pas à modifier les document Word avant de les imprimer.

Dans ce cas pas besoin de VBA et ce fil est sans aucun intérêt.

En effet une fois le document Word ouvert par le lien, modifiez-le comme vous voulez.

Et pour l'imprimer touches Ctrl+P et basta.

mama123 · 28 Août 2020

Oui pourquoi pas?c'est pas bête.
C'était juste une question de gain de temps étant donné le nombre de fichiers de plus en plus important à imprimer.
Merci pour cette idée. toute simple.

Codialement.
MM

XL 2019 comment enregistrer une macro qui inclut un lien hypertexte et l'impression d'un fichier word

mama123

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

mama123

XLDnaute Nouveau

job75

XLDnaute Barbatruc

mama123

XLDnaute Nouveau

Discussions similaires