Concaténer toute une colonne Excel vers une ligne Word

Version imprimable

Bonjour,

Est ce possible de Excel 2010 où je viens de coller un tableau, de copier et concaténer en même temps toute une colonne sur Word, pour obtenir une ligne de texte et plus une colonne sur Excel ?

Merci

Elwy

Bon alors j'ai un début de solution qui marche
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub excelversword() Dim wordApp As Word.Application Dim wordDoc As Word.Document Set wordApp = CreateObject("word.application") wordApp.Visible = True Set wordDoc = wordApp.Documents.Open("C:\Users\xxxxxxxxxxxxxxxx.docm") wordDoc.Range.Text = Range("A1") End Sub
Maintenant je ne vois pas comment faire pour que cette fonction copie à la suite de la cellule A1 le contenu de la cellule A2, et sa jusqu’à ce qu'il n'y ai plus de valeur dans une cellule A
Par exemple de A1 à A100

Faire une boucle oui, mais là sa devient compliqué pour moi.

Qui peut m'aider svp?

Elwy

Bonjour,

voici une piste à ajouter/adapter dans ton code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Dim i as Integer
Dim Chaine as String   ' on va concaténer le colonne dans cette variable
Dim Sh as Worksheet
Dim Separateur as String
 
Set Sh = Thisworkbook.Worksheets("NomDeLaFeuille")
Separateur = "Tu mets le séparateur de ton Choix"  ' si tu ne veux pas de séparateur, tu peux mettre cette ligne en commentaire
 
With Sh
 
    Chaine = .Range("A1")     ' on traite la première valeur à la main pour simplifier la gestion du séparateur
 
    ' ATTENTION : en cas de cellule vide, cette boucle va quand même ajouter le séparateur pour la ligne 
    ' Aucune indication dans ton message à ce sujet
    For i = 2 to 100               ' on boucle sur les 99 lignes suivantes
 
        Chaine = Chaine & Separateur & .Range("A" & i)   ' on concatène chaque valeur
 
   Next i
 
End With
 
[Ici ton ouverture de Word]
 
wordDoc.Range.Text = Chaine     ' j'ai pas testé, donc voir si le ".Range" doit être laissé ou non

13/02/2015, 13h49
Marc-L

Re-bonjour !

C'est la solution manuelle de Menhir de passer par Word dans ton autre discussion du forum Excel !

Mais comme je l'ai indiqué, le VBA Excel peut se charger directement de la concaténation
sans utiliser de feuille pour le résultat (à cause du nombre limité de caractères)
soit en l'envoyant dans le Presse-papiers d'Office soit en créant un fichier texte,
mais comme tu n'as pas répondu …

__________________________________________________________________________________________________
Tous unis, tous Charlie
13/02/2015, 13h51
elwy07

Alors sa marche niquel. Merci pour ce bout de code.

Bon me reste plus qu'a modifier la partie ouverture de word, car c'est un document (en parlant de excel) qui sera accessible a plusieurs personnes en même temps.
Et tel que c'est codé pour le moment, il va y avoir le problème que le fichier word sera déjà ouvert lors d'une utilisation simultané.

Je pense que l'on doit pouvoir dire d’ouvrir un document vierge au lieu d'un document existant

dsl je n'avais pas vue la suite sur l'autre post
13/02/2015, 13h54
Marc-L

Comme la solution passe par un code, le mieux est de répondre dans cette discussion.

Clôturer l'autre discussion en précisant la suite se trouve ici et en mettant un lien …
13/02/2015, 14h22
elwy07

ok
13/02/2015, 14h29
Marc-L

Bon, il y a Menhir qui continue de l'autre côté avec Word, à toi de voir …

Sinon côté Excel, la concaténation se fait en une ligne de code mais tant que tu ne réponds pas à ceci :

Citation:

Envoyé par Marc-L

Code VBA effectuant la concaténation puis l'envoyant dans le Presse-papiers d'Office (comme un Copier)
ou créant un fichier texte …

Manuellement le Copier d'Excel fonctionne-t-il avec un Coller dans l'ailleurs ?

… je suis dans l'expectative ! La colonne commence en A1 ?

Il est préférable dans ce cas de tester si le document est en lecture seule ou non :

Code:

