[AC-2007] Référence manquante impossible à supprimer avec AC-2003 [Résolu]

[zoom61]

Salut,

J'ai une appli qui peut-être ouverte avec AC-2007 ou AC-2003...
Donc j'ai un problème de référence Excel 12 et 11 !!!!

Mais avec AC-2007 aucun problème, cela connecte toujours avec 12.
Mais avec AC-2003 cela me bloque "Référence Manquante"

J'ai donc trouvé des explications mais cela me fonctionne toujours pas :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function essai()
    Dim Ref As Reference
    Dim i As Integer
 
    For Each Ref In Application.References
        If Ref.IsBroken = True Then
            Application.References.Remove Ref
            For i = 8 To 12
                If Dir("C:\Program Files\Microsoft Office\Office" & i & "\EXCEL.EXE") <> "" Then
                    On Error Resume Next
                    Application.References.Remove Ref
                    References.AddFromFile ("C:\Program Files\Microsoft Office\Office" & i & "\EXCEL.EXE")
                End If
            Next i
        End If
    Next Ref

Avec AC-2003 cela me bloque à la ligne :

Code :

If Ref.IsBroken = True Then

Car je ne récupère aucune valeur... que ce soit avec IsBroken, Name, FullPath...

Avez-vous une idée comment je pourrai faire ?

Merci

[Thierry_PALLIER]

Bonjour,
Dans le meme cas que toi j'utilise:

Code :

1
2
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")

Cela me pemet de ne pas référencer Excel (pareil pour Outlook)
A+

[zoom61]

Cela ne fonctionne pas car je dois piloter Excel avec Access... Et cela me bloque sur certaine commande.

[Thierry_PALLIER]

Bonjour zoom61

Cela dépend de ce que tu veux faire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 Dim appExcel As Object   'Application Excel
    Dim wbExcel As Object 
'envoie d'une requete vers Excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "LaRequete", DriveLinkedTable & "LaFeuille\LeFichier.xls", 0
 
Set appExcel = CreateObject("Excel.Application")
    appExcel.Visible = True
    'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.open(DriveLinkedTable & "LaFeuille\LeFichier.xls")
 
appExcel.Run "LaSub"    'active une procedure
    wbExcel.Close
 
    appExcel.Quit

DriveLinkedTable represente le chemin du fichier
Avec ce code,j'envoie une requete vers Excel, ouvre le fichier,
declenche une procédure qui en appelle 4 ou 5 , qui envoie la feuille en pj dans un message Outlook .Tout cela sans intervention ni reference.
A+

[Philippe JOCHMANS]

Bonjour

Envoyé par zoom61

Cela ne fonctionne pas car je dois piloter Excel avec Access... Et cela me bloque sur certaine commande.

Je pense que ce qui bloque est les constantes xl...., dans ce cas il y a deux solutions :

1 - Prendre le numéro de la constante (tu le trouves en bas dans l'éditeur d'objets - F2 - dans l'éditeur VB).

2 - Déclarer des constantes xl... dans un module en leur affectant ce numéro.

Je suis plus sur la deuxième solution qui donne plus de visibilité au code en voyant la constante littérale.

Philippe

[zoom61]

Salut,

Pour ma part cela me bloque sur la commande :

Code :

1
2
3
4
5
6
7
8
9
10
11
 With ocell
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With

Je suis arrêté sur "HorizontalAlignment", et quand je vais ce que tu m'as dit je n'ai pas de constant xl... ??? Où je ne cherche pas au bon endroit.

[LedZeppII]

Bonsoir, Philippe

Envoyé par zoom61

Je suis arrêté sur "HorizontalAlignment", et quand je fais ce que tu m'as dit je n'ai pas de constant xl... ??? Où je ne cherche pas au bon endroit.

Il faut une référence valide à Excel pour pouvoir explorer le modèle objet d'Excel.
Le mieux est d'ouvrir Excel, puis l'éditeur Visual Basic (depuis Excel).
Ensuite, tu ouvres l'explorateur d'objets (F2).
Tu sélectionnes la bibliothèque Excel, et juste en dessous (liste déroulante à gauche des jumelles) tu tapes xlCenter.
Tu cliques sur les jumelles.
Dans le résultat de la recherche, tu cliques sur le membre xlCenter.
En bas de l'explorateur tu dois voir ...

Code :

Const xlCenter = -4108 (&HFFFFEFF4)

Dans ton code tu rajoutes une déclaration

Code :

Const xlCenter = &HFFFFEFF4

ou

Code :

Const xlCenter As Long = -4108

A+

[zoom61]

Ok cela fonctionne parfaitement pour ce que je veux faire. Merci.