Activation du document Word ouvert
Résolu/Fermé
A voir également:
- Activation du document Word ouvert
- Supprimer une page word - Guide
- Signer un document word - Guide
- Espace insécable word - Guide
- Word gratuit - Guide
- Symbole attention word ✓ - Forum Word
4 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
13 avril 2015 à 18:29
13 avril 2015 à 18:29
Bonjour,
Voir ceci:
https://excel.developpez.com/faq/?page=Word#LireChampWord
Voir ceci:
https://excel.developpez.com/faq/?page=Word#LireChampWord
Bonjour, et merci pour votre réponse.
Hélas je n'ai pas réussi à trouver mon bonheur dans votre lien. En fait je voudrais une fonction vba qui selectionne automatiquement le lien suivi par hypertexte, qu'il soit excel,word ou pdf. Avez-vous des idées?
Hélas je n'ai pas réussi à trouver mon bonheur dans votre lien. En fait je voudrais une fonction vba qui selectionne automatiquement le lien suivi par hypertexte, qu'il soit excel,word ou pdf. Avez-vous des idées?
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
14 avril 2015 à 14:52
14 avril 2015 à 14:52
Voilà les codes pour Word et PDF, a adapter les cellules des liens hypertextes :
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Doc Word
Private Sub CommandButton1_Click()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Range("A1").Select 'lien hypertexte
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveDocument.PrintPreview
Dialogs(wdDialogFilePrintSetup).Show
End Sub
'PDF
Private Sub CommandButton2_Click()
Dim fich As String
Dim x, rep
Range("A3").Select 'lien hypertexte
fich = Range("A3").Value 'chemin fichier
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
rep = ShellExecute(0, "open", fich, "", "", 0)
'==================================== Ordre d'impression
ShellExecute x, "print", fich, "", "", 1
' ====================================
End Sub