Utilisation d'ArrayList externes au VBA

Question

Bonjour,

J'essaie de copier une feuille d'un fichier vers un autre fichier.

Voilà mon Sub :

Sub copy_planning_equipe_final()
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim filePath As String
    Dim newFileName As String
    Dim newFilePath As String
    filePath = ThisWorkbook.Path
    newFileName = "Copie Planning Equipe.xlsx"
    newFilePath = filePath & "\" & newFileName
    If Dir(newFilePath) <> "" Then
        Kill newFilePath
    End If
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add
    newWorkbook.SaveAs newFilePath, FileFormat:=51
    newWorkbook.Close SaveChanges:=False
    Set classeurFermé = Workbooks.Open(filePath & "\" & newFileName)
    Sheets("Planning Equipe Final").Copy Before:=classeurFermé.Sheets(1)
    classeurFermé.Sheets("Feuil1").Delete
    classeurFermé.Close SaveChanges:=True
    Application.DisplayAlerts = True
    MsgBox ("Un nouveau fichier excel <Copie Planning Equipe> a été crée dans le dossier.")
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Mon problème étant qu'en copiant cette feuille, un message d'erreur est levé par rapport à la feuille que je copie, ce message une fois ignoré n'est pas dérangeant et le Sub fonctionne correctement. Mais niveau interface utilisateur, le fait que l'erreur ouvre l'IDE VBA est pas super.

L'erreur se déclare sur cette ligne de code...

Public list_address As ArrayList

...car j'ai rajouté un package pour avoir des ArrayLists.

Le message d'erreur est : "Type défini par l'utilisateur non défini".

Est-ce que vous avez une solution pour que le message ne s'affiche pas ? Mon projet est très long et transformer chaque arraylist en collection n'est pas vraiment envisageable.

Merci d'avance pour votre aide !

thev · Answer

Ces classes sont dans la bibliothèque Net FrameWork 3.5 . Cette bibliothèque n'est plus activée par défaut depuis Windows 10. Si vous utilisez ces classes, il vous faut donc activer cette bibliothèque dans les fonctionnalités Windows. Pour Windows 11, Paramètres --&gt; Système --&gt; Fonctionnalités facultatives --&gt; Plus de fonctionnalités Windows NB : Vous pouvez également télécharger cette bibliothèque puis l'installer...