Sauriez vous me dire s'il est possible d'extraire toutes=20
les valeurs d'une colonne d'un fichier Excel et de les=20
coller =E0 la suite dans un fichier Word, separ=E9es d'une=20
virgule, d'une point ou...
La méthode (d'après moi, et ça marche pour essayer avant de le dire ici): sélection de la zone xl à copier, création nouveau doc word, collage spécial, texte sans mise en forme, puis remplacer (cntl H) tous les retours lignes par ce que tu veux (virgule, point virgule, tabulation).
la réponse est oui, c'est possible.
La méthode (d'après moi, et ça marche pour essayer avant de le dire
ici): sélection de la zone xl à copier, création nouveau doc word,
collage spécial, texte sans mise en forme, puis remplacer (cntl H) tous
les retours lignes par ce que tu veux (virgule, point virgule,
tabulation).
La méthode (d'après moi, et ça marche pour essayer avant de le dire ici): sélection de la zone xl à copier, création nouveau doc word, collage spécial, texte sans mise en forme, puis remplacer (cntl H) tous les retours lignes par ce que tu veux (virgule, point virgule, tabulation).
isabelle
bonjour JB,
voici un exemple
'il faut cocher Microsoft Word 8.0 object Library dans Référence VBAProjet 'le chemin d'accès est :cProgram Files Microsoft OfficeOffice
Sub CopierVersWord() Dim WW Range("A1:A" & Range("A65536").End(xlUp).Row).Copy Set WW = CreateObject("word.application") WW.Visible = True WW.Documents.Add WW.Selection.PasteSpecial Link:úlse, DataType:=wdPasteText, Placement:= _ wdInLine, DisplayAsIcon:úlse Application.CutCopyMode = False AppActivate "Microsoft Word" With WW.ActiveDocument.Range .WholeStory With .Find .Text = "^p" .Replacement.Text = ", " End With .Find.Execute Replace:=wdReplaceAll End With End Sub
isabelle
Bonjour à tous,
Sauriez vous me dire s'il est possible d'extraire toutes les valeurs d'une colonne d'un fichier Excel et de les coller à la suite dans un fichier Word, separées d'une virgule, d'une point ou...
Merci à vous, JB
bonjour JB,
voici un exemple
'il faut cocher Microsoft Word 8.0 object Library dans Référence
VBAProjet
'le chemin d'accès est :cProgram Files Microsoft OfficeOffice
Sub CopierVersWord()
Dim WW
Range("A1:A" & Range("A65536").End(xlUp).Row).Copy
Set WW = CreateObject("word.application")
WW.Visible = True
WW.Documents.Add
WW.Selection.PasteSpecial Link:úlse, DataType:=wdPasteText,
Placement:= _
wdInLine, DisplayAsIcon:úlse
Application.CutCopyMode = False
AppActivate "Microsoft Word"
With WW.ActiveDocument.Range
.WholeStory
With .Find
.Text = "^p"
.Replacement.Text = ", "
End With
.Find.Execute Replace:=wdReplaceAll
End With
End Sub
isabelle
Bonjour à tous,
Sauriez vous me dire s'il est possible d'extraire toutes
les valeurs d'une colonne d'un fichier Excel et de les
coller à la suite dans un fichier Word, separées d'une
virgule, d'une point ou...
'il faut cocher Microsoft Word 8.0 object Library dans Référence VBAProjet 'le chemin d'accès est :cProgram Files Microsoft OfficeOffice
Sub CopierVersWord() Dim WW Range("A1:A" & Range("A65536").End(xlUp).Row).Copy Set WW = CreateObject("word.application") WW.Visible = True WW.Documents.Add WW.Selection.PasteSpecial Link:úlse, DataType:=wdPasteText, Placement:= _ wdInLine, DisplayAsIcon:úlse Application.CutCopyMode = False AppActivate "Microsoft Word" With WW.ActiveDocument.Range .WholeStory With .Find .Text = "^p" .Replacement.Text = ", " End With .Find.Execute Replace:=wdReplaceAll End With End Sub
isabelle
Bonjour à tous,
Sauriez vous me dire s'il est possible d'extraire toutes les valeurs d'une colonne d'un fichier Excel et de les coller à la suite dans un fichier Word, separées d'une virgule, d'une point ou...
Merci à vous, JB
JB
Merci beaucoup je n'ai pas trouver comment simuler le saut de ligne dans remplacer sans passer par Entrée, mais je cherche...
Merci et bonne continuation. JB
Merci beaucoup je n'ai pas trouver comment simuler le
saut de ligne dans remplacer sans passer par Entrée,
mais je cherche...
Je continue donc à chercher un peu pour pouvoir automatiser la solution manuelle de 2B or Not 2B.
Merci et bonne continuation. JB
isabelle
ces quatres lignes sont en fait une seule ligne, si elles apparaissent en rouge, c'est que le retour à la ligne ne c'est pas fait correctement au collage. sinon, quel est le message d'erreur ? isabelle
Merci pour la solution, Cela ne fonctionne malheureusement pas encore, problème à la ligne suivante
Je continue donc à chercher un peu pour pouvoir automatiser la solution manuelle de 2B or Not 2B.
Merci et bonne continuation. JB
ces quatres lignes sont en fait une seule ligne, si elles apparaissent
en rouge, c'est que le retour à la ligne ne c'est pas fait correctement
au collage.
sinon, quel est le message d'erreur ?
isabelle
Merci pour la solution,
Cela ne fonctionne malheureusement pas encore, problème à
la ligne suivante
ces quatres lignes sont en fait une seule ligne, si elles apparaissent en rouge, c'est que le retour à la ligne ne c'est pas fait correctement au collage. sinon, quel est le message d'erreur ? isabelle
Merci pour la solution, Cela ne fonctionne malheureusement pas encore, problème à la ligne suivante
Je continue donc à chercher un peu pour pouvoir automatiser la solution manuelle de 2B or Not 2B.
Merci et bonne continuation. JB
JB
Isabelle,
En effet, le reour a la ligne! Pourtant certains critères etait pris en compte. Je rougis de honte.
Mais j'insiste un peu. J'obtiens au lancement de la macro le message suivant: "Seuls des commentaires peuvent apparaitre après End Sub, End Fonction ou End Property" En effet le lancement de la macro fait apparaitre des ligne comme: " Application.Run "Classeur1!CopierVersWord" " " Range("A14").Select Selection.ClearContents " La macro retransmet les dernières opérations réalisées sur le fichier, me semble t il.?.
Voilà l'état de la situation. Bonne journée, JB
Isabelle,
En effet, le reour a la ligne! Pourtant certains critères
etait pris en compte.
Je rougis de honte.
Mais j'insiste un peu.
J'obtiens au lancement de la macro le message suivant:
"Seuls des commentaires peuvent apparaitre après End Sub,
End Fonction ou End Property"
En effet le lancement de la macro fait apparaitre des
ligne comme:
" Application.Run "Classeur1!CopierVersWord" "
" Range("A14").Select
Selection.ClearContents "
La macro retransmet les dernières opérations réalisées sur
le fichier, me semble t il.?.
En effet, le reour a la ligne! Pourtant certains critères etait pris en compte. Je rougis de honte.
Mais j'insiste un peu. J'obtiens au lancement de la macro le message suivant: "Seuls des commentaires peuvent apparaitre après End Sub, End Fonction ou End Property" En effet le lancement de la macro fait apparaitre des ligne comme: " Application.Run "Classeur1!CopierVersWord" " " Range("A14").Select Selection.ClearContents " La macro retransmet les dernières opérations réalisées sur le fichier, me semble t il.?.
Voilà l'état de la situation. Bonne journée, JB
isabelle
bonjour JB,
il n'y a pourtant qu'un seul End sub et aucune ligne après dans l'exemple donné. je t'envoie un fichier exemple en bal perso si tu veux. je suis sous xl2002, ça ira ?
isabelle
Isabelle,
En effet, le reour a la ligne! Pourtant certains critères etait pris en compte. Je rougis de honte.
Mais j'insiste un peu. J'obtiens au lancement de la macro le message suivant: "Seuls des commentaires peuvent apparaitre après End Sub, End Fonction ou End Property" En effet le lancement de la macro fait apparaitre des ligne comme: " Application.Run "Classeur1!CopierVersWord" " " Range("A14").Select Selection.ClearContents " La macro retransmet les dernières opérations réalisées sur le fichier, me semble t il.?.
Voilà l'état de la situation. Bonne journée, JB
bonjour JB,
il n'y a pourtant qu'un seul End sub et aucune ligne après dans
l'exemple donné.
je t'envoie un fichier exemple en bal perso si tu veux. je suis sous
xl2002, ça ira ?
isabelle
Isabelle,
En effet, le reour a la ligne! Pourtant certains critères
etait pris en compte.
Je rougis de honte.
Mais j'insiste un peu.
J'obtiens au lancement de la macro le message suivant:
"Seuls des commentaires peuvent apparaitre après End Sub,
End Fonction ou End Property"
En effet le lancement de la macro fait apparaitre des
ligne comme:
" Application.Run "Classeur1!CopierVersWord" "
" Range("A14").Select
Selection.ClearContents "
La macro retransmet les dernières opérations réalisées sur
le fichier, me semble t il.?.
il n'y a pourtant qu'un seul End sub et aucune ligne après dans l'exemple donné. je t'envoie un fichier exemple en bal perso si tu veux. je suis sous xl2002, ça ira ?
isabelle
Isabelle,
En effet, le reour a la ligne! Pourtant certains critères etait pris en compte. Je rougis de honte.
Mais j'insiste un peu. J'obtiens au lancement de la macro le message suivant: "Seuls des commentaires peuvent apparaitre après End Sub, End Fonction ou End Property" En effet le lancement de la macro fait apparaitre des ligne comme: " Application.Run "Classeur1!CopierVersWord" " " Range("A14").Select Selection.ClearContents " La macro retransmet les dernières opérations réalisées sur le fichier, me semble t il.?.
Voilà l'état de la situation. Bonne journée, JB
JB
Merci,
jbo44112 at hotmail . com
Xl2002, très bien. J'espere que vous avez passé un bon week-end. JB
-----Message d'origine----- bonjour JB,
il n'y a pourtant qu'un seul End sub et aucune ligne après dans
l'exemple donné. je t'envoie un fichier exemple en bal perso si tu veux. je suis sous
xl2002, ça ira ?
isabelle
Isabelle,
En effet, le reour a la ligne! Pourtant certains critères
etait pris en compte. Je rougis de honte.
Mais j'insiste un peu. J'obtiens au lancement de la macro le message suivant: "Seuls des commentaires peuvent apparaitre après End Sub,
End Fonction ou End Property" En effet le lancement de la macro fait apparaitre des ligne comme: " Application.Run "Classeur1!CopierVersWord" " " Range("A14").Select Selection.ClearContents " La macro retransmet les dernières opérations réalisées sur
le fichier, me semble t il.?.
Voilà l'état de la situation. Bonne journée, JB .
Merci,
jbo44112 at hotmail . com
Xl2002, très bien.
J'espere que vous avez passé un bon week-end.
JB
-----Message d'origine-----
bonjour JB,
il n'y a pourtant qu'un seul End sub et aucune ligne
après dans
l'exemple donné.
je t'envoie un fichier exemple en bal perso si tu veux.
je suis sous
xl2002, ça ira ?
isabelle
Isabelle,
En effet, le reour a la ligne! Pourtant certains
critères
etait pris en compte.
Je rougis de honte.
Mais j'insiste un peu.
J'obtiens au lancement de la macro le message suivant:
"Seuls des commentaires peuvent apparaitre après End
Sub,
End Fonction ou End Property"
En effet le lancement de la macro fait apparaitre des
ligne comme:
" Application.Run "Classeur1!CopierVersWord" "
" Range("A14").Select
Selection.ClearContents "
La macro retransmet les dernières opérations réalisées
sur
Xl2002, très bien. J'espere que vous avez passé un bon week-end. JB
-----Message d'origine----- bonjour JB,
il n'y a pourtant qu'un seul End sub et aucune ligne après dans
l'exemple donné. je t'envoie un fichier exemple en bal perso si tu veux. je suis sous
xl2002, ça ira ?
isabelle
Isabelle,
En effet, le reour a la ligne! Pourtant certains critères
etait pris en compte. Je rougis de honte.
Mais j'insiste un peu. J'obtiens au lancement de la macro le message suivant: "Seuls des commentaires peuvent apparaitre après End Sub,
End Fonction ou End Property" En effet le lancement de la macro fait apparaitre des ligne comme: " Application.Run "Classeur1!CopierVersWord" " " Range("A14").Select Selection.ClearContents " La macro retransmet les dernières opérations réalisées sur
