Discussion :

[Vba14]

Bonjour le forum,

Avec l'aide de Menhir, j'ai créé une image qui me permet d'ouvrir un document Word en lien hypertexte.

Maintenant, je souhaiterai que ce document soit imprimer dés son ouverture, qu'il se referme automatiquement et que je revienne à mon application Excel.

Est-ce réalisable et comment ?

Tout ça fait beaucoup pour ma petite tête... Alors je me permet de solliciter votre aide.

Merci par avance

Très amicalement


Ps : Ou dans l'absolu, l'imprimer sans l'ouvrir

[pijaku]

Bonjour,

Tout document, pour être imprimé, doit être ouvert.
Avec cette macro, l'ouverture est quasi-invisible : https://access.developpez.com/faq/?p...vers#Print_doc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
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
 
Sub imprimer_fichier()
Dim Chemin As String
   Chemin = "C:\Users\" & Environ("UserName") & "\Desktop\MonFichier.docx"
ShellExecute 0, "print", Chemin, "", "", 1
End Sub

[Vba14]

Bonjour pijaku,

Merci pour ta réponse.

Ce code est à mettre dans ma procédure Excel ?

Dois-je supprimer le lien hypertexte ?

[pijaku]

Ce code est à mettre dans ma procédure Excel ?

Oui

Dois-je supprimer le lien hypertexte ?

Si le but est juste d'imprimer le doc word, oui le lien hypertexte est inutile.

[pijaku]

En complément, le code suivant doit être placé en entête du Module, avant toutes Sub et/ou function :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
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

Le reste du code, dans ta procédure liée au bouton (image).

[Vba14]

Bonjour pijaku, Bonjour le forum,

Merci pour tes explications. Voici le chemin de mon fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
K:\COMMUN\ARCHIVAGE\02-Procedures\Procedure_archivage.Doc

Si j'ai bien compris je dois remplacer la ligne en rouge dans ton code par le chemin indiqué ci-dessus ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub imprimer_fichier()
Dim Chemin As String
   Chemin = "C:\Users\" & Environ("UserName") & "\Desktop\MonFichier.docx"
ShellExecute 0, "print", Chemin, "", "", 1
End Sub

Merci par avance pour ton aide

[Vba14]

Ne te donnes pas la peine de répondre, j'ai testé ta procédure et cela fonctionne très bien.
Encore merci et bonne journée
Très amicalement