tomy7
Messages postés62Date d'inscriptionmardi 22 janvier 2008StatutMembreDernière intervention25 avril 2008
-
28 janv. 2008 à 09:51
cs_ToShI
Messages postés3Date d'inscriptionlundi 6 janvier 2003StatutMembreDernière intervention13 mars 2010
-
13 mars 2010 à 13:30
Configuration office 2003 et XP pro
bonjour je cherche a remplir un label sous word depuis excel pour le moment j arrive a appeler mon modele de label.
et le but serait d'utiliser des infos que j ai ds un userform1 ( c'est a dire trois textbox et un combobox) d ecrire ces infos dans le label.
Le probleme etant que je ne sais pas comment faire cette manipulation.
une aide me serait donc tres favorable...
merci
tom
voici le debut de ma routine sous excel:
Dim appword As Object
Set appword = New Word.Application
Application.DisplayAlerts = True
appword.ShowMe
appword.Visible = True
appword.Documents.Open Filename:="D:\My Documents\template\Label\LABEL.doc"
tomy7
Messages postés62Date d'inscriptionmardi 22 janvier 2008StatutMembreDernière intervention25 avril 2008 28 janv. 2008 à 12:45
j ai absolument besoin de savoir comment recuperer l info qui a ete ecrite dans un textbox ds un userform sous excel et la placer dans une case d un label ....
tomy7
Messages postés62Date d'inscriptionmardi 22 janvier 2008StatutMembreDernière intervention25 avril 2008 28 janv. 2008 à 15:09
ce que j appel label est une etiquette sous word et je desire a l aide d une textbox sous excel recuperer un nom et le placer ds cette etiquette sous word donc Userform1.label.caption ne m aidera pas...
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 28 janv. 2008 à 15:45
Bonjour
Si j'ai bien compris :
- Tu as un texte "Texte1" dans une TextBox (ou une cellule) sous Excel
- Tu veux ouvrir un fichier Word dont le nom est constant
- Puis Ecrire le Texte "Texte1" à l'endroit d'un Label sous dans un document Word
Si c'est cela, Pour la partie Excel, pas de pb pour moi, mais pour Word ... (il ne faut pas se fier à ma citation , elle est là uniquement pour faire beau)
Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site
tomy7
Messages postés62Date d'inscriptionmardi 22 janvier 2008StatutMembreDernière intervention25 avril 2008 28 janv. 2008 à 16:02
ok pour le moment j ai une alternative j ai mis des leurres ds mon doc word et je les remplace a l aide de cette commande:
If CheckBox1 Then
With appword.Selection.Find
.Text = "Department1"
.Replacement.Text = "Sales"
.ClearFormatting
.Forward = True
.Execute Replace:=wdReplaceAll
End With
donc je vais continuer ds cette direction mais c est pas dit que si je suis bloque je ne rebrousse pas chemin.
merci pour ton aide qd meme