Bonjour j'ai un problème similaire à :
Erreur Automation vb6

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
Dim ContactWorkbook As Workbook
    
    Set ContactWorkbook = Application.Workbooks.Open(CheminFichierContacts)
  
    UserForm_Globale.ComboBoxInter.Clear
    
    Ligne_lue = Range("B6").Row

    Do While Cells(Ligne_lue, 2) <> ""
        If Cells(Ligne_lue - 1, 2).Value <> Cells(Ligne_lue, 2).Value Then
        UserForm_Globale.ComboBoxInter.AddItem (Cells(Ligne_lue, 2).Value)
        End If
        Ligne_lue = Ligne_lue + 1
    Loop
  
    ContactWorkbook.Save
    ContactWorkbook.Close
La même erreur s'affiche pour le "ContactWorkbook.Save".

Sachant qu'avant j'avais:

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
Workbooks.Open CheminFichierContacts
 
    UserForm_Globale.ComboBoxInter.Clear
 
    Ligne_lue = Range("B6").Row
 
    Do While Cells(Ligne_lue, 2) <> ""
        If Cells(Ligne_lue - 1, 2).Value <> Cells(Ligne_lue, 2).Value Then
        UserForm_Globale.ComboBoxInter.AddItem (Cells(Ligne_lue, 2).Value)
        End If
        Ligne_lue = Ligne_lue + 1
    Loop
 
    ActiveWorkbook.Save
    ActiveWorkbook.Close
Dans ce cas l'erreur ne s'affichait pas. C'est juste le workbook actuel (thisworkbook) qui se fermait, et non le workbook de "CheminFichierContacts".



Est-ce que quelqu'un pourrait m'aider?