Discussion :

[JesseLacey]

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?

[DeaD78]

Bonsoir,

Essaie avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ca devrait marcher.

Bonne nuit !

[LeForestier]

Bonjour,
Pour reprendre tes commandes...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Workbook(ContactWorkbook).Save
    Workbook(ContactWorkbook).Close

Si le nom est dans une variable ou, si c'est le nom du classeur..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+