Export Excel - Souci avec Range et Cells

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:

---

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:

Citation:

---

The remote server machine does not exist or is unavailable

---

qui pointe sur la ligne

Code:

---

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é :cry:

merci...

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.

Salut Oleff,

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

Citation:

---

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:

---

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

---

Citation:

---

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:

---

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

OK c'est bon...

En bidouillant, on y arrive!

Il faut écrire:

Code:

---

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

---

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