Discussion :

[gnock]

Bonjour à tous,

J'ai créé dans un fichier Excel 2010 une macro afin de lancer un publipostage sous Word 2010, type facture.
Jusque là tout va bien, sauf que visiblement Word n'accepte pas qu'un champs de fusion comporte plus de 255 caractères, ce qui fait que certains champs sont tronqués.

A priori, le problème semble venir de la connexion OLE qu'emploie nativement Word et Excel.

Comment forcer que la connexion se fasse par DDE (par VBA), ce qui semble être indiqué dans les posts repérés sur le net ?



Ci-dessous mon script actuel :

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
  NomBase = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    Application.ScreenUpdating = False
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
 
    '*** Ouverture du modèle word
    ModeleFacture = Worksheets("Paramètres").Range("FactureFichier")
    Set docWord = appWord.Documents.Open(ModeleFacture)
 
    '*** paramétrage du publipostage pour le document spécifié
    With docWord.MailMerge
        .OpenDataSource Name:=NomBase, _
        Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
        "DBQ=" & NomBase & "; ReadOnly=True;", _
        SQLStatement:="SELECT * FROM [Publipostage_Annexe$]"
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
 
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
    Application.ScreenUpdating = True
    docWord.Close False
    Set docWord = Nothing

J'ai vu sur certains posts qu'il faillait forcer via SubType:=wdMergeSubTypeWord2000 au niveau de OpenDataSource, mais quand je l'utilise, mon document Word s'ouvre sur une fenêtre demandant de sélectionner une table.

Merci d'avance de votre aide.

[Invité]

bonjour,
sens garantie

Code :

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

 "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & NomBase & ";Extended Properties=""Excel 12.0;HDR=YES;"""

!

[gnock]

Merci dysorthographie pour ta réponse.

L'ajout de propriétés étendues provoquent un message d'erreur de mon script.
Je pense que la commande que tu m'as donnée ne fonctionne que pour du ODBC.

[clementmarcotte]

Bonjour,

J'ai lu à quelque part, mais j'ai oublié où, que DDE présentait une faille de sécurité et que Microsoft était en train de la zigouiller.

Eux, ils disent que Microsoft a corrigé ses Office 2007 et suivants, mais ils donnent une méthode pour désactiver DDE manuellement.

[gnock]

Bonjour à tous,

Je viens de trouver la solution. Pour ceux qui aurait un jour le même souci, voici comment j'ai procédé :

En fait Word semble se baser sur la première ligne de données de publipostage (= ligne 2) pour savoir quelle type donnée (string, variant, date, integer) attribuer à chaque champs.

Par conséquent, j'ai du créer en ligne 2 des cellules comportant plus de 255 caractères, et convertir tous mes champs numériques ou dates en texte en rajoutant un espace devant (qui se voit pas au publipostage). Sans cette conversion en texte, seules mes champs purement textuels n'étaient pas tronqués.

Une fois fait, tout fonctionne nickel, j'ai juste à lancer en vba le publipostage à partir de la ligne 3 .

C'est une bidouille, mais qui a le mérite de marcher.

A bientôt.