Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Dom
Bonjour,
Dans la mesure où il n'y a pas de champ ni de propriété Source de données, il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme valeur
2/ Copie la macro suivante : Sub SourceDonnees() Dim Source Source = ActiveDocument.MailMerge.DataSource.Name ActiveDocument.CustomDocumentProperties("MaSource") = Source End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code { DOCPROPERTY MaSource } Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.
Dom
Bonjour,
Dans un document de publipostage, est-il possible de récupérer le nom de la source de données dans un champ pour l'afficher ?
Merci pour votre aide !
Bonjour,
Dans la mesure où il n'y a pas de champ ni de propriété Source de données,
il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une
propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme
valeur
2/ Copie la macro suivante :
Sub SourceDonnees()
Dim Source
Source = ActiveDocument.MailMerge.DataSource.Name
ActiveDocument.CustomDocumentProperties("MaSource") = Source
End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code
{ DOCPROPERTY MaSource }
Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.
Dom
Bonjour,
Dans un document de publipostage, est-il possible de récupérer le nom de la
source de données dans un champ pour l'afficher ?
Dans la mesure où il n'y a pas de champ ni de propriété Source de données, il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme valeur
2/ Copie la macro suivante : Sub SourceDonnees() Dim Source Source = ActiveDocument.MailMerge.DataSource.Name ActiveDocument.CustomDocumentProperties("MaSource") = Source End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code { DOCPROPERTY MaSource } Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.
Dom
Bonjour,
Dans un document de publipostage, est-il possible de récupérer le nom de la source de données dans un champ pour l'afficher ?
Merci pour votre aide !
Christophe
à la correction de syntaxe près, c'est exactement ce qu'il me fallait.
Merci beaucoup !
Remplacer
ActiveDocument.CustomDocumentProperties("MaSource") = Source par
Dans la mesure où il n'y a pas de champ ni de propriété Source de données, il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme valeur
2/ Copie la macro suivante : Sub SourceDonnees() Dim Source Source = ActiveDocument.MailMerge.DataSource.Name ActiveDocument.CustomDocumentProperties("MaSource") = Source End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code { DOCPROPERTY MaSource } Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.
Dom
à la correction de syntaxe près, c'est exactement ce qu'il me fallait.
Merci beaucoup !
Remplacer
ActiveDocument.CustomDocumentProperties("MaSource") = Source
par
Dans la mesure où il n'y a pas de champ ni de propriété Source de données,
il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une
propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme
valeur
2/ Copie la macro suivante :
Sub SourceDonnees()
Dim Source
Source = ActiveDocument.MailMerge.DataSource.Name
ActiveDocument.CustomDocumentProperties("MaSource") = Source
End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code
{ DOCPROPERTY MaSource }
Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.
Dans la mesure où il n'y a pas de champ ni de propriété Source de données, il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme valeur
2/ Copie la macro suivante : Sub SourceDonnees() Dim Source Source = ActiveDocument.MailMerge.DataSource.Name ActiveDocument.CustomDocumentProperties("MaSource") = Source End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code { DOCPROPERTY MaSource } Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.
Dom
Dom
En effet, cela t'évite de pré-créer la propriété MaSource. Mais attention de gérer l'erreur s'il y a un risque d'exécuter la macro plus d'une fois.
Bonne poursuite,
Dom
à la correction de syntaxe près, c'est exactement ce qu'il me fallait.
Merci beaucoup !
Remplacer
ActiveDocument.CustomDocumentProperties("MaSource") = Source par
Dans la mesure où il n'y a pas de champ ni de propriété Source de données, il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme valeur
2/ Copie la macro suivante : Sub SourceDonnees() Dim Source Source = ActiveDocument.MailMerge.DataSource.Name ActiveDocument.CustomDocumentProperties("MaSource") = Source End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code { DOCPROPERTY MaSource } Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.
Dom
En effet, cela t'évite de pré-créer la propriété MaSource.
Mais attention de gérer l'erreur s'il y a un risque d'exécuter la macro plus
d'une fois.
Bonne poursuite,
Dom
à la correction de syntaxe près, c'est exactement ce qu'il me fallait.
Merci beaucoup !
Remplacer
ActiveDocument.CustomDocumentProperties("MaSource") = Source
par
Dans la mesure où il n'y a pas de champ ni de propriété Source de données,
il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une
propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme
valeur
2/ Copie la macro suivante :
Sub SourceDonnees()
Dim Source
Source = ActiveDocument.MailMerge.DataSource.Name
ActiveDocument.CustomDocumentProperties("MaSource") = Source
End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code
{ DOCPROPERTY MaSource }
Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.
Dans la mesure où il n'y a pas de champ ni de propriété Source de données, il faut la créer. Une solution :
1/ Dans le menu Fichier > Propriétés > Onglet [Personnalisation], crée une propriété nommée MaSource, de type Texte, avec une chaîne vide ("") comme valeur
2/ Copie la macro suivante : Sub SourceDonnees() Dim Source Source = ActiveDocument.MailMerge.DataSource.Name ActiveDocument.CustomDocumentProperties("MaSource") = Source End Sub
3/ A l'endroit où tu veux placer le champ source, tape le code { DOCPROPERTY MaSource } Ctrl F9 pour avoir les { }.
4/Exécute ta macro par Alt F8.
A améliorer en automatisant par exemple l'exécution de la macro.