Discussion :

[Basicnav]

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

[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

[Basicnav]

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 :

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

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)

[Pierre Fauconnier]

Bonjour

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

Code :

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

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 & " ", "")

[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

[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?