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 |
[CODE]Option Explicit
Public Link As String
[CODE]