Bien le bonjour à tous !

On m'a demandé de régler un problème sur une macro faite par mon prédécesseur mais il était bien plus doué que moi.

Venons en au problème.. Je n'arrive pas à faire afficher la liste des fichiers qui sont sur le SharePoint du client dans ma combobox ... De ce qu'on m'a fait remonté le problème est apparu quand ce fameux client à changer de Sharepoint.

Comme je suis une andouille j'ai modifié le code et je n'ai donc plus l'original ....

Je vous montre donc celui que j'ai créé (avec l'aide de ChatGpt)

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Private Sub Cbx_File_DropButtonClick()
 
    Dim client As Object ' Déclarer un objet pour la connexion SharePoint
 
    Dim ctx As Object ' Déclarer un objet pour le contexte SharePoint
 
    Dim Web As Object ' Déclarer un objet pour le site SharePoint
 
    Dim liste As Object ' Déclarer un objet pour la liste SharePoint
 
    Dim listItem As Object ' Déclarer un objet pour les éléments de la liste
 
 
 
    ' Remplacer "VotreLienSharePoint" par le lien SharePoint approprié
 
    Dim votreLienSharePoint As String
 
    votreLienSharePoint = "XXXX"
 
 
 
    Set client = CreateObject("SharePoint.ClientContext")
 
    client.SiteURL = votreLienSharePoint
 
 
 
    ' Se connecter à SharePoint
 
    On Error Resume Next
 
    Set ctx = client.get_site()
 
    On Error GoTo 0
 
    If ctx Is Nothing Then
 
        MsgBox "Impossible de se connecter à SharePoint. Vérifiez le lien SharePoint.", vbExclamation
 
        Exit Sub
 
    End If
 
 
 
    Set Web = ctx.get_web()
 
 
 
    ' Remplacer "VotreNomDeListe" par le nom de la liste SharePoint que vous souhaitez parcourir
 
    Set liste = Web.Lists.GetByTitle("VotreNomDeListe")
 
 
 
    ' Charger les éléments de la liste SharePoint
 
    ctx.Load liste
 
    ctx.ExecuteQuery
 
 
 
    ' Parcourir les éléments de la liste et ajouter les fichiers au ComboBox
 
    For Each listItem In liste.Items
 
        ' Remplacer "VotreNomDeChamp" par le nom du champ qui contient les noms des fichiers
 
        Me.Cbx_File.AddItem listItem("VotreNomDeChamp")
 
    Next listItem
 
 
 
    Set client = Nothing
 
    Set ctx = Nothing
 
    Set Web = Nothing
 
    Set liste = Nothing
 
    Set listItem = Nothing
 
End Sub
Je n'ai pas beaucoup d'idée et même sur internet en cherchant je ne trouve rien d'inspirant.

Respectueusement.

RDX