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
Si quelqu'un peut m'éclairer, je l'en remercie grandement
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
D'avance merci![]()
Partager