VBA EXCEL / WORD

Bonjour a tous !

Voila mon probleme
Je cherche a transmettre des données provenant de word sur une feuille excel.

Maintenant ce que j'aimerai faire ce serai pouvoir deplacer le curseur a un endroit bien precis sur ma feuille excel... mais je ne sais pas comment le faire...

Qui peut m'aider ???

Merci d'avance

Bonjour,
Si tu as récupéré du texte dans une variable "MonTexte", une fois que ton fichier Excel est ouvert, tu n'as plus qu'à placer le texte avec

Code:

---

1 2	Workbook("MonClasseur.xls").WorkSheets("NomOnglet").Range(numLigne,numColonne).Value = MonTexte

---

ben en fait je ne place pas cela dans une variable vu que j'utilise le principe du copier coller
en fait mes données sont stockées directemetn dans le press papier et j'utilise la fonction paste pour l'inclure sous excel

l'endroit bien précis , c'est une cellule ...?

Code:

---

Range("C2").activate

---

:wink:

Super ca marche
Merci

heu j'ai une autre question...

Comment faire pour compter le nombre de caractère sous word ?

Je veux dire par la que lorsque je dois faire ma selection avec le copier coller j'ai besoin d'executer une instruction qui va me compter le nombre de caractere que contient ce mot afin que la selection soit bonne

Merci

voir :

Code:

---

selection.Characters.Count

---

:wink:

Ca ne fontionne pas il me retourne 1 comme chiffre

j'ai employé le code suivant peut etre ai-je fai une erreur

le curseur word etant placé devant ceci :

41365 / CB


nbchar = AppWord.Selection.Characters.Count

logiquement il aurai du me retourner 5 s'il s'arrete a la fin de la premiere chaine ou sinon 10(espace compris) s'il continu juska la fin de la ligne

les caractétres sélectionnés son ceux / fond noir... :wink:

..pour étender la sélection à la ligne en cours :

Code:

---

Selection.EndKey Unit:=wdLine, Extend:=wdExtend

---

ok c super ca fontionne

je dois etre peut etre chiant mais j'ai encor une question lool

comment faire pour arreter le decompte a la fin du mot ?

En gros je vourdrai qu'il s'arrete dès qu'il trouve un caractere vide en l'occurence un espace

tiens voila ...

Code:

---

1 2 3

While Selection.Characters.Last <> " " Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Wend

---

... faudrai peu-être envisager le cas ou il n'y as pas d'espace ... :wink:

Merci bcp ca fontionne au poil

tiens au pour éviter de partir dans une boucle sans fin s'il n'y as pas d'espace entre la sélection initiale et la fin du document :

Code:

---

While Selection.Characters.Last <> " " And Selection.End < Selection.Document.Range.End

---

:wink:

Merci bcp

en tout cas j'aurai bien avancé dans mon programme aujourd'hui

mille merci

Tu dois aussi avoir

Code:

---

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

---

Qui te permet de sélectionner le mot.
Dans ton exemple, il s'arrêtera au premier espace rencontré

A+

Désolé j'ai encor un probleme

pour le comptage de caractere j'ai voulu mettre cela dans un module et appeler la fonction des que j'en ai besoin

voici le code que j'ai utilisé dans le module

Option Explicit
Dim nb As Integer
Dim DocWord As Word.Document
Dim AppWord As Word.Application

Public Sub CompteCaractères(nb)

nb = 0

While AppWord.Selection.Characters.Last <> " " And AppWord.Selection.End < AppWord.Selection.Document.Range.End
nb = nb + AppWord.Selection.MoveRight
Wend

End Sub

lorsqu'il arrive dans la boucle il me met un msg d'erreur qui est :

"Variable Objet ou Variable de bloc With non definie"

comment resoudre ce probleme ?

et AppWord tu le définit ou ? .. maque peu être quelque chose dans ton code ?



ton code il ecrit ou ? excel, Word...?

j'ecri tout ca sous excel

et j'ai defini appWord comme ceci dans la feuille principal mais pas dans le module

Set AppWord = New Word.Application

AppWord.ShowMe

AppWord.Visible = True

je sais toujours pas ou tu ouvre ton fichier word... mais essai :

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub CompteCaractères(nb)       While AppWord.Selection.Characters.Last <> " " And AppWord.Selection.End < AppWord.Selection.Document.Range.End AppWord.Selection.MoveRight Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend nb =AppWord.Selection.Characters.Count End Sub

---

:wink: