Discussion :

[nino63]

* Bonjour, *

Je suis sous excel et je voudrais enregistrer un document word créé après publipostage.

Autrement dit, je voudrais enregistrer le fichier "Lettres types1.docx" qui est créé lorsque l'on fusionne le publipostage. (ce fichier n'est pas encore enregistré, puisqu'il vient juste d'être généré).

Enfin, cerise sur le gâteau, l'enregistrement du fichier "Lettres types1.docx" doit se faire avec renommmage du type "cellule A1" espace "cellule A2" d'une feuille excel.

Je vous joint des petits fichiers pour exemple de ce que j'ai fait mais çà bug sur l'enregistrement et le renommage.
Je n'ai même pas été plus loin pour la récupération des cellules XL pour mettre dans le nom vu que je n'arrive déjà pas à enregistrer.

Fichiers :
Base publi.xls : doc Excel avec une base de client. On coche une ligne qui sera envoyer pour le publipostage.
Courrier original.docx : document du courrier original (comme son nom l'indique!!) servant pour le publipostage.

Par avance, un GRAND MERCI.

[Daniel.C]

Bonjour,

Essaie :

Code :

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

1
2
3
4
5
    appWord.ActiveDocument.SaveAs Filename:="Lettre1.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

PS. J'ai oublié la cerise :

Code :

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

1
2
3
4
5
    appWord.ActiveDocument.SaveAs Filename:=[A1] & " " & [A2] & ".doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

[nino63]

Le gâteau est délicieux et la cerise succulente.

Merci çà marche parfaitement bien.

Petit complément (la chantilly!!) :
où est-ce que je modifie mon chemin d'enregistrement de mon fichier, car pour le moment, il me l'enregistre dans "Mes documents"?

y-a-t-il un moyen de de contrôler et d'informer si le fichier existe déjà, car je me rend compte que si le fichier existe, il écrase l'ancien?
2 solutions possible : 1/avertir avant d'écraser l'ancien 2/ rajouter un petit numéro du genre version 1, version 2...

Oulàlà j'entend d'ici l'indigestion qui se profil.

Enorme merci Môssieur Daniel!

[Daniel.C]

Oui, une indigestion à l'heure de l'apéritif ! J'ai opté pour la facilité. Si le fichier existe, j'ai ajouté la date et l'heure au format aa-mm-dd hhmmss. Tu dois modifier le chemin dans lequel sont enregistré les fichiers. C'est la ligne :

Code :

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

Chemin = "c:\temp\"

(n'oublie pas le "\" à la fin.)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim Chemin As String, NomFich As String
    Chemin = "c:\temp\"
    NomFich = [A1] & " " & [A2] & ".doc"
    If Dir(Chemin & [A1] & " " & [A2] & ".doc") <> "" Then
        NomFich = Left(NomFich, Len(NomFich) - 4) & Format(Now, "yy-mm-dd hhmmss") & ".doc"
        MsgBox "Le fichier existe déjà et sera enregistré sous : " & NomFich
    End If
    appWord.ActiveDocument.SaveAs Filename:=NomFich, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

[nino63]

Il y a un problème, le changement de chemin n'est pas pris en compte.

Sauf si j'ai fait une erreur voici mon code à ma sauce (décidément, je suis dans la gastronomie aujourd'hui!)

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
 '** Sauvegarde du fichier Word **
        'Information du chemin de sauvegarde
        Chemin = "C:\Documents and Settings\ArDenis\Desktop\JURIBASE XL\Méthode publipostage\SAUVEGARDE WORD\"
 
        'Information du nom du fichier
        nomfich_part1 = Worksheets("données").Cells(2, 2)
        nomfich_part2 = Worksheets("données").Cells(2, 3)
        NomFich = nomfich_part1 & " " & nomfich_part2 & ".doc"
 
    If Dir(Chemin & nomfich_part1 & " " & nomfich_part2 & ".doc") <> "" Then
        NomFich = Left(NomFich, Len(NomFich) - 4) & Format(Now, "yy-mm-dd hhmmss") & ".doc"
        MsgBox "Le fichier existe déjà et sera enregistré sous : " & NomFich
    End If
    appWord.ActiveDocument.SaveAs Filename:=NomFich, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

Pour le reste çà m'a l'air pas mal.

Et pour info (vu que je n'ai pas pu tester comme çà ne marche pas!), à quoi sert le "-4" ici =>

Code :

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

Left(NomFich, Len(NomFich) - 4) & Format(Now, "yy-mm-dd hhmmss") & ".doc"

Merci

[Daniel.C]

Je me donnerais des claques

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        'Information du nom du fichier
        nomfich_part1 = Worksheets("données").Cells(2, 2)
        nomfich_part2 = Worksheets("données").Cells(2, 3)
        NomFich = nomfich_part1 & " " & nomfich_part2 & ".doc"
 
    If Dir(chemin & nomfich_part1 & " " & nomfich_part2 & ".doc") <> "" Then
        NomFich = Left(NomFich, Len(NomFich) - 4) & Format(Now, "yy-mm-dd hhmmss") & ".doc"
        MsgBox "Le fichier existe déjà et sera enregistré sous : " & NomFich
    End If
    appWord.ActiveDocument.SaveAs Filename:=chemin & NomFich, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

[funkyf]

Bonjour,

Essaie :

Code :

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

1
2
3
4
5
    appWord.ActiveDocument.SaveAs Filename:="Lettre1.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

PS. J'ai oublié la cerise :

Code :

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

1
2
3
4
5
    appWord.ActiveDocument.SaveAs Filename:=[A1] & " " & [A2] & ".doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

Bonjour

Je pense être dans ce cas similaire mais je n'ai rien qui s'enregistre avec ce code.
Avec ma macro je créé un Word, écrit avec les données de mon Excel.
Une fois que l'écriture est finie, je voudrai enregistrer ce word et le fermer.
Votre cerise à l'air d'autant plus délicieuse que j'ai plus d'un word à créer, et fermer et de renseigner leur nom d'après la case A1 d'un onglet en particulier simplifierai beaucoup mon code.
En gros pour chaque onglet je créé un word mais actuellement, si je reste dans une seule boucle d'un seul word je ne dépasse pas cette étape enregistrement (et encore moins fermer pour passer au prochain Word actif)
Des inspiration?
Je ne suis pas dans le bon cas de figure?

Fanny

(mon cookie manque d'un peu de sucre)

[Daniel.C]

Bonjour,

Intervenir dans une discussion initiée en 2012 a ses risques, à commencer par le fait que personne, sauf moi, ne risque de lire ton message. Le mieux serait d'initier une nouvelle discussion.

Cordialement.

Daniel