Discussion :

[johannis]

Bonjour à tous !

Je suis nouveau sur le forum enfin il est rare que je vienne ici lol. Bref je viens demander un peu (beaucoup!) d'aide sur le développement d'une macro qui consiste à du "texte conditionnel".
Alors tout d'abord je préviens tout le monde je n'ai aucune notion de langage VBA, pensez qu'il est tout de même faisable ?
J'ai récupéré un bout de code qui est l'une des implémentations. Mais il est impossible pour moi de le compléter.
En fait dans le programme je sélectionne le texte puis je clique sur un bouton "tagger" puis je saisie le tag et je valide. Ensuite j'ai un autre bouton "rechercher" qui me permet d'afficher seulement le texte qui correspond au tag je souhaite. Cependant les tags recherchés sont saisies et je préfère cocher des cases avec les tags déjà prédéfinis.
Peut on m'aider ?

Merci

[Heureux-oli]

Salut,

Peut-être un début de piste là : http://heureuxoli.developpez.com/off...cument-tiroir/

[johannis]

Merci à toi Heureux-oli, je vais aller regarder ça. Sinon personne d'autre n'a d'idées ?

[johannis]

Salut,

Peut-être un début de piste là : http://heureuxoli.developpez.com/off...cument-tiroir/

Heureux-oli, j'ai bien recopier les lignes de codes mais à l'ouverture du Model document rien ne s'affiche dans mon userForm ..
Pourquoi ?

Edit : J'ai le message d'erreur suivant :

"Erreur d'exécution '94' :
utilisation incorrecte de Null "

Et quand je clique sur débogage j'ai la ligne suivante surlignée jaune :

stTemp = Me.lstChoix.Column(1) & vbCrLf & NetText(oTbl.Cell(Me.lstChoix, 2).Range.Text) & vbCrLf
Alors est-ce parce que il ne trouve pas le fichier ?

Le fichier dans lequel contient mes données sous forme de tableau est également placé dans c:\Temp\doc.docm. Dans ce fichier j'ai seulement insérer un simple tableau avec 4 lignes sur 4 colonnes. Dois-je insérer un tableau spécial ?

[Heureux-oli]

Salut,

As-tu changé data.docm en doc.docm dans le code ?

[johannis]

Oui dans le code j'ai bien modifié le chemin avec celui qui correspond au mien. Je ne comprends pas pourquoi il ne m'affiche rien. Dans ton tuto moi ce que j'ai choisi c'est le document tiroir en mode Tableau donc j'ai réutiliser le userform pour le Paragraphe. J'ai vu également au tout début de ton tuto que tu avais une variable Dim stIdentifiant As String

stIdentifiant = Left(ActiveDocument.Paragraphs(intP).Range.Text, 8)

Je ne l'ai pas mis dans mon code pour le mode Tableau.
Fallait il que je le mette ?

Merci à toi d'avance

[Heureux-oli]

Salut,

Donnes nous ton code complet.

[johannis]

Alors voilà le code complet :

Pour le module "utilitaire" :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub UserForm_Initialize()
'Ce code s'exécute lors de l'initialisation du UserForm
'Déclaration des variables
Dim oDoc As Document
Dim oTbl As Table
Dim tblListe() As String 'tableau pour le remplissage de la liste
 
Dim intR As Integer 'Entier pour l'index des lignes de la table
 
    'Affectation des données aux objets
    'Le document
    Set oDoc = Application.Documents.Open("c:\Temp\DonneesTab.docm")
    'La table
    Set oTbl = oDoc.Tables(1)
 
 
    'redimentionnement du tableau en fonction du nombre de lignes
    'de la table contenue dans le document
    ReDim tblListe(oTbl.Rows.Count, 1)
    tblListe(0, 0) = "Index"
    tblListe(0, 1) = "Article"
    'Boucle sur le paragraphes du document
        For intR = 1 To oTbl.Rows.Count
        'transfert des données du tableau temporaire vers la table de remplissage
        tblListe(intR, 0) = intR
        'Utilisation de la fonction de nettoyage
        'Remplissage de la seconde colonne de la liste
        tblListe(intR, 1) = NetText(oTbl.Cell(intR, 1).Range.Text)
 
        Next intR
    'transfert des données vers la liste du UserForm
    Me.lstChoix.List = tblListe
    'Fermeture et libération des objets
    Set oTbl = Nothing
    oDoc.Close
    Set oDoc = Nothing
 
 
End Sub
 
