Discussion :

[bruno28]

J'ai un problème avec GetObject. Le morceau de code ci dessous fonctionne bien sur mon PC, mais pas sur un autre (Même Windows XP SP2, même Access 2000, même références dans VBA (menu "outil" ->"référence").

De quoi 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
 
    'Récupère le chemin de la base de donnée
Dim MaBD1
MaBD1 = Application.CurrentProject.Path 'chemin du fichier 
 
    '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")
 
'reste du code + end if ect...

[bruno28]

Problème résolu.
En fait, ce n'était pas fait vraiment dans les règles de l'art. Voici le codde qui résoud mon problème.

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
    'Vérifie si Excel est installé sur le poste utilisateur (utilise le module ExcelInstal)
    If TestExcel = False Then
        Beep
        MsgBox "Vous ne pouvez pas importer les données. Microsoft EXCEL n'est pas installé sur votre ordinateur. Veuillez installer Microsoft Excel, puis essayez à nouveau.", vbCritical + vbOKOnly, "Importation interrompue"
    Else
        '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
        '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
                Set appXL = CreateObject("Excel.Application") 'crée un doc Excel
                appXL.Visible = False 'permet de visualiser le doc Excel ouvert remplacer par False si on veut le faire en tâche masquée
                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
                    'Création de la requete qui enregistre une table contenant les nouveaux clients
                        'Désactive avant les messages système pour ne pas avoir le message de confirmation de suppression de table
                            DoCmd.SetWarnings False
                    DoCmd.RunSQL "SELECT Import.N°Client, tblClients.NomClient, tblClients.TCI, tblClients.CodePostal, tblClients.Ville INTO tblNewClient FROM Import LEFT JOIN tblClients ON Import.N°Client = tblClients.N°Client WHERE (((tblClients.N°Client) Is Null))"
                        'Résactive les messages système
                            DoCmd.SetWarnings True
                    'Ouvre le formulaire pour remplir les champs des nouveaux clients _
                    ne s'ouvre pas s'il n'y a pas de nouveaux clients (voir évènement sur ouverture du formulaire _
                    avec création d'une gestion d'erreur, car si pas de nouveau client, à l'annulation de l'ouverture _
                    il y a création d'une erreur sur la ligne ci dessous (DoCmd.OpenForm...)
                On Error GoTo Err_PasNewClient
 
                    DoCmd.OpenForm "frmNewClient" ', , , , , acDialog, "GotoNew"
 
Exit_PasNewClient:
                Exit Function
Err_PasNewClient:
                    'MsgBox err.Description 'n'affiche pas de message d'erreur car c'est juste que l'ouverture _
                    du form a été annulée car il n'y a pas de nouveau client mais _
                    Invite à redémarrer la base pour que les nouveaux clients soient pris en compte et que le recalcul de la table tampon se fasse
                    MsgBox "Les données que vous venez d'importer ne seront prise en compte qu'à la réouverture de la base.", vbInformation + vbOKOnly, "Information importante"
 
                Resume Exit_PasNewClient
 
            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 à nouveau.", vbOKOnly + vbCritical, "Importation interompue"
        End If
    End If
End If
    'Fin de la fonction

Merci et bon courage à vous