Comment imprimer un fichier à partir d'un lien en ouvrant la fenêtre d'impression

Version imprimable

14/09/2018, 15h46
JohannCOU

1 pièce(s) jointe(s)

Comment imprimer un fichier à partir d'un lien en ouvrant la fenêtre d'impression

Bonjour à tous,

J'ai ne maitrise pas bien les impressions en vba voir même pas du tout. Je voudrais dans mon cas pourvoir imprimer des fichiers dont leurs liens sont dans des cellules d'un tableau structuré en ouvrant la fenêtre d'impression afin que l'utilisateur puisse choisir l'imprimante et les options d'impression. Pour le moment, la fenêtre s'ouvre mais c'est pour gérer l'impression de la feuille et les fichiers s'impriment sans que j'ai accès aux paramètres d'impression. En réalité, je ne veut même pas imprimer la feuille mais seulement les fichiers liés. Je pense que c'est très simple mais je ne connais pas suffisamment pour connaitre le code qu'il faut mettre. Pour le moment, j'ai fait le code pour que les paramètres d'impression s'affiche à chaque document. Est-il possible de gérer toutes les impressions en ouvrant la fenêtre d'impression qu'une seul fois?

Voici un fichier exemple:

Pièce jointe 411934

Je vous remercie par avance pour votre aide.

Johann.
16/09/2018, 15h14
Theze
Bonjour,

Regardes du coté de :
Code:

1 2 Application.Dialogs(xlDialogPrint).Show
16/09/2018, 16h51
patricktoulon

re

salut

Citation:

Pour le moment, la fenêtre s'ouvre mais c'est pour gérer l'impression de la feuille et les fichiers s'impriment sans que j'ai accès aux paramètres d'impression. En réalité, je ne veut même pas imprimer la feuille mais seulement les fichiers liés

je suis pas sur! (pas du tout meme) de comprendre ??????:koi:

par contre si tu a le code pour ouvrir la boite de dialog de parametre de l'imprimante (WINDOWS!!!)et non la boite de dialog de excel je suis preneur

@theze
je suis pas sur que les parametres soit memorisés pour imprimer un fichier externe car en natif ca n'existe pas en vba puisque utilisation d'api ou object pour imprimer un fichier externe a l'application excel
17/09/2018, 10h41
JohannCOU

Bonjour Theze, Bonjour Patrick,

@Theze:
J'utilise bien la ligne de code que tu indique mais cela gère la feuille de calcul active et non les liens. Il est probable que je l'utilise de la mauvaise manière.

@patrick:
Pardon je me suis certainement mal exprimé. Je souhaite imprimer des documents dont les liens sont dans le tableau. Avec mon code, il s'imprime mais je ne peux pas choisir l'imprimante. Les documents s'imprime sans me poser de question. Je souhaiterais pouvoir au moins diriger les documents vers l'imprimante de mon choix. La ligne de code que m'indique Theze imprime la feuille active.
J'aimerais savoir s'il y a une solution?

Je vous remercie par avance.

Johann

a ben voila c'est plus clair

c'est donc bien ce que je dis ca concerne les boites de dialog externe a vba excel
j'ai donné une solution simple il n'y a pas tres longtemps

je redonne donc un exemple qui te permet de changer non pas l'imprimante par defaut d'excel mais celle de windows
quand a la boite de dialog vu la simplicité de ce qui suit je ne crois pas que cela te sera utile

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Function ImprimerFichier(ByVal Fichier As String)
    ShellExecute FindWindow("XLMAIN", Application.Caption), "print", Fichier, "", "", 1
    Application.Wait (Now + TimeValue("0:00:03"))
     Shell "Taskkill /im AcroRd32.exe /f", 0'au cas ou ton reader pdf s'enclanche
End Function
Sub test()
 Dim Fichier$
 Fichier = "C:\Users\polux\Desktop\PDF bordereau IJSS 2 .pdf"
    ImprimerFichier Fichier
End Sub
 
 
'-------------------------------------------------
'pour changer d'imprimante WINDOWS!!!
 
Sub imprimante_reelle()
Set imprim = CreateObject("WScript.Network")
imprim.SetDefaultPrinter "EPSON XP-243 245 247 Series"
End Sub
'
Sub imprimante_virtuelle_pdf()
Set imprim = CreateObject("WScript.Network")
imprim.SetDefaultPrinter "Bullzip PDF Printer"
End Sub

tu dois mettre le nom de ton imprimante , tel qu'il est dans panneau de configuration -> gestionnaire phériphériques imprimantes
;)

17/09/2018, 13h31
JohannCOU

Bonjour Patrick,

