VBA - Publipostage avec source XLS

Question

Bonjour,

Je suis confront&#233; &#224; un probl&#232;me en VBA : en vue d'automatiser un publipostage avec une source EXCEL, je souhaiterais pouvoir choisir la feuille de calcul en r&#233;cup&#233;rant son nom dans une inputbox et plac&#233;e la variable au bon endroit.
Le probl&#232;me est que lorsque que j'enregistre la manipulation j'obtiens le code suivant :

Sub Macro2()
'
' Macro2 Macro
' Macro enregistr&#233;e le 12/09/2005
'
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:="C:	emp	.xls", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
        :=""
    ActiveDocument.MailMerge.EditMainDocument
End Sub

mais je ne sais pas du tout ou plac&#233;e cette variable, quelqu'un aurait-il une id&#233;e ?

Merci d'avance,

 Manolitoos

michel_m · Answer

Bonjour,

Essaies ceci

Sub macro2()
dim classeur as string, fichier as string

classeur= inputbox("nom du classeur")
  if classeur="" then: exit sub

fichier=activedocument.path & "" & classeur

 ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= fichier, _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
        :=""
    ActiveDocument.MailMerge.EditMainDocument
End Sub

écrit en direct et non testé

A+
Michel

Manolitoos · Answer

Salut,

Je ne comprends pas ton code... tout ce que je voudrais savoir c'est est-il possible de sp&#233;cifier un onglet du fichier excel et comment ?

Merci pour ta r&#233;ponse

 Manolitoos

michel_m · Answer

Bonjour,

Excuses moi, j'ai confondu classeur et onglet. Je regarderai tout çà dès que j'aurai 2 minutes (plutôt samedi vu le boulot)

Michel

michel_m · Answer

bonjour,

Pour pouvoir accèder à tes données dans Excel, il te faut nommer le tableau de tes données (avec les étiquettes de champs); tu peux avoir le m^me nom pour ton tableau et ton onglet par exemple toto.

Une fois nommé, utilise l'enregistreur de macro avec MS query et remplace le nom toto inscrit par le nom de la variable (remplace "classseur" par "onglet" par exemple)

Ca devrait marcher 

Michel

VBA - Publipostage avec source XLS

4 réponses

Discussions similaires