Bonjour !!

Etant complètement novice en matière de programmation, je cherche désespéremment des infos basiques introuvables dans l'aide de VB !

Voilà mon problème : j'ai plusieurs Listbox qui doivent subir le même traitement, les unes apres les autres. je veux donc créer une fonction "traitement" que je pourrai appeler chaque fois que j'en aurai besoin, pour ne pas avoir à tout réécrire au niveau du code.

je joins ici le code de la fonction déjà pret, en notant les points "durs" :

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
46
47
48
49
If test7 Then
    longlist = ListX.ListCount
    num = longlist - 1
    While num >= 0
        nomfichier = ListX.List(num, 0)
        a = False
        For i = 0 To ListX2.ListCount - 1
            If ListX2.List(i, 0) = nomfichier Then a = True
        Next i
        If ListX.Selected(num) = True Then
            If Not a Then
                ChangeFileOpenDirectory (cheminX.Text)
                Selection.InsertFile nomfichier, Range:="", _
                ConfirmConversions:=False, Link:=True, Attachment:=False
            End If
            indice = Selection.PreviousField.Index
            While InStr(1, ActiveDocument.Fields(indice).Code.Text, "INCLUDETEXT", 1) = 0
                indice = Selection.PreviousField.Index
            Wend
            Selection.MoveLeft Unit:=wdCharacter, Count:=1
        End If
        If a And ListX.Selected(num) = False Then
            indice = Selection.PreviousField.Index
            While InStr(1, ActiveDocument.Fields(indice).Code.Text, "INCLUDETEXT", 1) = 0
                indice = Selection.PreviousField.Index
            Wend
            Selection.MoveLeft Unit:=wdCharacter, Count:=1
        End If
        num = num - 1
        DoEvents
    Wend
    a = False
    For i = 0 To ListX2.ListCount - 1
        If ListX2.List(i, 0) = "00-1.doc" Then a = True
    Next i
    If Not a Then
        ChangeFileOpenDirectory (cheminXx.Text)
        Selection.InsertFile FileName:="00-1.doc", Range:="", _
        ConfirmConversions:=False, Link:=True, Attachment:=False
        DoEvents
    End If
    indice = Selection.PreviousField.Index
    While InStr(1, ActiveDocument.Fields(indice).Code.Text, "INCLUDETEXT", 1) = 0
        indice = Selection.PreviousField.Index
    Wend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
DoEvents
End If

En gros ce code sert à compiler des fichiers words les uns à la suite des autres une fois qu'ils sont sélectionné dans la ListX.

Je voudrai que le X soit un argument de la fonction, sachant qu'a chaque fois il est à remplacer par un nom du type "annex", "planning", etc...
j'ai également un soucis avec les cheminYn puisque dans certains cas particuliers, le seul remplacement du X ne suffit pas, il faut rajouter un complément (à la main) du type \dossier1\.

Résultat attendu :

Fonction(annex,annex & "\dossier1\)

ListX --> Listannex
CheminY --> Cheminannex\dossier1\

Merci d'avance !