[VBA] remplir un tableau suivant certaines contraintes

[perophron]

Bonjour.

J'ai besoin d'une macro qui, d'un tableau contenu dans un document Word, ne me renvoie que les lignes dont un des champs respecte un critère et ce dans un autre document Word.
Pour être plus clair:
J'ai un tableau de trois colonnes : A, B, et C.
La colonne B ne contient qu'une seule lettre : D, F, S ou R.
La macro ne doit retourner que les lignes dont la lettre est D (dans la colonne B) dans un fichier .doc dans lequel j'ai créé des pieds de page et des entêtes.

Je débute totalement en VBA, je commence à lire les tutoriels de ce site (plus de 40...).
Je sais que l'algorithme est de la forme

n <- longueur du tableau
pour i de 1 à n,
faire si tableau(ligne i, colonne 2) = D,
alors copier tableau(ligne i)
coller (dans le tableau de l'autre fichier)
fin de si

Je vous remercie d'avance pour votre aide.

[ouskel'n'or]

Tu nous montres ce que tu as commencé à faire ?

[perophron]

Voilà je pense que c'est mieux

[Mou]

Tu devrais faire comme tout les debutants de VB et comme on a tous fait... Enegistre ta macro et regarde ce que ca te donne... c est le meilleur moyen d apprendre

[perophron]

Ok merci moumou.faleh
Je commence par faire ça et je reposterai si j'ai encore quelques problèmes

[perophron]

Le truc c'est que je n'arrive pas à crééer la condition si en enregistrant simplement ma macro.

[ouskel'n'or]

Tant que tu ne montres rien, on n'a rien à te dire

[perophron]

OK j'ai réussi à bisouiller quelquechose. ça donne ceci (obtenu en enregistrant une macro):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub recapitulatif()
Dim objTable As Table
Dim i As Integer
Dim a As String
Set objTable = ThisDocument.Tables(1)
 
For i = 1 To objTable.Rows.Count
    a = Left(objTable.Cell(i, 2).Range.Text, InStr(objTable.Cell(i, 2).Range.Text, vbCr) - 1)
    If a = "D" Then
        objTable.Rows(i).Select
        Selection.Copy
  Documents.Open FileName:="""Essai récapitulatif a.doc""", _
    ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
    PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
    WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
    wdOpenFormatAuto, XMLTransform:="", DocumentDirection:=wdLeftToRight
  Selection.PasteAndFormat (wdPasteDefault)
    End If
Next i
End Sub

N'y a-t-il pas de possibilité de la simplifier?
A quoi sert tout ce paragraphe entre Selection.Copy et End If?

[gruget]

pense aux balises de code stp (icone # en haut à droite)
c qd mm bcp plus clair à regarder

A quoi sert tout ce paragraphe entre Selection.Copy et End If?

ce sont toutes les options pour l'ouverture du fichier
tu peux ne pas en écrire plein et leur valeur seront prise par défaut par word
pour savoir lesquelles pense à
rémi

[perophron]

Ok encore une fois merci beaucoup

[ouskel'n'or]

Pour ouvrir un fichier tu dois indiquer le chemin.
Mais tu peux simplement écrire

Code :

Documents.Open FileName:="D:\MesDoc\Essai récapitulatif a.doc"

A+

[perophron]

Salut
Je voulais savoir comment je peux rajouter dans le deuxième document le nom du document dont sont issus les lignes. Si ce nom pouvait être inséré dans une ligne du tableau, ça m'arrangerait.
Merci