XL pour MAC Deux colonnes Excel dans Word

[Velpri]

Bonjour à tous et merci par avance.

Voila mon problème :
J'ai un fichier Excel qui contient en colonne A le nom des clients et en colonne B leur prénom.
Je souhaite trouver une possibilité pour exporter les noms et prénom dans un fichier Word, mais pas l'un en dessous de l'autre, mais l'un après l'autre sur une ou des lignes, chaque nom prénom séparé par une virgule.

a votre avis c'est réalisable??

Merci de m'avoir lu

 

[job75]

Et avec l'envoi de touches (adaptées à l'exemple) il n'y a plus rien à faire :

Sub Word()
Dim i&, x$
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        x = x & ", " & .Cells(i, 1) & " " & .Cells(i, 2)
    Next
End With
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & Application.PathSeparator & "Doc Word.docx" 'ouvre le document Word
CreateObject("WScript.Shell").SendKeys "{Right 8}" & Mid(x, 3) & " " 'envoi de touches
End Sub

Pas certain que cela fonctionne bien sur MAC, à tester.

 

[job75]

Bonjour,

Une variante avec positionnement du curseur au début de la page Word :

Sub Word()
Dim i&, x$
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        x = x & .Cells(i, 1) & " " & .Cells(i, 2) & ", "
    Next
End With
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & Application.PathSeparator & "Doc Word.docx" 'ouvre le document Word
CreateObject("WScript.Shell").SendKeys "{HOME}" & "{RIGHT 8}" & x 'envoi de touches
End Sub

On peut ainsi cliquer plusieurs fois de suite sur le bouton.

A+

 

[Velpri]

Bonjour,

Une variante avec positionnement du curseur au début de la page Word :

Sub Word()
Dim i&, x$
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        x = x & .Cells(i, 1) & " " & .Cells(i, 2) & ", "
    Next
End With
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\Doc Word.docx" 'ouvre le document Word
CreateObject("WScript.Shell").SendKeys "{HOME}" & "{RIGHT 8}" & x 'envoi de touches
End Sub

On peut ainsi cliquer plusieurs fois de suite sur le bouton.

A+

Bonjour,

Merci pour votre aide , mais cela ne fonctionne pas sous Mac, "erreur d’exécution"

 

[Velpri]

Bonjour,

Merci pour votre aide , mais cela ne fonctionne pas sous Mac, "erreur d’exécution"

Sub Word()
Dim i&, x$
With [A1].CurrentRegion
For i = 2 To .Rows.Count
x = x & .Cells(i, 1) & " " & .Cells(i, 2) & ", "
Next
End With
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\Doc Word.docx" 'ouvre le document Word
CreateObject("WScript.Shell").SendKeys "{HOME}" & "{RIGHT 8}" & x 'envoi de touches
End Sub

 

[Nain porte quoi]

Hello,

ouvrez le fichier joint, un message d'avertissement apparait "L'ouverture de ce document bla bla". cliquer sur Oui.
Word ne trouvant pas mon fichier de données, il affiche un message d'erreur, cliquer sur OK.
Indiquer le chemin et le nom du fichier de données, OK.
Cliquer sur l'onglet Publipostage, Terminer et fusionner, Modifier des documents individuels, ok.
Vous avez vos nom prénoms séparés par une virgule et un espace sur N lignes, reste à éventuellement enregistrer ce nouveau document.

NB : j'ai utilisé le noms des champs que vous aviez définit dans le premier document, à voir s'il faut les changer !

 

[job75]

Bonjour Velpri, le forum,

Merci pour votre aide , mais cela ne fonctionne pas sous Mac, "erreur d’exécution"

Dans les macros des posts #16 et #17 j'ai remplacé l'anti slash "\" par Application.PathSeparator merci de retester les fichiers.

A+

 

[Velpri]

Merci à tous,
avec la macro ça ne marche pas, le publipostage, visiblement sur Mac c'est un peu différent, du coup je suis resté sur la solution de @

patidavi2000​

 

[job75]

Bonjour le forum,

Bon puisque les macros proposées ne fonctionnent pas sur MAC on va faire au plus simple, ceci devrait aller :

Sub Word()
Dim i&, x$
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        x = x & ", " & .Cells(i, 1) & " " & .Cells(i, 2)
    Next
End With
[F3] = Mid(x, 3)
[F3].Copy 'copie la cellule
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & Application.PathSeparator & "Doc Word.docx" 'ouvre le document Word
End Sub

Cliquez sur le bouton, dans Word placez le curseur où vous voulez et touches Ctrl+V pour coller.

A+