Function NetText(stToBeCl As String) As String
    'Récupération du début de la chaîne
    NetText = Left(stToBeCl, Len(stToBeCl) - 2)
 
End Function

Et pour le userForm :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub CommandButton1_Click()
 
End Sub
 
Private Sub cmdFermer_Click()
    Me.Hide
End Sub
 
Private Sub cmdValider_Click()
Dim oDoc As Document
Dim oTbl As Table
Dim stTemp As String
 
 
    'Affectation des données aux objets
    'Le document
    Set oDoc = Application.Documents.Open("C:\Temp\DonneesTab.docm")
    'La table
    Set oTbl = oDoc.Tables(1)
    'envoie de la données dans une variable
 
    stTemp = Me.lstChoix.Column(1) & vbCrLf & NetText(oTbl.Cell(Me.lstChoix, 2).Range.Text) & vbCrLf
 
    'Fermeture et libération des objets
    Set oTbl = Nothing
    oDoc.Close
    Set oDoc = Nothing
    'Écriture des données de la variable dans le document
    'au point d'insertion
    Selection.TypeText stTemp
 
End Sub
 
Private Sub lstChoix_Click()
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

Voilà, j'espère vous allez pouvoir m'aider.

[Heureux-oli]

Salut,

La liste contient-elle quelque chose ?

Essaie de faire un MSGBOX sur ta ligne

Code :

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

MsgBox Me.lstChoix.Column(1) & vbCrLf & NetText(oTbl.Cell(Me.lstChoix, 2).Range.Text) & vbCrLf

[johannis]

Ma liste ne contient rien du tout même après avoir fait le changement en mettant :

Code :

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

1
2
'stTemp = Me.lstChoix.Column(1) & vbCrLf & NetText(oTbl.Cell(Me.lstChoix, 2).Range.Text) & vbCrLf
    MsgBox Me.lstChoix.Column(1) & vbCrLf & NetText(oTbl.Cell(Me.lstChoix, 2).Range.Text) & vbCrLf

Alors que normalement je suis censé avoir une liste dès l'ouverture du document si j'ai bien compris.

[Heureux-oli]

Salut,

c'est pour cette raison que tu reçois le message.

Il faut que la table utilisée soit correcte.
Si c'est la seconde, il faut le mentionner dans le code et remplacer 1 par l'index de la table.

[johannis]

Je n'ai pas bien tout compris.
Tu parles de mon tableau que contient mon fichier source dans C:\Temp ?
J'ai pourtant un tableau 4x2 correcte et rempli, il est tout simple : 4 lignes sur 2 colonnes, ajouté par la fonction "insérer un tableau" dans Word 2007.
Je n'ai pas compris, quel index faut il changer ?

Edit : Voilà en image les propriétés de ma ListBox avec columnCount = 2 :

[Heureux-oli]

Salut,


J'ai juste ton code, pas tes documents. je ne sais donc pas comment ils sont construits.

[johannis]

Tiens je t'envoie en capture d'écran mon tableau contenu dans le fichier C:\Temp\DonneesTab.docm :



Comme tu peux le voir c'est un tableau normal lol.

Et voilà mon UserForm :

[Heureux-oli]

Salut,

Excuse moi, mais je ne vois rien, même pas les marques non imprimables.

[johannis]

Ah pardon j'ai oublié d'afficher toutes les marques de mise en forme si c'est bien cela dont vous parlez. Voilà :



Peut être que comme ça vous verrez mieux non ?

[Heureux-oli]

Salut,

Je viens d'utiliser le code que tu as posté sur le forum et il fonctionne chez moi.

Ton erreur n'est pas dans le code, mais soit dans le chemin du document ou à un autre endroit.

[johannis]

Ce qui me semble bizarre c'est dans le fichier source "DonneesTab.docm" dans C:\Temp dès que je l'ouvre avec Visual Basic il y a également le userForm et le module Utilitaire de ma macro principale avec le même code alors que pourtant je n'ai codé qu'une seule fois. Est ce normal ?

[Heureux-oli]

Salut,

Si tu as mis du code dans le document, c'est normal qu'il s'y trouve toujours.
Mais ce n'est pas la raison pour laquelle ta liste est vide.

[johannis]

D'accord.
Je précise bien aussi que mon fichier source "DonneesTab" est au format .docm avec prise en charge des macros et que mon fichier principale "DocTiroir" où j'ai écrit le code est un modèle de document avec prise en charge de macro au format .dotm.