Discussion :

[forsay1]

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

[Megaxel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[forsay1]

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C2").activate

[forsay1]

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

[SfJ5Rpw8]

voir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selection.Characters.Count

[forsay1]

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

[SfJ5Rpw8]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[forsay1]

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

[SfJ5Rpw8]

tiens voila ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[forsay1]

Merci bcp ca fontionne au poil

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[forsay1]

Merci bcp

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

mille merci

[ouskel'n'or]

Tu dois aussi avoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[forsay1]

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 ?

[SfJ5Rpw8]

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



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

[forsay1]

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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