Erreur 462 Le serveur distant n'existe pas

[alzb]

J'ai créé un script sous vba access qui utilise excel par automation :
set xlsExcel = createobject("Excel.Application")
Puis j'initialise et mets en forme le document excel, à la fin j'enregistre et puis je cloture le tout.
Si j'essaye d'ouvrir le document excel, seul le contour de l'application excel s'ouvre. Si je regarde les taches de fonds j'appercois un processus excel fort gourmand. Il faut que je le tue pour pouvoir ouvrir le document créé.
Si je relance le script, il génère une erreur 462, quelques lignes plus après l'initialisation des objets .
Si je regarde ensuite les processus en cours il y a encore un processus excel qu'il faut que je tue pour pouvoir relancer le script.
Si quelqu'un a une idée...
Merci

'******************
Private Sub ADD_WSHEET_SYNTHESE(wk As Workbook)
Dim wshNs As Worksheet
Dim lgPos As Long
lgPos = 1
'Il est possible de supprimer la feuille par défaut
Set wshNs = wk.Worksheets.Add(, wk.Worksheets(wkBook.Worksheets.Count))
wk.Sheets("feuil1").Delete
With wshNs
.Name = "Synthèse"
.Range("A" & lgPos).Select
Selection = "RAPPORT PREVISIONNEL de la période " ******* Niveau de l'erreur **************
Selection.Font.Name = "TimeNewRoman"
Selection.Font.Bold = True

 

[Zon]

Re: Erreur 462

Bonsoir,

De la part de Zon (qui rencontre un problème de souris actuellement) pour Alzb :


"""
Il manque des points dans ton code, Access ne sait pas sur quel objet il doit travailler: essaies d'utiliser

.selection.font.name="timenewroman"

qu'on peut écrire encore:

with wshns
.name="Synthèse"
with .range("A"&lgpos)
.value="Rapport ...."
.font.name="timenewroman"
.font.bold=true
end with
end with
"""""

Celeda