Dans ACCESS, pb références EXCEL

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Dans ACCESS, pb références EXCEL

Nilorka

Bonjour,

J'ai crée une base ACCESS que je diffuse au format MDE à tous mes collègues. Cette base ACCESS appelle des fonctions EXCEL. Sur certains postes de mes collègues, il y a EXCEL 2000 et non 2007; La référence à EXCEL Object 12.0 ne fonctionne donc pas.

Comme je leur diffuse la base en MDE, ils n'ont pas moyen de changer les références eux même.

J'ai cherché pour localiser précisemment le fichier de référence en question mais cela n'a pas aboutit;cela semble plus compliqué que récupérer seulement par exemple le fichier de gestion des calendrier MSCAL.OCX, ce que je faisait jusqu'à présent.

Quelqu'un a-il une idée sur le sujet ?

Merci beaucoup,

Publicité

SuppotDeSaTante

Aka dje69r

C'est quoi comme fonctions Excel ?

Edit : sinon tu testes la présence de la version d'Excel et en fonction tu créés une référence... [:le colonel moutarde:5]

Code :

References.AddFromFile("C:\Program Files\Microsoft Office\OfficeX\EXCEL.EXE" )

Où X est la version d'Excel que tu veux atteindre

Message édité par SuppotDeSaTante le 08-02-2012 à 14:16:16

---------------
Soyez malin, louez entre voisins !

Nilorka

L'idée du test et de la création de référence me plait bien !
Je repasserai par là si ça ne résout pas le pb, mais ça devrait

Merci bien.

Nilorka

Le problème c'est que les fichiers de références n'ont pas le même chemin d'accès en fonction des windows : C:\Program Files... ou C:\Programmes ou C:\Program Files (x86)...

SuppotDeSaTante

Aka dje69r

Tu as plusieurs solutions pour tester la version.

La plus simple c'est d'utiliser l'objet Application d'Excel.

Je suppose, comme tu n'as pas répondu à ma question, que tu fais un :

Code :

Set ExcelApp = CreateObject("Excel.Application" )

Si ce n'est pas le cas, bah il faudra le faire

Ensuite pour récupérer la version, rien de plus simple :

Code :

NumVersion = ExcelApp.Version

Et pour le chemin d'acces à Excel :

Code :

CheminAcces = ExcelApp.Path

Tu peux tester dans un nouveau module ceci :

Code :

Set ExcelApp = CreateObject("Excel.Application" )
NumVersion = ExcelApp.Version
CheminAcces = ExcelApp.Path
MsgBox "La version d'Excel est : " & NumVersion & vbCrLf & vbCrLf & "Chemin d'accès : " & CheminAcces
Set ExcelApp = Nothing

---------------
Soyez malin, louez entre voisins !

Nilorka

Merci, j'avance petit à petit.

La création de références fonctionne quand elles sont absentes, c'est bon.

le problème qui reste est que je n'arrive pas à identifier et supprimer les références manquantes :

Le code suivant me renvoie un erreur de chargement de DLL sans que je puisse obtenir le nom de la référence manquante.

Dim Ref As Reference
For Each Ref In Application.References
MsgBox Ref.Name
If Ref.IsBroken = True Then Application.References.Remove Ref
Next Ref

Nilorka

Ah et au passage ... j'essaye de trouver la version d'outlook avec la même solution qu'au dessus pour Excel et ça ne fonctionne pas (normal ?)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Dans ACCESS, pb références EXCEL

Sujets relatifs
comparer des lignes sur macro excel	A supprimer
[Résolu] Petite aide vba Excel	format heure complet sql ACCESS
Renommer une colonne en SQL ACCESS 2003	Excel macro, grille de nombre, changer couleur fond selon choix
créer une boite de dialogue pour rentrer une valeur dans excel	[VBA Excel] Problème chemin absolu 2 classeurs - 2 chemins différents
[VBA Excel] concatener nom de champ et variable	[Résolu][VBA Access + Excel] références à intégrer
Plus de sujets relatifs à : Dans ACCESS, pb références EXCEL

Page générée en 0.051 secondes