IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

Gestion des fichiers par un dictionnaire

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
    'dicos a partir de ma reference : fichier
Function GetPath(ByVal RangeRef As Range, ByVal RangeRef2 As Range) As Dictionary
Dim RangeTotal As Range
Dim MyRange As Range
Dim MyDico As New Dictionary
Dim My_Link As New Link

    'Mon Range
Set RangeTotal = Range(RangeRef.Offset(1), RangeRef.Offset(1).End(xlDown))
For Each MyRange In RangeTotal

        'Creation du dico
    If Not MyDico.Exists(MyRange.Value) Then
      Set My_Link = New Link
      My_Link.Link = RangeRef2.Value & MyRange.Offset(, 1).Value
        MyDico.Add MyRange.Value, My_Link
    End If
Next MyRange

    'Assignation
Set GetPath = MyDico

    'Vidage
Set MyDico = Nothing
Set My_Link = Nothing
End Function
On ajoute une classe d'objet

[CODE]Option Explicit

Public Link As String

[CODE]