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

 

[patidavi2000]

Bonjour
vois si ça peut t'aider

 

[Nain porte quoi]

Hello,

personnellement je ferais un publipostage de type "Annuaire" à partir de Word...
Lancer Word, onglet Publipostage, Démarrer la fusion et le publipostage, choisir "Assistant fusion et publipostage pas à pas, choisir Annuaire, Suivant, Utiliser le document actuel, Suivant, Parcourir, choisir le fichier excel avec les données, OK, OK, Suivant, Autre éléments, choisir le champ Nom, Insérer, Prénom, Insérer, Fermer.
Ajouter ", " entre le nom et le prénom et après le prénom. Vous pouvez terminer la fusion, vers un nouveau document pour obtenir ce que vous vouliez.

(y'a pas que Excel dans la vie 🙂)

 

[Gégé-45550]

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

Bonsoir,
Voir PJ, le document Word sera enregistré dans le répertoire courant sous le nom "test.docx".
Cordialement,

 

[Velpri]

Merci à vous tous,
je vais tester

 

[Velpri]

Merci à vous tous,
je vais tester

La méthode de @patidavi2000 me convient bien mais lorsque je fais le test avec ma liste les nom et prénoms sont "collés" je n'arrive pas à trouver pourquoi

 

[Velpri]

La méthode de @patidavi2000 me convient bien mais lorsque je fais le test avec ma liste les nom et prénoms sont "collés" je n'arrive pas à trouver pourquoi

Bonsoir,
Voir PJ, le document Word sera enregistré dans le répertoire courant sous le nom "test.docx".
Cordialement,

@Gégé-45550 j'ai une erreur, et comme je ne connais rien aux macros je ne peux rien faire

 

[patidavi2000]

bonjour
tu sélectionnes la cellule B7 et tu l'étires jusqn'en bas avec la croix du coin droit.

 

[Velpri]

bonjour
tu sélectionnes la cellule B7 et tu l'étires jusqn'en bas avec la croix du coin droit.

J'ai déjà essayé mais je sais pas pourquoi les cellules vides ne sont pas pris en compte, par contre si dans la cellule vide je mets un tiret " - " cela fonctionne

 

[patidavi2000]

J'ai déjà essayé mais je sais pas pourquoi les cellules vides ne sont pas pris en compte, par contre si dans la cellule vide je mets un tiret " - " cela fonctionne

il faut taper un espace dans la cellule, il ne faut pas la laisser vide.

 

[Velpri]

il faut taper un espace dans la cellule, il ne faut pas la laisser vide.

Mais bien sur 🤭

Merci beaucoup @patidavi2000

 

[CRIVERA]

En C2 : =A2&" "&B2&" , "
En C3 : =C2&A3&" "&B3&" , "
et recopier jusqu'en bas du tableau, faire un copier coller de la dernière cellule en C

 

[job75]

Bonjour à tous,

Pas trop compris le pourquoi des solutions de @patidavi2000 et @CRIVERA puisqu'il est dit :

Je souhaite trouver une possibilité pour exporter les noms et prénom dans un fichier Word

A+

 

[job75]

Téléchargez les fichiers joints, ouvrez le fichier Excel et cliquez sur le bouton pour exécuter cette macro :

Sub PressePapiers()
Dim i&, x$
With [A1].CurrentRegion
    For i = 2 To .Rows.Count
        x = x & ", " & .Cells(i, 1) & " " & .Cells(i, 2)
    Next
End With
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' DataObject en late binding
    .SetText Mid(x, 3)
    .PutInClipboard 'place le texte dans le presse-papiers
End With
End Sub

Puis ouvrez le document Word, placez le curseur où vous voulez et appuyez sur les touches Ctrl+V

 

[job75]

Bonjour le forum,

Cette macro ouvre au préalable le document 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
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") ' DataObject en late binding
    .SetText Mid(x, 3)
    .PutInClipboard 'place le texte dans le presse-papiers
End With
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\Doc Word.docx" 'ouvre le document Word
End Sub

Il doit être placé dans le même dossier que le fichier Excel.

A+