1
2
3
4
5
6
7
8
9
10
 
 
If wordDoc.ReadOnly then   'si lecture seule
 
    'Eventuellement un message d'avertissement
    Msgbox "Le fichier étant en lecture seule, un nouveau document va être crée"
    wordDoc.Close False   ' fermeture du document sans l'enregistrer
    Set wordDoc = wordApp.Documents.Add   ' création d'un nouveau document et affectation immédiate
 
End If

Restera également à gérer l'enregistrement du nouveau fichier + le renommer si besoin

13/02/2015, 14h44
Marc-L

Pas mal mais pourquoi s'embêter avec Word alors que le VBA Excel effectue la concaténation
et la copie dans le Presse-papiers par exemple en deux lignes de code !

Et l'autre solution créant un fichier texte n'en requière pas beaucoup plus, what else ?!

Edit : chaque solution a besoin en fait de quatre lignes de code au total …
13/02/2015, 15h10
elwy07

2 pièce(s) jointe(s)

oula vous me perdez là.

Moi au final il faut que l'utilisateur puisse a partir d'un fichier excel (fichier sans valeur, il sert juste a faire le tremplin entre le contenu d'une page web) récupérer et concaténer l'ensemble des valeurs (texte) de la colonne A, Toujours la A, et ensuite copier le résultat dans le descriptif d'une fiche produit de notre site internet (dans un champ texte sur la fiche)

Source des données:
Pièce jointe 168955

Quand on sélectionne ce tableau on récupéré les 4 colonnes, et seule la une nous suffit. Voila pourquoi on colle dans excel ce tableau. De la on revient a ma demande, de recup seulement la colonne 1 donc la A sur excel, on la transforme en une ligne et on colle dans notre site web:

Pièce jointe 168957

Pour les utilisateurs, il faut que la procédure soit automatisé au maximum , style juste à copier le tableau appuyer sur un bouton afin qu'il n'ai plus qu'a coller le résultat.

Donc pour moi étant donné qu'ils se servent de word et excel tt les jours, je suis restée la dessus.
Maintenant si de excel juste on peut récupérer cette chaine de caractère sans ouvrir word et la coller direct sur le site sa me va aussi. Mais là dans excel je ne vois pas comment
13/02/2015, 15h17
Marc-L
N'ayant aucune précision quant au site Internet,
voici une démonstration pour effectuer la concaténation de la colonne A vers le Presse-papiers Office
(activer au préalable la référence Microsoft Forms 2.0 Object Library via le menu Outils du VBE),
code à copier dans le module de la feuille de calculs contenant la colonne à concaténer :
Code:

1 2 3 4 5 6 Sub Demo() Dim oDO As New DataObject oDO.SetText Join(Application.Transpose(Cells(1).CurrentRegion.Columns(1))) oDO.PutInClipboard Set oDO = Nothing End Sub
__________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
13/02/2015, 15h33
elwy07

alors je n'ai pas dans outils / Référence Microsoft Forms 2.0 Object Library. j'ai parcourus la liste plusieurs fois sans la trouver.
13/02/2015, 15h38
Marc-L

Ajouter alors un UserForm au projet, cela active de facto cette référence …
13/02/2015, 15h43
elwy07

alors la chapeau, sa marche niquel.

J'ai du rajouter a la main la librairie. Plus besoins de Word. Me reste à ajouter un bouton sur tt les postes qui vont utiliser cette macro sur leur excel.

Merci a vous trois. Je garde toutes les solutions en stock, sa peut toujours servir

Cordialement

Elwy
13/02/2015, 15h49
Marc-L

Et ne pas oublier pour remercier les participants :

__________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
13/02/2015, 15h55
elwy07

Citation:

Envoyé par elwy07

Merci a vous trois. Je garde toutes les solutions en stock, sa peut toujours servir

Me semble l'avoir fait, mais c'est pas grave ;)

Encore merci beaucoup
13/02/2015, 16h00
Marc-L

Cliquer sur l'icône :plusser: en bas à droite de chaque message ayant aidé, c'est aussi remercier !
13/02/2015, 16h41
elwy07

ok je ne savais pas.
13/02/2015, 19h38
Marc-L

No problemo et merci !

Ensuite une fois que tu en as fini avec cette discussion, la clôturer via l'icône :resolu: …