Discussion :

[timoth]

Bonjour !

J'ai un petit souci assez bizarre.

J'exporte des données sur Excel via la méthode automation (voir tuto ici)

Voici mon code:

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 xlApp As Excel.Application
    Dim xlsheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlsheet = xlBook.Worksheets.Add
xlsheet.Name = "test"
 
    Dim rst As DAO.Recordset
    Dim db As DAO.Database
    Set db = CurrentDb
    Set rst = db.OpenRecordset("Q_test")
 
xlsheet.Cells(1, 1) = rst.Fields(1)
xlsheet.Range(Cells(1, 1), Cells(1, 3)).Merge
 
xlApp.Visible = True

Ce code marche, mais une seule fois. La page apparaît avec le résultat attendu, je ferme Excel et en réexutant le code, j'ai l'erreur 462:

The remote server machine does not exist or is unavailable

qui pointe sur la ligne

Code :

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

xlsheet.Range(Cells(1, 1), Cells(1, 3)).Merge

le problème n'est pas au niveau du merge, car l'erreur apparaît aussi avec SELECT. En revanche, aucun souci si j'enlève la ligne de code. Un simple export de données fonctionne très bien.

Je suis dépité

merci...

[Oleff]

Plusieurs réponses me viennent à l'esprit :
si tu fermes excel et que tu ne redéclare pas tes objets, tu as effectivement fermé le serveur...
sinon tu peux aussi avoir le souci si tu ne fermes pas ton instance d'excel et que tu recommence la manip à zéro. Tu peux vérifier en regardant dans ton gestionnaire de tâche si excel existe encore ou pas.

[timoth]

Salut Oleff,

Merci pour ta réponse et désolé de ne pas être revenu vers toi plus tôt.

si tu fermes excel et que tu ne redéclare pas tes objets, tu as effectivement fermé le serveur...

Je ferme bien Excel, mais vu que j'applique la même procédure, je redéclare à nouveau mes objets (a moins que qqc m'échappe):

Code :

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

1
2
3
4
5
6
    Dim xlApp As Excel.Application
    Dim xlsheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlsheet = xlBook.Worksheets.Add

sinon tu peux aussi avoir le souci si tu ne fermes pas ton instance d'excel et que tu recommence la manip à zéro. Tu peux vérifier en regardant dans ton gestionnaire de tâche si excel existe encore ou pas.

En effet, j'avais oublié de préciser dans mon post précédent. Systématiquement, je vais fermer le processus Excel manuellement via mon gestionnaire de tâches mais rien n'y fait.
C'est pour cette raison que je suis un peu destabilisé.

C'est d'autant plus énervant que lorsque j'évite la méthode Cells() en écrivant:

Code :

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

Xlsheet.Range("B2:C2").Merge

Ca marche très bien. En revanche, ça ne me convient pas du tout de travailler comme ça!
peut-être que les gars du forum Excel auront leur idée sur la question...

[timoth]

OK c'est bon...

En bidouillant, on y arrive!

Il faut écrire:

Code :

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

xlsheet.Range(xlsheet.Cells(1, 1), xlsheet.Cells(1, 3)).Merge

Voilà. En esperant que ça serve à d'autres !