SPLIT avec variable vers word

Version imprimable

03/12/2009, 09h03
Basicnav

SPLIT avec variable vers word

Bonjour à tous,

j'ai un point sur lequel je sèche...

Volià, j'ai une variable n (type string) provenant d'une listbox. Cette chaine est composée comme ceci :

enseigne ville

pour une chaine de magasin. J'envoi aujourd'hui cette info vers un document word.
Mais la mise en page ne me convient pas sous word et je voudrais utiliser split avec cette chaine pour l'envoyer vers deux signets du .doc (l'un pour enseigne, l'autre pour ville)
Je n'arrive pas à trouver le code pour ce faire :calim2:
Avez vous déjà eu ce m^me genre de problème et comment le résoudre, est-ce que split est la bonne solution ?
03/12/2009, 09h17
EmmanuelleC

s'il n'y a pas d'espace dans le nom de l'enseigne, tu peux faire une recherche pour trouver ou est le premier espace et puis prendre tout ce qui est a gacuhe dans une cellule et tout ce qui est a droite dans un autre cellule, et tu auras ton split

Oui, il n'y a pas d'espace dans le nom enseigne, mais aurais-tu un code ? parceque je cherche sur le net un peu partout, mais rien...

Voilà, j'en suis ici.
J'ai mis des msgbox pour contrôler le fonctionnement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub CommandButton2_Click()
    On Error Resume Next
        Dim WordApp As Object
        Dim WordDoc As Object
        Dim n As Integer
        Dim Tableau() As String
        Dim i As Integer
 
            Tableau = Split(ListBox1.Value, " ")
            For i = 0 To UBound(Tableau)
            Debug.Print Tableau(i)
            Next i
            MsgBox (Tableau(0))
            MsgBox (Tableau(1))
 
 
            Set WordApp = CreateObject("Word.Application")                                           'ouvre session word
            Set WordDoc = WordApp.Documents.Open("G:\Etiquette.doc")                                 'ouvre document Word
                WordApp.Visible = False                                                              'word masqué pendant l'operation
                WordDoc.Bookmarks("Texte1").Range.Text = Tableau(0)        'Remplace Signet Texte1 dans wd par tableau(0) listbox
                WordDox.Bookcmarks("Texte2").Range.Text = Tableau(1)
 
                WordApp.Visible = True                                                               'Affiche le doc word
 
 
 
End Sub

J'ai les problèmes suivants :

Les msgbox fonctionnent bien si la ville n'est pas un nom composé (ex : Lyon = ok; ex : Lyon Part Dieu = ça marche pas)

Le remplacement des signets ne fonctionne que sur l'enseigne; la ville n'apparait jamais (qu'elle soit un nom composé ou pas)

Bonjour

Comme le nom de l'enseigne ne contient pas d'espaces, adopte la solution d'Emmanuelle

Code:

1
2
3
4
5
    Dim NomEnseigne As String
    Dim Ville As String
 
    NomEnseigne = Left(listbox1.Value, InStr(1, listbox1.Value, " ") - 1)
    Ville = Replace(listbox1.Value, NomEnseigne & " ", "")

03/12/2009, 12h14
Basicnav

Dans ce cas, j'ai bien mes msgbox qui affichent les bons résultats attendus, mais les signets sous word ne m'affichent que le NomEnseigne

Je ne comprends pas pourquoi, alos j'ai tenté de mettre le NomEnseigne sur mon signet Texte1, mais encore un echec.

Le problème viens bien de excel qui n'envoi pas cette valeur...

Qui saurait m'aider ???
Merci
03/12/2009, 12h20
Pierre Fauconnier

Avec la solution que j'ai proposée, tu n'as plus besoin de tableau, puisque tu as tes variables.

Peux-tu donner maintenant le code que tu utilises?

Bien sûr !

C'est bien pour ça que je ne comprends pas le non fonctionnement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton2_Click()
    On Error Resume Next
        Dim WordApp As Object
        Dim WordDoc As Object
        Dim n As Integer
        Dim NomEnseigne As String
        Dim Ville As String
 
            NomEnseigne = Left(ListBox1.Value, InStr(1, ListBox1.Value, " ") - 1)
            Ville = Replace(ListBox1.Value, NomEnseigne & " ", "")
 
            MsgBox NomEnseigne  
            MsgBox Ville             'jusqu'ici aucun pb
 
            Set WordApp = CreateObject("Word.Application")                                           'ouvre session word
            Set WordDoc = WordApp.Documents.Open("C:\Etiquette.doc")                                 'ouvre document Word
                WordApp.Visible = False                                                              'word masqué pendant l'operation
                WordDoc.Bookmarks("Texte1").Range.Text = NomEnseigne                                 'Remplace Signet Texte1 dans wd par colonne1 listbox
                WordDox.Bookcmarks("Texte3").Range.Text = Ville
                WordDoc.Bookmarks("Texte2").Range.Text = ListBox1.List(ListBox1.ListIndex, 1)       'Remplace Signet Texte2 dans wd par colonne2 listbox
 
                WordApp.Visible = True                                                               'Affiche le doc word
 
 
 
 
End Sub

03/12/2009, 12h48
Pierre Fauconnier

Et quel est le bookmark qui pose problème?
03/12/2009, 12h51
Basicnav

Le bookmarks "Texte3"
03/12/2009, 12h52
Pierre Fauconnier

Faute de frappe dans

Code:

WordDox.Bookcmarks("Texte3")

Et comme tu utilises une variable as object, c'est une erreur délicate à débusquer, mais normalement, à l'exécution, tu devrais bloquer sur cette ligne avec message d'erreur
03/12/2009, 12h58
Basicnav

J'ai trouvé !!!!
une erreur de saisie monumentale !!

WordDox.Bookcmarks

Avec des lettre en plus et mal placée...:aie:

Merci à toi pour ton aide et ton suivi