Merci pour ta réponse mais je ne comprends pas ton code. Quand j'entre ton code dans mon fichier et met le nom d'une autre imprimante que celle par défaut dans "Sub imprimante-reelle", cela ne fonctionne pas. Ça s'imprime toujours sur l'imprimante par défaut. De plus, j'aimerais savoir s'il y a un moyen d'ouvrir une fenêtre avec la liste des imprimantes de la société pour pouvoir en sélectionner une car tous les utilisateurs de l'entreprise se servent d'imprimantes différentes et pas toujours la même.

Je te remercie par avance.

Johann

Citation:

LISTER LES IMPRIMANTS DISPOS DE WINDOWS POUR LE PC

Citation:

modele avec WMI

Code:

1
2
3
4
5
6
7
8
Sub listimpriomante2WMI()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)
For Each objItem In colItems
    Debug.Print "imprimante :" & objItem.Name & "--par Default:  " & objItem.Default
Next
End Sub

modele avec l'object wscript.network

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub liste_imprimante()
Dim Wshnet, mesPrinters, sStep1, sStep2, sNomImp, i
Set Wshnet = CreateObject("WScript.Network")
Set mesPrinters = Wshnet.EnumPrinterConnections
If (mesPrinters.Count <> 0) Then
        For i = 0 To mesPrinters.Count - 1 'step 2
                If i Mod 2 <> 0 Then
                sStep1 = mesPrinters(i)
                        If sStep1 = sStep2 Then
                                sNomImp = sStep1
                        Else
                                sNomImp = "port : " & sStep2 & " imprimante : " & sStep1
                        End If
                Debug.Print sNomImp
                End If
                If i Mod 2 = 0 Then
                        sStep2 = mesPrinters(i)
                End If
        Next
End If
End Sub

Citation:

savoir quelle est l'imprimante actuellement par defaut de WINDOWS!!!!

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub sur_quelle_imprimante_je_suis2WMI()
Const ATTR_DEFAULT = 4
strComputer = "."
Set oWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = oWMI.ExecQuery("SELECT * FROM Win32_Printer")
For Each oPrinter In colPrinters
    If oPrinter.Attributes And ATTR_DEFAULT Then
        Debug.Print Trim(oPrinter.Name)
    End If
Next
End Sub

AVEC CA !!! tu pourrais tres bien te faire ta propre boite de dialog vba dans un userform avec une des sub liste et une des sub que je t'ai donné touit a l'heure (un usf,une (combo/list)box,un bouton )

ca me donne l'idée tient;)

26/09/2018, 12h26
JohannCOU

1 pièce(s) jointe(s)

Bonjour Patrick,

Merci pour toutes les informations mais je t’avoue je suis complétement dépassé. Je n’ai pas le niveau pour comprendre les codes que tu as posté. Par contre, j’ai continué à fouiner et j’ai trouvé une fonction qui me plait beaucoup.

Code:

Application.Dialogs(xlDialogPrinterSetup).Show

Le problème est que je n’arrive pas à la faire fonctionner. Dans la fenêtre de cette fonction, toutes les imprimantes sont visibles mais quand j’en sélectionne une, il n’en tient pas compte. Il imprime toujours avec l’imprimante par défaut. Même lorsque je sélectionne n’importe quelle imprimante et que je clique sur le bouton « Configuré… », il ouvre une fenêtre de configuration pour l’imprimante par défaut. Je ne comprends pas bien cette fonction.

Je joins le fichier pour tester cette fonction.
Pièce jointe 415022
Si quelqu’un à une explication sur cette fonction et arrive à la faire fonctionner. Je suis preneur !!

Je vous remercie par avance.

Johann.
26/09/2018, 13h51
patricktoulon

re

re
bonjour
ben non c'est toujour pareil cette dialog concerne toujours l'application excel ca ne fonctionne pas pour les fichiers externe

je regarderais du coté des CPL mais je crois que pour windows c'est géré par le spooleur et en fonction du model d'imprimante et de son du logiciel ainsi que ces drivers
26/09/2018, 17h38
JohannCOU

1 pièce(s) jointe(s)

Infomations

Patrick,

Pour information:

J’ai trouvé un fichier sur le net(il y a un petit moment) utilisant l’objet « WebBrowser » qui affiche des « .pdf » grâce au liens hypertextes. De cet objet, on peut imprimer le pdf sans l’ouvrir et cela ouvre bien la fenêtre pour choisir l’imprimante et les paramètres. Cela fonctionne parfaitement ! Le WebBrower est bien un objet Excel ? Comment se fait-il que le choix de l’imprimante fonctionne bien ? On peut peut-être s’inspirer de cette fonction pour arriver au résultat attendu ?

Voici le fichier : Pièce jointe 415144

