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 |
