Discussion :

[shezam]

bonjour,

j'ai deja poste cette question sur le forum vba access,mais comme je n'ai pas eu de reponse, je la repose sur ce forum. peut etre que quelqu'un aura une solution a me proposer...

dans un programme vba, je cree a un moment une application excel à l'aide de createobject. une fois sur deux le programme marche bien, l'autre, cette erreur apparait "Run-Time error '462': The remote server machine does not exist or is unavailable".

est ce quelqu'un sait a quoi cela est du ?

merci beaucoup

[ouskel'n'or]

Peux-tu nous donner ton code et nous indiquer sur quelle ligne se produit l'erreur ?
A+

[shezam]

Voici le code, je n'ai mis que la partie ou je cree le fichier excel, le reste est inutile je pense.

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
 
'ouverture du fichier Default.xls du TNR
    Set app = CreateObject("Excel.Application")
    Set wor = app.Workbooks.Open(dossier & "\test_ajout_credits_client save\Default.xls")
    'on supprime puis recree la feuille 'Global'
    app.DisplayAlerts = False
    app.Sheets("Global").Delete
    app.DisplayAlerts = True
    app.Sheets.Add Before:=Sheets(1)
    app.ActiveSheet.Name = "Global"
    app.Cells(1, 1) = "N_Client"
    app.Cells(1, 2) = "Fonction"
    app.Cells(1, 3) = "Sales_organization"
    app.Cells(1, 4) = "Distribution"
    app.Cells(1, 5) = "Division"
    app.Cells(1, 6) = "Company_code"

l'erreur apparait sur cette instruction "app.Sheets.Add Before:=Sheets(1)". si t'as une solution ca m'aiderai vraiment, parce que c'est chiant comme probleme !!!

[ouskel'n'or]

En faisant " app.Sheets.Add Before:=Sheets(1) " tu ajoutes une feuille à l'application (!) c'est au Workbook qu'il faut ajouter la feuille Essaie avec

Code :

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

Wor.Sheets.Add Before:=Sheets(1)

Il en va de même des lignes suivantes
Tu dis

[shezam]

j'ai modifie mon code comme tu me l'as indiqué, mais c'est toujours la meme chose, une fois sur deux ca plante.

si tu as une autre idee, je suis preneur, sinon bah c'est pas grave, j'm'arrangerai autrement.

merci beaucoup dans tous les cas

[ouskel'n'or]

On n'abandonne pas comme ça !
Ajoute DoEvents après cette ligne, "une fois sur deux" l'absence de DoEvents pourrait être l'explication

Code :

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

1
2
3
    Set wor = app.Workbooks.Open(dossier & "\test_ajout_credits_client save\Default.xls")
    DoEvents
    'Tcé tes rats

A+