Discussion :

[talkk]

Bonjour,

j'ai a peu près 5000 pages web à convertir en pdf, j'aimerais donc automatiser la tâche ...
J'ai un tableau excel avec 1 colonne contenant l'url de la page et 1 colonne avec le nom que je veux donner au pdf créé.

Quelqu'un a-t-il une idée de la procédure pour réaliser une telle conversion ?

merci d'avance

[Jean-Philippe André]

Salut,

c'est faisable oui. As-tu par exemple PDF Creator pour faire tes PDF ?

Un exemple de code que tu pourras adapter au besoin :

Code :

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

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
34
35
36
37
38
39
40
41
42
'A function that uses IE to print the contents of Google.com to a PDF document
Sub printgoogle()
    Dim Explorer As Object
    Dim eQuery As Long 'return value type for QueryStatusWB
    Dim i As Integer
    Dim fTime As Single
 
    'See function below, to set the default printer to PDFCreator.  Note:  The user would probably be grateful if you checked to see what is the current default printer and set it back when finished printing
    SetDefaultPrinter "PDFCreator"
 
    'Connect to Internet Explorer
    Set Explorer = CreateObject("InternetExplorer.Application")
    'Open some document.  This is usually a file on your computer, but I use Google here for test purposes
    Explorer.Navigate "www.google.com"
 
TryAgain:
        'Wait for 2 seconds to let IE load the document
        fTime = Timer
        Do While fTime > Timer - 2
            DoEvents
        Loop
        eQuery = Explorer.QueryStatusWB(6)  'get print command status
        If eQuery And 2 Then
            Explorer.ExecWB 6, 2, "", ""   'Ok to Print? Then execute the Print (6) command, without displaying the print dialog (2)
            'Wait for 2 seconds while IE prints
            fTime = Timer
            Do While fTime > Timer - 2
                DoEvents
            Loop
        Else
            GoTo TryAgain
        End If
 
End Sub
 
'This function sets the Windows default printer to whatever printer you insert as parameter
Public Sub SetDefaultPrinter(ByVal printerName As String)
    Dim oSH As Object 'WshNetwork
    Set oSH = CreateObject("Wscript.Network") 'New WshNetwork
    oSH.SetDefaultPrinter printerName
    Set oSH = Nothing
End Sub

[talkk]

Merci pour le bout de code,

En effet, j'ai oublié de précisé que j'avais pdfcreator a ma disposition.

étant encore novice en vba, je ne comprend pas à quel moment se fait l'impression. J'aimerais pouvoir aussi spécifier le nom du pdf créé.

comment puis je faire celà ?

[Invité]

j'ai fais ce genre de truc pour un client, il faudra adapté à ton code ou prendre ce qui t’intéresse.

[talkk]

Je ne comprend pas le fonctionnement de ta macro ... Une fenetre s'ouvre, me demande de cliquer sur start, mais le dis bouton start est porté disparu !

[AlainTech]

Bonjour,

Il est dans le bas du formulaire.

[Invité]

Je ne comprend pas le fonctionnement de ta macro ... Une fenetre s'ouvre, me demande de cliquer sur start, mais le dis bouton start est porté disparu !

Ici il n'est pas question de te proposer une application qui exécute ce que tu demande mais de pouvoir te permettre de trouver les méthodes nécessaire à la réalisation ton code.

je l'ai développé pour un client qui avait la même problématique. donc c'est un code proche de ce que tu recherche.