probleme de serveur excel

Version imprimable

11/10/2006, 10h44
shezam

probleme de serveur excel

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
11/10/2006, 10h54
ouskel'n'or

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

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

Code:

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 !!!

11/10/2006, 11h14
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:

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

Il en va de même des lignes suivantes
Tu dis
11/10/2006, 11h27
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
11/10/2006, 11h30
ouskel'n'or
On n'abandonne pas comme ça ! :lol:
Ajoute DoEvents après cette ligne, "une fois sur deux" l'absence de DoEvents pourrait être l'explication
Code:

1 2 3 Set wor = app.Workbooks.Open(dossier & "\test_ajout_credits_client save\Default.xls") DoEvents 'Tcé tes rats
A+
11/10/2006, 11h50
shezam

j'suis content que t'abandonnes pas comme ca, parce que ca veut toujours pas marcher, meme avec le DoEvents...

enfin bon, j'aurai pas tout perdu aujourd'hui, j'ai appris a quoi servait la fonction DoEvents !!
11/10/2006, 12h00
ouskel'n'or

Ça plante toujours au même endroit ?
11/10/2006, 12h13
shezam

et oui, malheureusement ca plante toujours au meme endroit...
11/10/2006, 12h39
ouskel'n'or

Combien as-tu de feuille après avoir supprimé la feuille 'Global'
Manuellement on ne peut pas supprimer la dernière feuille d'un classeur. Par soft, je n'ai pas essayé mais, si tu n'as qu'une feuille dans ton classeur, essaie de créer ta nouvelle feuille AVANT de supprimer la feuille 'Global'
Tu dis
11/10/2006, 12h46
shezam

j'ai plus d'une feuille dans mon classeur, j'en ai quatre en tout. le probleme ne vient pas de la je pense. mais je vais quand meme essaye d'inserer ma feuille avant de la supprimer, on verra bien.
11/10/2006, 12h49
SfJ5Rpw8
essai :
Code:

1 2 Wor.Sheets.Add Before:=Wor.Sheets(1)
11/10/2006, 13h45
ouskel'n'or

:cry: j'avais pas vu :oops:
11/10/2006, 13h45
shezam

ca y est ca marche en faisant ce qu'a dit bbil !!!

merci bcp ouskel'n'or et bbil pour vos reponses