Discussion :

[omen123]

bonjour les amies ,

j'ai besoin d'une petite astuce svp , j'ai un fichier excel avec les champs suivant :

- recruteur
- nom de l'hotel

j'ai deja ma lettre de motivation prete ,je voudrai faire un publibostage de sorte a avoir toute les lettres dans un dossier chacune avec son nom (nom d''hotel ) format pdf . est ce que c 'est possible ?

merciiiii bcp pour vos reponses

[EricDgn]

Bonjour,

C'est plutôt une question Word qu'une question Excel. Le code suivant est à mettre dans le modèle Word, et à lancer depuis Word. Chaque lettre est sauvée dans un fichier particulier.

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
Sub MergeOneRecord_at_a_time()
    Application.ScreenUpdating = False
    Dim StrPath As String, StrName As String, MainDoc As Document, i As Integer
    StrPath = "C:\Test"                         '--- chemin dossier (à adapter)
    If Dir(StrPath, vbDirectory) = "" Then
        MkDir StrPath
    End If
    StrPath = StrPath & "\"
    Application.ScreenUpdating = False
    Set MainDoc = ActiveDocument
    With MainDoc
        For i = 1 To .MailMerge.DataSource.RecordCount
            With .MailMerge
                .Destination = wdSendToNewDocument
                .SuppressBlankLines = True
                With .DataSource
                    .FirstRecord = i
                    .LastRecord = i
                    .ActiveRecord = i
                    StrName = .DataFields("NomHotel")    '--- nom du champ utilisé pour nommer le fichier (à adapter)
                End With
                .Execute Pause:=False
            End With
            With ActiveDocument
                .SaveAs2 FileName:=StrPath & StrName & ".pdf", FileFormat:=wdFormatPDF, AddToRecentFiles:=False
                '.SaveAs2 Filename:=StrPath & StrName & ".docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False
                .Close SaveChanges:=False
            End With
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Cordialement.

[omen123]

Bonsoir EricDgn ,

merci pour ta réponse , je dois ou mettre le code plz

[EricDgn]

Le code est à insérer dans un module du modèle de document. Il faut ensuite exécuter la macro MergeOneRecord_at_a_time (Alt-F8).
Cordialement.

[omen123]

Merci bcp

[omen123]

bonsoir EricDgn ,

la requete recu de ta part marche a merveille ,et toutes mes lettre de motivations sont stockés dans un fichier . serait il possible par miracle de faire les envois automatiquement ,je veux dire de refaire une autre macro pour que je puisse envoyé mon dossiers de candidature d'une facon automatisé ?

PS : j'utilise a ctullement gmail et hotmail .

[EricDgn]

Bonjour,

Vous devriez trouver une solution sur l'internet au départ d'une recherche du genre "word mailmerge vba gmail". Un exemple de résultat https://wellsr.com/vba/2020/excel/vb...il-with-gmail/.
Autre lien: https://excel.developpez.com/faq/?pa...ailCDOexchange

Cordialement.

[omen123]

Merci je vais ca tt de suite , concerant le changement du corp de text sur le fichier word c normal que je peux pas le modifié ?

[EricDgn]

Bonjour,

Le corps du texte du document se gère au niveau du modèle Word (.dotx ou .dotm). Il est possible de placer dans ce modèle toutes sortes de conditions pour avoir un texte différent (contenu et/ou format) en fonction des valeurs des champs. Tout cela se trouve donc dans Word, et pas dans Excel, et c'est dans publipostage Word qu'il faut aller chercher les tutoriels et forums pour trouver les solutions.

Maintenant, si l'on n'enregistre pas en pdf (ligne 25 du code) mais qu'on enregistre en docx (ligne 26), il est alors possible de reprendre chaque lettre en particulier et de la modifier comme on veut, pour la sauvegarder en pdf ensuite.

Cordialement.

[omen123]

bonjour EricDgn ,

je parle du model word , de la lettre . quand je veut faire mon propre model il m'est impossible de le faire . pourtant j'ai pris ta lettre word et j'ai modifié que le texte . apparement la macro ne s excute pas et mon mon model ne s enregistre pas .

qu on j'ouvre a nouveau je te que l'ancien model .

merci ERIC pour ton aide , elle est si precieuse .