Erreur Automation

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

Code:

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:

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?

Bonsoir,

Essaie avec :
Code:

1 2 Application.Workbooks.Open(CheminFichierContacts) Set ContactWorkbook = Workbooks("CheminFichierContacts")
Ca devrait marcher.

Bonne nuit !

Bonjour,
Pour reprendre tes commandes...
Code:

1 2 Workbook(ContactWorkbook).Save Workbook(ContactWorkbook).Close
Si le nom est dans une variable ou, si c'est le nom du classeur..
Code:

1 2 Workbook("ContactWorkbook.xls").Save Workbook("ContactWorkbook.xls").Close
A+