1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Remplir un label depuis excel

Signaler
Messages postés
62
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
25 avril 2008
 -
Messages postés
3
Date d'inscription
lundi 6 janvier 2003
Statut
Membre
Dernière intervention
13 mars 2010
 -
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"

10 réponses

Réponse 1 / 10
Messages postés
62
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
25 avril 2008
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 ....

merci
Réponse 2 / 10
Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
 151
Bonjour

Te as essayer en utilisant une variable globale (Publique dans un module) ?

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site
Réponse 3 / 10
Messages postés
62
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
25 avril 2008
la tu me parle chinois avec le terme "variable globale"
Réponse 4 / 10
Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
 151
Bonjour

Dans un module :
Public mavar as String

par exemple.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site
Réponse 5 / 10
Messages postés
62
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
25 avril 2008
ok mais je ne comprend que faire apres... dsl
Réponse 6 / 10
Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
 151
Bonjour

Tu peux assigner la valeur désirée (celle qui se trouve sur ton Label) puis la récupérée pour ton traitement.

note :
as-tu essayé :
userform1.Label.Caption
?

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site
Réponse 7 / 10
Messages postés
62
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
25 avril 2008
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...
Réponse 8 / 10
Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
 151
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
Réponse 9 / 10
Messages postés
62
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
25 avril 2008
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
Réponse 10 / 10
Messages postés
3
Date d'inscription
lundi 6 janvier 2003
Statut
Membre
Dernière intervention
13 mars 2010
Salut,

C'est quoi pour toi un label sous Word ?

un label d'une userforme ?

Vince
Répondre Posez votre question