Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1783 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro de publipostage en multiple fichiers pdf - Message d'erreur

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro de publipostage en multiple fichiers pdf - Message d'erreur

n°2381561
Erasme
Posté le 12-04-2021 à 15:50:13  profilanswer
 

Une amie m'a demandé de l'aide pour mettre au point un publipostage générant plusieurs fichiers pdf pour chaque ligne d'un fichier excel.
 
J'ai corrigé le fichier excel et publipostage sous word.
J'ai trouvé quelques macro permettant le publipostage en multiples fichiers pdf.
 

Citation :

Sub publipostagepdf()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim nom As String
Dim oDS As MailMergeDataSource
Dim path As String
 
path = Application.ActiveDocument.path
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
    With oDoc.MailMerge
        'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
 
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        nom = .DataSource.DataFields("NomFichier" ) 'Remplacer Nom" par le champ à utiliser
        Debug.Print DocName; i
        'Application.DisplayAlerts = False
             With ActiveDocument
            .SaveAs FileName:=path & "\Sortie\" & Format(Date, "yy" ) & Format(Date, "mm" ) & Format(Date, "dd" ) & Format(Time, "hhmm" ) & ".doc"
            .Close
             End With
    End With
    ' Sauvegarde du document publiposté
    With ActiveDocument
        .ExportAsFixedFormat OutputFileName:=path & "\Sortie\" & nom & ".pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False
    End With
Next i
End Sub


 
Au début je ne voyais pas comment sauvegarder en chemin relatif, mais j'ai trouvé.
 
Les fichiers se génèrent bien au bon endroit, mais j'obtiens un message d'erreur :
https://nsa40.casimages.com/img/2021/04/12/210412040033694526.jpg
 
C'est manifestement lié à la ligne :

Citation :

.ExportAsFixedFormat OutputFileName:=path & "\Sortie\" & nom & ".pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False


 
Je ne vois pas ce qui peut coincer.


Message édité par Erasme le 12-04-2021 à 17:28:35
mood
Publicité
Posté le 12-04-2021 à 15:50:13  profilanswer
 

n°2381563
rat de com​bat
attention rongeur méchant!
Posté le 12-04-2021 à 15:51:51  profilanswer
 

Une histoire de slash simple vs slash double? Autrement dit C:\\test?

n°2381565
rat de com​bat
attention rongeur méchant!
Posté le 12-04-2021 à 16:01:49  profilanswer
 

C'est pas achat-ventes ici, tu as dû faire une fausse manip vu le nouveau titre. :o

n°2381573
Erasme
Posté le 12-04-2021 à 17:20:45  profilanswer
 

Oui, soucis à chaque fois que je modifie la premier message, ça remet systématiquement un titre d'un ancien topic que j'avais créé il y a plusieurs mois...
Je ne comprend pas pourquoi.


Message édité par Erasme le 12-04-2021 à 17:35:44
n°2381574
Erasme
Posté le 12-04-2021 à 17:34:28  profilanswer
 

rat de combat a écrit :

Une histoire de slash simple vs slash double? Autrement dit C:\\test?


 
Il y avait une erreur dans le copier-coller, c'était la version avec le chemin absolu et non relatif, mais la logique est proche.
 
Quoi qu'il en soit j'ai tenté le "\\" en début et/ou fin de "\Sortie\"
Même résultat.

n°2381616
Erasme
Posté le 12-04-2021 à 23:59:09  profilanswer
 

C'était causé par le fait que j'avais anticipé des lignes, donc vides dans le fichier excel.
La macro n'appréciait pas.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro de publipostage en multiple fichiers pdf - Message d'erreur

 

Sujets relatifs
(CLOS) Comment comparer les fichiers .class ?fichier batch pour relier des fichiers videos
erreur de compilation caractère incorrectSpliter tout les fichiers txt d'un dossier par ligne
Erreur mis à jour PHP ?[RÉSOLU] Envoyer une liste de noms de fichiers vers un exécutable
un code php qui déconne (erreur bête surement )[résolu]Insérer des fichiers jmol dans page web
Passerelle SMS : générer une URL par html ou VBj'ai un message d'erreur quand je veux utiliser elementor avec wordpre
Plus de sujets relatifs à : Macro de publipostage en multiple fichiers pdf - Message d'erreur


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR