Discussion :

[bruno28]

Bonjour,

J'ai réalisé une appli Access2000. Il y a un module qui execute le code ci-dessous. Ce code fonctionne parfaitement sur mon PC, mais pas sur d'autres. Le message est le suivant : Erreur d'execution 429 - Un composant ActiveX ne peut pas créer d'objet.
Le débogueur me surligne

Code :

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

1
2
 
    Set ExcelWorksheet = GetObject(MaBD1 & "\ImportV3.xls", "Excel.Sheet")

Je présume que c'est GetObject qui pose un souci, mais je n'ai pas trouvé. Et bien sur, aucune indication sur le nom du composant activex. A moins que ce ne soit un problème de déclaration sur 'ExcelWorksheet '.
Le pire, c'est que, à l'ouverture du fichier excel, j'execute une macro, qui s'execute bien.
Sur les PC, même version de Windows XP SP2, même version de Access2000, même version de Ecxel2000, même références dans le menu 'outil' ->'références'.

D'où celà peut il bien venir???

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
 
Function GetExcel()
 
Dim ExcelWorksheet As Object
 
    'Récupère le chemin de la base de donnée
Dim MaBD1
MaBD1 = Application.CurrentProject.Path 'chemin du fichier sans nom ni extension
'MaBD1 = Application.CurrentProject.Name 'Nom et extension du fichier
'MaBD1 = Application.CurrentProject.FullName 'chemin et nom du fichier avec extension
 
    'Vérifie si le fichier excel existe ou non dans le même répertoire _
    que le fichier Access (si fichier supprimé, déplacé ou renomé
If Dir(MaBD1 & "\ImportV3.xls", vbHidden) <> "" Then 'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
        'Vérifie si le fichier est ouvert
    If IsFileOpen(MaBD1 & "\ImportV3.xls") Then 'Utilise la Function dans le module 'Fichier Ouvert'
        MsgBox "Le fichier " & MaBD1 & "\ImportV3.xls est déjà ouvert. Veuillez fermer le classeur et réessayer.", vbOKOnly + vbCritical, "Importation interompue"
    Else
        'Utilise le chemin pour ouvrir le fichier Excel
        Set ExcelWorksheet = GetObject(MaBD1 & "\ImportV3.xls", "Excel.Sheet")
 
  SendKeys "{LEFT}"
 SendKeys "{ENTER}"
 
 
            'Définit la non visibilité du fichier Excel ouvert
        ExcelWorksheet.Parent.Windows(1).Visible = True
        ExcelWorksheet.Application.Visible = False
            'Pilote le fichier, mettre le code des actions à effectuer
        ExcelWorksheet.Application.Quit
        'ExcelWorksheet.Application.Cells(1, 1).Value = "N°Client"
        SendKeys "{ENTER}"  'Valide automatiquement l'enregistrement du fichier
            ' Libère la référence à l'application et à la feuille de calcul.
        Set ExcelWorksheet = Nothing
    End If
Else
    MsgBox "Le fichier 'ImportV3.xls' a été renomé, déplacé ou supprimé. Veuillez remettre le fichier dans le même répertoire que la base de données et le nomer 'ImportV3.xls', puis essayez de nouveau.", vbOKOnly + vbCritical, "Importation interompue"
End If
    'Fin de la fonction
End Function

[Domi2]

Bonjour,

Tu peux regarder ici.

Domi2

[bruno28]

Merci pour ta réponse rapide.
Je vais essayer les différentes solutions, et je te dirais ce qu'il en ressort.

A bientôt

[bruno28]

Ok. Résolu.
Problème de déclaration pas très explicit

voici le code qui fonctionne :

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
 
  'Déclare les objects Excel
        Dim appXL, appXLS As Excel.Application 'permet la création d'un doc Excel
        Dim WXL As Excel.workbook
        Dim oWSht As Excel.Worksheet
 
            'Récupère le chemin de la base de donnée
        Dim MaBD1
        MaBD1 = Application.CurrentProject.Path 'chemin du fichier sans nom ni extension
 
            'Vérifie si le fichier excel existe ou non dans le même répertoire _
            que le fichier Access (si fichier supprimé, déplacé ou renomé)
        If Dir(MaBD1 & "\ImportV3.xls", vbHidden) <> "" Then 'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
                'Vérifie si le fichier est ouvert
            If IsFileOpen(MaBD1 & "\ImportV3.xls") Then 'Utilise la Function dans le module 'Fichier Ouvert'
                MsgBox "Le fichier " & MaBD1 & "\ImportV3.xls est déjà ouvert. Veuillez fermer le classeur et réessayer.", vbOKOnly + vbCritical, "Importation interompue"
            Else
                Set appXL = CreateObject("Excel.Application") 'crée un doc Excel
                appXL.Visible = False 'permet de visualiser ou non le doc Excel
                workbooks.Open (MaBD1 & "\ImportV3.xls") ' ouvre le fichier *.xls ou dbf avec Excel
                'ActiveWorkbook.SaveAs "O:\GMA_PUBL\extraction PS\PILOT.xls" 'Permet de le sauvegarder au format *.xls
 
        'Vérifier que les données n'ont pas été déjà importées (comparaison des dates
        'oWSht.Cells(2, 3) = "sg" 'je suis dans la ligne2 et colonne3
        'utiliser un Dmax sur table import champs date pour comparer (à tester)
 
                    'Importe dans la table Import
                DoCmd.TransferSpreadsheet acImport, 5, "Import", MaBD1 & "\ImportV3.xls", True, "" ' permet d'importer le fichier Excel dans une table nommée ici PILOT
                    'Active le fichier pour pouvoir l'enregistrer et le fermer
                workbooks("ImportV3.xls").Activate
                ActiveWorkbook.Save 'permet de sauvegarder le document après modification
                    'ferme l'application Excel et retour sur le formulaire
                appXL.Quit

Merci