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
isabelle
bonjour Jean-philippe,
en fait ce sont des commandes word, que tu trouvera en utilisant l'enregistreur de macro dans l'application word :
voici un exemple qui suppose qu'il n'y ai qu'un seul OLEObjects sur la feuille,
Set wordObj = Worksheets("Feuil1").OLEObjects(1) wordObj.Activate With wordObj.Object.Application.WordBasic .StartOfDocument .Insert "Début du message" 'écrire une phrase .InsertPara 'faire un retour à la ligne End With
isabelle
J'ai un objet OLE Word dans ma feuille Excel
comment lire ou ecrire le contenu du texte ?
Merci d'avance Jean-philippe
bonjour Jean-philippe,
en fait ce sont des commandes word, que tu trouvera en utilisant l'enregistreur de macro dans l'application word :
voici un exemple qui suppose qu'il n'y ai qu'un seul OLEObjects sur la feuille,
Set wordObj = Worksheets("Feuil1").OLEObjects(1)
wordObj.Activate
With wordObj.Object.Application.WordBasic
.StartOfDocument
.Insert "Début du message" 'écrire une phrase
.InsertPara 'faire un retour à la ligne
End With
en fait ce sont des commandes word, que tu trouvera en utilisant l'enregistreur de macro dans l'application word :
voici un exemple qui suppose qu'il n'y ai qu'un seul OLEObjects sur la feuille,
Set wordObj = Worksheets("Feuil1").OLEObjects(1) wordObj.Activate With wordObj.Object.Application.WordBasic .StartOfDocument .Insert "Début du message" 'écrire une phrase .InsertPara 'faire un retour à la ligne End With
isabelle
J'ai un objet OLE Word dans ma feuille Excel
comment lire ou ecrire le contenu du texte ?
Merci d'avance Jean-philippe
le pongiste
Merci
as tu un exemple pour selection tous le texte et le copier dans une cellule
je te remercie d'avance
-- Jean-philippe
bonjour Jean-philippe,
en fait ce sont des commandes word, que tu trouvera en utilisant l'enregistreur de macro dans l'application word :
voici un exemple qui suppose qu'il n'y ai qu'un seul OLEObjects sur la feuille,
Set wordObj = Worksheets("Feuil1").OLEObjects(1) wordObj.Activate With wordObj.Object.Application.WordBasic .StartOfDocument .Insert "Début du message" 'écrire une phrase .InsertPara 'faire un retour à la ligne End With
isabelle
J'ai un objet OLE Word dans ma feuille Excel
comment lire ou ecrire le contenu du texte ?
Merci d'avance Jean-philippe
Merci
as tu un exemple pour selection tous le texte et le copier dans une cellule
je te remercie d'avance
--
Jean-philippe
bonjour Jean-philippe,
en fait ce sont des commandes word, que tu trouvera en utilisant l'enregistreur de macro dans l'application word :
voici un exemple qui suppose qu'il n'y ai qu'un seul OLEObjects sur la feuille,
Set wordObj = Worksheets("Feuil1").OLEObjects(1)
wordObj.Activate
With wordObj.Object.Application.WordBasic
.StartOfDocument
.Insert "Début du message" 'écrire une phrase
.InsertPara 'faire un retour à la ligne
End With
as tu un exemple pour selection tous le texte et le copier dans une cellule
je te remercie d'avance
-- Jean-philippe
bonjour Jean-philippe,
en fait ce sont des commandes word, que tu trouvera en utilisant l'enregistreur de macro dans l'application word :
voici un exemple qui suppose qu'il n'y ai qu'un seul OLEObjects sur la feuille,
Set wordObj = Worksheets("Feuil1").OLEObjects(1) wordObj.Activate With wordObj.Object.Application.WordBasic .StartOfDocument .Insert "Début du message" 'écrire une phrase .InsertPara 'faire un retour à la ligne End With
isabelle
J'ai un objet OLE Word dans ma feuille Excel
comment lire ou ecrire le contenu du texte ?
Merci d'avance Jean-philippe
isabelle
bonjour Jean-philippe,
désolé pour le retard, voici la solution,
Sub test() Dim oWord, S Set oWord = Sheets("Feuil1").OLEObjects("Objet 1") Sheets("Feuil1").Range("A1"). = oWord.Object.Range.Text End Sub 'de Frédéric Sigonneau
isabelle
Merci
as tu un exemple pour selection tous le texte et le copier dans une cellule
je te remercie d'avance
bonjour Jean-philippe,
désolé pour le retard, voici la solution,
Sub test()
Dim oWord, S
Set oWord = Sheets("Feuil1").OLEObjects("Objet 1")
Sheets("Feuil1").Range("A1"). = oWord.Object.Range.Text
End Sub 'de Frédéric Sigonneau
isabelle
Merci
as tu un exemple pour selection tous le texte et le copier dans une cellule
Sub test() Dim oWord, S Set oWord = Sheets("Feuil1").OLEObjects("Objet 1") Sheets("Feuil1").Range("A1"). = oWord.Object.Range.Text End Sub 'de Frédéric Sigonneau
isabelle
Merci
as tu un exemple pour selection tous le texte et le copier dans une cellule