Discussion :

[GaspardBarrier]

Bonjour à tous,

Je réalise une macro de publipostage automatisée. J'ai besoin de savoir comment sélectionner un onglet en guise de document source.
En fait pour plusieurs raisons, le document source, dont le chemin est contenu dans la variable Adresse2 dans le code qui va suivre, possède désormais plusieurs onglets. Je voudrait donc permettre à mon programme de bien prendre en compte l'onglet "Clients"

Est ce que quelqu'un sait comment faire ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DocSource(ByVal Adresse2 As String)
Dim nouvelle_feuille As Worksheet
 'ByVal signifie que lors de la passation d’un argument, celui-ci est évalué, et que seule sa valeur est prise en compte.
    'activation du document, puis du format d'étiquette
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:=Adresse2, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
    AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
       WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
       "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & Adresse2 & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System data" _
       , SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="", SubType:=wdMergeSubTypeAccess
 
End Sub

[GaspardBarrier]

Bonjour à tous,

Je réalise une macro de publipostage automatisée. J'ai besoin de savoir comment sélectionner un onglet en guise de document source.
En fait pour plusieurs raisons, le document source, dont le chemin est contenu dans la variable Adresse2 dans le code qui va suivre, possède désormais plusieurs onglets. Je voudrait donc permettre à mon programme de bien prendre en compte l'onglet "Clients"

Est ce que quelqu'un sait comment faire ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub DocSource1(ByVal Adresse2 As String)
Dim nouvelle_feuille As Worksheet
 'ByVal signifie que lors de la passation d’un argument, celui-ci est évalué, et que seule sa valeur est prise en compte.
    'activation du document, puis du format d'étiquette
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:=Adresse2, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
    AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
       WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
       "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & Adresse2 & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System data" _
       , SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="", SubType:=wdMergeSubTypeAccess

Merci beaucoup

[GaspardBarrier]

S'il vous plait, même si vous avez même un simple élément de réponse ça m'aiderait énormément !

Merci à mon sauveur ,

Cordialement

[GaspardBarrier]

Bonjour à tous,

Je suis en train d'écrire une macro de publipostage faisant appel à un document Excel sur lequel sont stockées les informations nécessaires à cette opération :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub DocSource1(ByVal Adresse2 As String)
 
 
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:=Adresse2, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
    AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
       WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
       "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & Adresse2 & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System data" _
       , SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="", SubType:=wdMergeSubTypeAccess

Lorsque je lance ma macro, mon programme se met à planter à cet endroit, et j'ai l droit au message d'erreur :

"Erreur d'exécution '9105':
La chaine compte plus de 255 caractères"

Je ne comprend pas ce message

J'ai essayé de savoir si ce n'était pas lié au nom de mon document que j'ai stocké dans la variable 'Adresse2', mais ce n'est pas possible car elle ne fait que 121 caractères :
"F:\# 3 Courrier interne et Imprimés\Z (stage)\Gaspard BARRIER\publipostage\listing pour calendriers 2018 -revue du 011217"

Est ce que quelqu'un sait d'où peut venir le problème ?

Merci beaucoup,

Bien cordialement,

[Jean-Philippe André]

Bonjour,

faire du multipost n'est pas ce qui est le plus apprécié sur le forum
Que ce bloc ne fasse "que" 121 caractères est une chose

Code :

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

"F:\# 3 Courrier interne et Imprimés\Z (stage)\Gaspard BARRIER\publipostage\listing pour calendriers 2018 -revue du 011217"

mais que la chaîne de connexion complète en fasse plus de 255 pose problème

Code :

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

 "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & Adresse2 & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System data"

Est-il possible pour toi de mapper un lecteur reseau pour pointer sur le dossier publipostage directement ?