Discussion :

[Kestion100]

Bonjour,
J'essaie d'ouvrir, puis d'imprimer un document word en pdf depuis un code vba sous excel 2003.
Tout va bien jusqu'à l'ouverture du fichier word mais au lancement de ma macro PDF, plantage: "impossible de trouver la macro"...

Le code:

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
Sub PUBLIPOSTPDFMLKB()
 
  Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets("MLKB")
Sheets("MLKB").Visible = True
ActiveSheet.Unprotect
 
chemin = "C:\Documents and Settings\XXXX\Bureau\XXXX.doc"
 
Set FichierWord = CreateObject("word.application")
Set wrdApp = CreateObject("Word.Application")
 
FichierWord.Visible = True
FichierWord.DisplayAlerts = False
 
 
    monDocument = chemin
    FichierWord.Documents.Open Filename:=monDocument
 
       ' Ouvrir le document
      '.Documents.Open "C:\Documents and Settings\XXXX\Bureau\XXXX.doc"
wrdApp.Run MacroName:="IMPRPDF"
 
' Fermer et libérer les objets
Set wdapp = Nothing 
 
End Sub

Quelqu'un y voit il plus clair que moi???

Merci beaucoup

Plus précisément:

Erreur d'exécution '-2147352573 (80020003)':

Impossible d'exécuter la macro spécifiée

Avec la ligne de code:

Code :

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

wrdApp.Run MacroName:="IMPRPDF"

Surlignée

[Marc-L]

Bonjour, bonjour,

faudrait d'abord voir sans Excel si cela fonctionne sous Word car vu le code,
Excel ne sert à rien hormis accaparer inutilement des ressources !

[Kestion100]

Je précise que mon fichier word est un publipostage avec un autre classeur excel et qu'une fois ouvert, la barre de menu publipostage n'est pas active...le lien ne doit pas se faire.....

En me servant d'un lien hypertext, ça fonctionne:

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
Sub X()
 
 
 Range("O2").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 
 
' Démarrer Word
Set wrdapp = CreateObject("Word.Application")
 
 
 
With wrdapp
       .Visible = True
 
      wrdapp.Run MacroName:="IMPRPDF"
 
 
 
End With
 
' Fermer et libérer les objets
Set wrdapp = Nothing
 
 
 
 
End Sub

Plus précisément, j'étais arrivé à un code très proche qui fonctionnait au poil mais l'ordi à planté , j'ai essayé de retrouver mon code qui était très proche de celui là mais je retrouve ma macro inexécutable (((j'enrage!!!!!)))

Je pense que j'ouvre un deuxième doc avec:

Code :

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

1
2
' Démarrer Word
Set wrdapp = CreateObject("Word.Application")

donc il perd de vue mon fichier dans le lien hypertexte:

Code :

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

1
2
 Range("O2").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

dans lequel la macro est.

Je suis même parvenu à avoir mon pdf créé!!!!!

Je repars de du début:

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
Sub X()
 
  Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets("MLKB")
Sheets("MLKB").Visible = True
ActiveSheet.Unprotect
 
chemin = "C:\Documents and Settings\XXXX\Bureau\XXXX.doc"
 
Set FichierWord = CreateObject("word.application")
Set wrdapp = CreateObject("Word.Application")
 
FichierWord.Visible = True
FichierWord.DisplayAlerts = True
 
 
    monDocument = chemin
    FichierWord.Documents.Open Filename:=monDocument
 
       ' Ouvrir le document
      '.Documents.Open "C:\Documents and Settings\XXXX\Bureau\XXXX.doc"
wrdapp.Run MacroName:="IMPRPDF"
 
 
 
' Fermer et libérer les objets
Set wrdapp = Nothing
 
 
 
End Sub

avec:

Code :

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

FichierWord.DisplayAlerts = True

OK pour le publipostage mais toujours la macro introuvable....

[Kestion100]

C'est OK avec:

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
Dim oWdApp As Word.Application
 
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
 
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
.Documents.Open ("C:\Documents and Settings\XXXX\Bureau\XXXX\PUBLIPOST MLK B.doc")
'Exécuter la macro
.Run ("IMPRPDF")
End With
 
'Quitter Word
oWdApp.Quit
 
'Libérer les ressources
Set oWdApp = Nothing
 
End Sub

Maintenant, je cherche à envoyer ce pdf par mail.

Le problème rencontré: le code va trop vite et thunderbird s'ouvre sans attendre la création effective du pdf.... Comment peut-on ralentire une macro???peut-on conditionner sa poursuite par l'apparition du pdf dans le dossier???


Le code:

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
43
44
45
46
47
48
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'En supposant que les adresses courriels sont en colonne J
    If Range("O3") > "" And InStr(1, Cells(Target.Row, 15), "@") > 0 Then
 
 
        MsgBox "Il y a une adresse courriel sur la ligne " & Target.Row
       EnvoimailMLKB
    Else
        MsgBox "Il n'y a pas d'adresse courriel sur la ligne " & Target.Row
 
    End If
 
     Target.Offset(1, 0).Select
 
End Sub
 
Sub EnvoimailMLKB()
 
Workbooks("XXXX.xls").Activate
Application.Run ("'ENREGISTRERMODIFETMAILMLKB'")
 
 
Dim destinataire As String, sujet As String, body As String, fichierjoint As String, strcommand As String
destinataire = Range("O" & ActiveCell.Row)
sujet = "RESULTAT COMMISSION XXXX"
body = "XXXX" & " " & Range("J2") & " " & Range("K2") & vbCrLf & vbCrLf & "Madame, Monsieur" & vbCrLf & vbCrLf & "Je vous prie de bien vouloir trouver, ci-joint, XXXX"
 
fichierjoint = "C:\Documents and Settings\XXXX\Bureau\XXXX.pdf"
 
 
 
strcommand = "C:\Program Files\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & ",subject='" & sujet & "'"
strcommand = strcommand & ",body='" & body & "'"
'strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
 
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
 
 
Debug.Print strcommand
 
Call Shell(strcommand, vbNormalFocus)
 
 
 
 
End Sub

[Kestion100]

J'ai inséré un wait:

Code :

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

1
2
3
4
5
Sub Wait()
' Attendre 20 secondes
Application.Wait Time + TimeSerial(0, 0, 20)
' Continuer après la pause
End Sub

HOPHOPHOP Résolu