Bonjour,
J'ai vu de nombreux posts concerne des erreurs d'automation mais cette erreur-ci ne semble pas avoir été traité.
Alors voilà l'intitulé :

Erreur d'exécution '-2147417848(80010108)':
Erreur automation
L'objet invoqué s'est déconnecté de ses clients

Alors j'avoue ne pas comprendre ce que cela signifie. Surtout que mon code s'appuie sur l'aide directement donc je ne comprend pas pkoi ca ne fonctionne pas. Voici ma déclaration, mon ouverture et fermeture du classeur

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 Compilation as workbook
'Ouverture
Set compilation = Workbooks.Add
    With compilation
        .Title = "Résultats"
        .Subject = "Analyse d'objet"
        .SaveAs FileName:="D:\Peluchage 8 bits OK\NouveauxClasseur.xls"
    End With
Workbooks.Open ("D:\Peluchage 8 bits OK\NouveauxClasseur.xls")
Sheets(1).Activate
ActiveSheet.Name = "Résultats"     'Renomme la feuille

'Fermeture
fileSaveName = compilation.GetSaveAsFilename("Nouveau_fichier.xls", , , "Enregistrer sous")
If fileSaveName <> False Then
    MsgBox "Save as " & fileSaveName
End If
Si quelqu'un peut m'éclairer, je l'en remercie grandement
D'avance merci