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