A la base, Je comptais reprendre l’idée pour éviter d’ouvrir les pdf a chaque fois que l’on clique sur les cases ayant des liens dans mon tableau. Je ne l’ai pas encore exploité !!

Johann
26/09/2018, 18h07
patricktoulon

re

re
chez moi le fichier ne fonctionne pas il ne liste meme pas les pdfs d'un dossier
27/09/2018, 10h12
JohannCOU

RE

Bonjour Patrick,

Effectivement, quand j'ouvre le fichier depuis le forum, il ne fonctionne pas mais je l'ai téléchargé et il fonctionne très bien. A priori, il faut le télécharger pour qu'il fonctionne.:?

Bonne journée.

Johann
27/09/2018, 10h56
patricktoulon

re

re
bonjour

meme telechargé le bouton en haut a gauche ne fonctionne pas
le bouton en bas a droite ouvre un fichier dans le reader installé (adobe reader 9.xxx chez moi)
conclusion
c'est inutile autant faire un shell chemin exe +chemin fichier et un sendkeys control+ P tu aura le meme resultat sans userform
un chose est sur ca n'est pas le resultat que tu souhaite a savoir ouvrir le dialog parametres d'impression sans ouvrir un fichier

re
bon j'ai fait quelque test avec un userform
et en effet meme avec un webbroser > navigate > control p ,il faut que celui ci reste ouvert il te faut le refermer apres impression ou annuler dans la fenetre de parametres imprimante

si ca t'importe peu alors exemple

dans un module standard tu met
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub imprim_with_printer_dialog_parameters() Set fichier = Application.FileDialog(msoFileDialogFilePicker) With fichier .AllowMultiSelect = True .Show If .SelectedItems.Count > 0 Then With uuu .WebBrowser1.navigate fichier.SelectedItems(1) .Show 0 End With End If End With End Sub
dans un userform que j'ai nommé "uuu"
tu met un webbrowser
et le code c'est
Code:

1 2 3 4 5 6 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Do: DoEvents: i = i + 1: Loop Until i = 10000 WebBrowser1.SetFocus With CreateObject("wscript.shell"): .SendKeys "^p": End With 'Unload Me End Sub
resultat tu a bien ton apercu impression mais il te faudra fermer le userform apres

si tu debloque le "unload me" dans le userform tu aura c'elle de excel

tu peux aussi utiliser cet evenement du webbrowser
Code:

1 2 3 Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) With CreateObject("wscript.shell"): .SendKeys "^p": End With End Sub
mais la fenetre imprimante est plus longue a venir

je te laisse tester ;)

01/10/2018, 17h14
JohannCOU

1 pièce(s) jointe(s)

Bonjour Patrick et merci pour ton aide.

J'ai réalisé un modèle à partir de ton code pour tester mais c'est pas ce que j'attends. Je préfère donc changer de philosophie. En partant de ton code, j'ouvre un Webbrowser par document après sélection de checkboxes et je laisse les utilisateurs imprimer chaque document à partir du Webbrowser. (L'avantage est qu'il peuvent imprimer les documents sur des imprimantes différentes s'il le souhaites mais l’inconvénient est que ça prends un peu de temps.) Le problème est que le Webbrowser ne va pas chercher le lien dans mon tableau et je ne comprends pas pourquoi. Le webbrowser affiche soit une erreur, soit il ouvre une page de recherche sur internet. Pourtant, j'ai créé un bouton pour les ouvrir et là je n'ai pas de problèmes. Je dois mal utiliser l'instruction .Navigate.

Voici le fichier modèle : Pièce jointe 416506

As-tu une idée s'il te plait?

Je te remercie par avance.

Johann.
01/10/2018, 23h11
patricktoulon

re

re
bonsoir
les liens qui sont dans ce classeur NT,FC,etc me parraissent Incomplets regarde de ce coté la
02/10/2018, 11h27
JohannCOU

Bonjour Patrick,

Effectivement, lorsque j'ai créé les liens, il n'y a que le nom du fichier qui sait copier dans la cellule. Je n'avais pas fait attention:oops:!
Du coup, ça fonctionne nickel:D! Je te remercie beaucoup pour ton aide.

J'ai un autre tout petit souci: Quand je met un Webbrowser dans un userform, je n'ai pas de problème pour pointer dessus

Code:

UserForm1.WebBrowser1.Navigate "Le chemin"

Mais lorsque je glisse le webbrowser dans un Multipages, ça ne fonctionne plus même en essayant de pointer avec ce code:

Code:

UserForm1.MultiPage1.Pages(3).WebBrowser1.Navigate "Le chemin"

Le code bloque sur cette ligne et je ne sais pas pourquoi il ne peut pas aller dans un multipages.

As-tu une idée?

Je te remercie par avance.

Johann.