Discussion :

[jkrtu]

Bonjour,

Ma situation est la suivante je génère un fichier EXCEL à partir d'ACCESS 2000. Le classeur généré est curieusement généré au format EXCEL 95/97 alors que mon poste est tout équipé en Office 2000.

J'ouvre ensuite ce classeur pour faire quelques modifications avec EXCEL piloté par ACCESS. J'aimerais sauvegarder au dernier format disponible sur le poste, donc en théorie dans mon cas EXCEL 2000.

Quand je consulte le help de SaveAs : FileFormat la dernière valeur que je vois est xlExcel9795.

De plus, j'aimerais que cette application soit indépendante de la version d'EXCEL.

[Singular]

Il faudrait que tu nous montre un bout de code où Access génère un fichier Excel. En général, on fait quelque chose comme ça:

Code :

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

1
2
Dim XL as Object
Set XL = CreatObject("Excel.Application")

Ce qui devrait en théorie utiliser la version la plus récente d'Excel...

[jkrtu]

Et voici :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
'exportation de la requête r_list_doc sous excel
DoCmd.OutputTo acOutputQuery, "r_list_doc", acFormatXLS, cheminTemp, False
 
'Ne pas oublier de cocher dans le menu Outil/Références, la bibliothèque Microsoft Excel X Object Library (avec x = 8 pour Excel 97, x = 9 pour Excel 2000, x = 10 pour Excel XP, x = 11 pour excès 2003).
 
'Creation du fichier Excel :
 
' Test pour déterminer si une copie de Microsoft Excel
' est déjà en exécution.
On Error Resume Next    ' Retarde la récupération d'erreur.
' La fonction Getobject appelée sans le premier
' argument renvoie une référence à une instance de
' l'application. Si l'application n'est pas en
' exécution, une erreur se produit.
Set appexcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
    ExcelWasNotRunning = True
    Set appexcel = CreateObject("Excel.Application")
End If
Err.Clear     ' Efface l'objet Err si une erreur s'est produite.
 
' Vérifie si Microsoft Excel est en exécution.
' Dans ce cas, l'ajoute à la table Running Object.
DetectExcel
 
'Ajout la feuille de formatage si le modèle existe
fichierModel = Interaction.Environ("DATABASE_DIRECTORY") & "\DRAWING_LIST_Template.xls"
Set wbexcel = appexcel.Workbooks.Open(FileName:=cheminTemp)
Set wbexcel = GetObject(cheminTemp)
appexcel.Visible = True
appexcel.Parent.Windows(1).Visible = True
 
If (Dir(fichierModel, vbNormal)) = "DRAWING_LIST_Template.xls" Then 'si le modèle existe
    Set wbModele = appexcel.Workbooks.Open(FileName:=fichierModel)
 
    appexcel.Sheets("Format").Select '###
    appexcel.Visible = True
    appexcel.Windows.Arrange ArrangeStyle:=xlTiled
 
    appexcel.Sheets("Format").Move After:=appexcel.Workbooks(nomFichierTemp).Sheets(1)
    appexcel.Windows("DRAWING_LIST_template.xls").Activate
    wbModele.Close False
 
End If
 
wbexcel.Save
wbexcel.Close True

[Singular]

Dans l'éditeur VBA d'Access, tu dois aller au menu Outils (Tools) et sélectionner l'option Références...

Dans cette fenêtre, il faut décocher la référence courrante au Excel et ensuite aller plus loin dans la liste pour trouver et cocher la référence à la version la plus récente. On ferme le tout avec "Ok" et ça devrait fonctionner, mais je ne peux rien garantir.

Tu dois sauvegarder le projet par la suite.

[jkrtu]

Dans Outils > Références, je ne fais justement aucune référence à "Microsoft Excel x.x Object Library" pour ne pas être dépendant de la version d'Excel.
J'ai utilisé cette solution suite à la discussion Utilisation de "Microsoft Excel/Word 8.0 Object Libray" sur PC équipé d'Office 2000 j'ai utilisé le "late binding" comme expliqué dans Référence Excel depuis Access