Discussion :

[yonnel]

Bonjour,

Je me prends la tête depuis plusieurs semaines sur une erreur que je n'arrive pas à comprendre...
Ci dessous une petite fonction qui reproduit le bug:

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
18
19
20
21
22
23
24
25
26
27
28
Public Sub TestBug()
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Test_Data", CurrentProject.Path & "\TestFile.xlsx", True
 
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.ScreenUpdating = True
 
    Set xlBook = xlApp.Workbooks.Open(CurrentProject.Path & "\TestFile.xlsx", False, False)
    Set xlSheet = xlBook.Worksheets(1)
 
    With xlSheet
        .Activate
        .Cells.Select
        .Cells(1, 1).Interior.Color = 9234572 'Erreur ici!
    End With
 
    Set xlSheet = Nothing
    xlBook.Close True
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Sub

Le code fonctionne sur la plupart des ordinateurs où j'ai pu le tester, mais pour deux d'entre eux il me retourne une Erreur 13: Type Mistmatch au niveau de la ligne:

Code :

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

xlSheet.Cells(1, 1).Interior.Color = 9234572

Le fichier Excel est bien créé, la sélection des cellules fonctionne, mais c'est le changement de couleur qui pose problème.
Ces deux personnes utilisent la version Runtime de Access 2007, mais d'autre chez qui cela fonctionne aussi.

J'ai bien tenté un CLng(9234572) mais ça ne change rien...
J'ai vérifié les références mais je n'ai rien vu de spécial...
J'ai essayé d'exporter vers Excel 2003 mais le problème reste le même...

Il semblerait que le problème vienne plus de leur PC que du code... Mais je ne sais pas dans quelle direction chercher!!

Avez vous des idées?

Merci par avance pour vos pistes et commentaires!


Lionel

[marot_r]

Bonjour

Deux idées :

1. Essaye ton code de changement de couleur directement dans le Excel de la machine qui plante. Si cela marche c'est un problème de communication entre Access et Excel
2. Essaye de mettre une couleur "plus petite" ex : 255 (rouge vif), si cela marche c'est que le PC concerné ne supporte pas de valeur élevée. Va jetter un oeil à la carte graphique. C'est peut-être une vielle version qui ne gère qu'un nombre limité de couleurs.

A+

[yonnel]

Merci pour les pistes!

Le code fonctionne lorsqu'il est rentré directement dans Excel...
Mais je vais quand même tenter d'utiliser une valeur plus petite, même si les PC sont récents (je pourrais faire le test demain en milieu de journée).


Lionel

[nico84]

Bonjour,

Une 3e idée : remplacer par

Code :

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

Interior.ColorIndex = 15  'gris moyen

[yonnel]

OK merci, je vais aussi tester ça tout à l'heure.

Mais j'ai l'impression que le problème vient vraiment de la communication entre Access et Excel.
Car ce code est plutôt simple, il n'y a pas de raison qu'il ne fonctionne pas sur une config assez récente (Win 7 + Office 2007).

Si tel est le cas, d'où pourrait venir le problème?
De Excel (composant Microsoft Excel 12.0 Object Library)
Ou d'un autre composant type Mscomctrl.ocx, stdole2.tlb...?

[marot_r]

Aucune idée pour la cause mais essaye cela.

Remplace

Code :

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

1
2
3
4
 
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet

par

Code :

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

1
2
3
4
 
    Dim xlApp As Object
    Dim xlBook As Object
    Dim xlSheet As Object

et supprime la référence à Excel. Tu vas perdre l'intellisens mais tu vas "détacher" Access de Excel.

A+

[yonnel]

Merci beaucoup.
J'ai essayé les différentes solutions mais rien n'y fait...
Toujours ce "Type Mismatch"!!

Aussi, je me suis aperçu qu'il retourne une erreur pour le Set, mais aussi pour le Get (même erreur si je fais par exemple msgbox .Cells(1, 1).Interior.Color)
Par contre, je n'ai pas précisé mais si je change juste le texte d'une cellule ça fonctionne parfaitement! Donc certaines choses fonctionnent, d'autres pas...

Je me demande s'il n'y a pas un module complémentaire de Excel qui pose problème.
J'ai cherché à la main mais je n'ai rien vu...

=> Savez vous s'il y a un moyen de lancer Excel en mode sans échec?

[marot_r]

Autres idées de contournement :

Mettre le code dans le Excel et appeller Excel avec un paramètre dans la ligne de commande pour le forcer à exécuter le code.

Utiliser la mise en forme conditionnelle de Excel pour changer la couleur de fond.

Que dit l'aide de Excel sur le type de .color ? Est-ce un entier long ou un objet de type "Color" ?

A+