Impression d'un fichier à partir d'une macro

Version imprimable

Bonjour le forum,

J'utilise une macro qui me permet d'imprimer un fichier pdf enregistrer sur un serveur le voici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit 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 Sub Print() Dim NomFichier As String Dim x As Long x = FindWindow("XLMAIN", Application.Caption) NomFichier = Range("A1") & Range("A2") & Range("A3") 'A1=chemin, A2=Nom du fichier, A3=extensions du fichier ShellExecute x, "print", NomFichier, "", "", 1 End Sub
Comme vous pouvez le constater j'utilise des options explicit en début de code. Si je ne les mets pas le code ne fonctionne pas.
Y aurait-il d'autre type de code qui permettrai de faire la même chose sans option explicit particulière? (je souhaite imprimer uniquement du fichier . pdf)
Je vous pose cette question car ces options explicit font planter une autre macro qui est dans le même module.
Donc pour contourner ce problème j'ai deux modules dans mon fichier, (un pour toute mes macro et un uniquement pour celle-ci)
Si cela est possible j'aimerai avoir qu'un module dans mon fichier (d'où ma question)! C'est peut être un peu du luxe ce que je demande ...lol
Mais dans tout les cas je pense que ce code peut être utile à d'autre personne donc je partage :D

Merci d'avance pour vos réponses
@+

28/06/2016, 00h01
kiki29

Salut, reformule ta question, Boileau l'a dit : "Ce qui se conçoit bien s'énonce clairement"

Sinon en fouillant dans le bazar via Liste des contributions et téléchargements, tu devrais trouver qqch en rapport avec ta demande.

A priori ton FindWindow ne te sert à rien.

Salut kiki,

Puis-je imprimer un fichier .pdf a partir d'une macro excel sans utiliser les d'options explicit ci-dessous
Code:

1 2 3 4 5 6 Option Explicit 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
si oui quelle serait le code idéal?

Citation:

le bazar via Liste des contributions et téléchargements,

je regarde

Citation:

A priori ton FindWindow ne te sert à rien.

OK je vais tester sans.

J'espère être plus clair....

Merci

28/06/2016, 00h37
kiki29

Salut, déjà tu as un problème de vocabulaire inapproprié. Pour le rôle d'Option Explicit voir ici. Après se pose avec les APIs le problème de la version 32 ou 64 bits d'Office. Développer avec Office 64 bits

Cela d'autant plus que même Microsoft déconseille l'installation d'une version 64 bits d'Office.

Citation:

Office 32 bits est recommandé pour la plupart des utilisateurs
Nous recommandons la version 32 bits d’Office pour la plupart des utilisateurs, car elle offre une plus grande compatibilité avec la plupart des autres applications, en particulier les compléments tiers. C’est la raison pour laquelle la version 32 bits d’Office 2013 est installée par défaut, même sur les systèmes d’exploitation Windows 64 bits. Sur ces systèmes, le client Office 32 bits est pris en charge en tant qu’installation Windows-32-on-Windows-64 (WOW64). WOW64 est l’émulateur x86 qui permet l’exécution de façon transparente des applications Windows 32 bits sur les systèmes Windows 64 bits. Cela permet aux utilisateurs de continuer à utiliser les contrôles ActiveX et les compléments COM Microsoft avec la version 32 bits d’Office.
28/06/2016, 00h52
jbgood

Merci pour ta Réponse , je regarde ça demain au boulot, je suis sur un système 32bit au Taf avec office 2010 et 64bit chez moi avec office 2013. Et en effet j'ai des souci de compatibilité lier au système 64 bit .
Aller bonne nuit :)

Salut, il y a peut-être plus simple, ici cela fonctionne, à adapter à ton contexte notamment pour le Nom de l'imprimante.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub KillAcroReader()
Dim RetVal As Long
    RetVal = Shell("Taskkill /im AcroRd32.exe /f", 0)
End Sub
 
Sub Tst()
Dim sFichier As String, sImprimante As String
Dim WsShell As Object
 
    sFichier = "C:\Essai.pdf"
    sImprimante = "EPSON AL-M200DW-00001"
 
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 /t" & Chr(34) & sFichier & Chr(34) & sImprimante
    Set WsShell = Nothing
 
    Sleep 1000
    KillAcroReader
End Sub

1 pièce(s) jointe(s)

Salut, pour obtenir la liste des imprimantes et ports.

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
28
29
30
31
32
33
Option Explicit
 
Private Declare Function GetProfileSection& Lib "kernel32" Alias "GetProfileSectionA" ( _
                                            ByVal lpAppName As String, _
                                            ByVal lpReturnedString As String, _
                                            ByVal lngSize As Long)
 
' Enumération des imprimantes et ports sur Feuil1
Sub ListeImprimantesPorts()
Dim sStr As String, rep As Long, iCpt As Long, iPos As Long, T() As String
    sStr = Space(2048)
    rep = GetProfileSection("devices", sStr, 2048)
    If rep > 0 Then
        Feuil1.Cells.Clear
        Application.ScreenUpdating = False
        sStr = Trim$(Replace(sStr, Chr(0), ""))
        Do Until sStr = ""
            iCpt = iCpt + 1
            ReDim Preserve T(1 To 2, 1 To iCpt)
            iPos = InStr(1, sStr, "=") - 1
            T(1, iCpt) = Mid$(sStr, 1, iPos)
            iPos = InStr(1, sStr, ",") + 1
            T(2, iCpt) = Mid$(sStr, iPos, InStr(1, sStr, ":") + 1 - iPos)
            sStr = Mid$(sStr, InStr(1, sStr, ":") + 1)
 
            With Feuil1
                .Cells(iCpt, 1) = T(1, iCpt)
                .Cells(iCpt, 2) = T(2, iCpt)
            End With
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

29/06/2016, 20h57
jbgood

Bonsoir kiki et merci pour tes codes ainsi que tes conseilles.
Et oui j'ai certainement un problème de vocabulaire.
J'apprends sur le tas lis vos aides et infos sur le forum. Mais ce n'est pas évident de comprendre le vocabulaire technique lorsque l'on n'a jamais eu de formation de base sur les macros en générale.
J'avoue que je n'ai pas trop fait de tuto...

Je "bricole" comme je peux... bref

Merci pour ton aide et bonne soirée