signaler qu'une importation Excel est deja presente dans access

Version imprimable

29/03/2012, 22h03
makila64

signaler qu'une importation Excel est deja presente dans access

Bonjour à tous,
Je n'ai pas réussi à trouver la solution à mon problème après plusieurs recherches infructueuse. J'importe donc un fichier excel dans une table :

Code:

DoCmd.TransferSpreadsheet acImport, 8, "<Nom de la table>", "C:\<Chemin explicite>\<fichier Excel>.xls", True, "feuil2!"

et je voudrais que une foix que j'execute ma macro un msgbox me précise si j'ai deja importée ce fichier et si je veux bien le réimporter.
Je sais qu'il y a une histoire comme quoi si les données dans access = données dans feuille excel alors importer quand meme oui non sinon oui.
Merci à vous ...
30/03/2012, 09h09
argyronet

Bonjour,

Il y a plusieurs solutions et tout dépend comment est structurée ta base et ton classeur... Tout dépend du contenu de ta feuille aussi... Est-ce qu'il y a une date dans la feuille ou bien sur la date du fichier lui-même.

Par exemple, tu peux jouer sur le nom de la feuille et localisant la dite table et ses attributs ; Si feuil2 est présente et si date création = aujourd'hui alors déjà importée...
Après tu peux jouer sur le contenu ;

Code:

SELECT ..... FROM TableCible WHERE IDxxxxx NOT IN (SELECT IDxxxxx FROM Feuil2);

etc...
Ca ne ce réalise pas en claquant des doigts mais c'est un enjeu intéressant.

Argy
30/03/2012, 09h17
makila64

En faite c'est une feuille qui récapitule mon chiffre d'affaires du mois. Et le mois suivant je réutilise la meme feuille mais avec des données financière différentes et je les distingue avec l'année et le mois.
Si j'ai bien compris je peux dire que si le champs mois de ma table est égal a la colone mois de ma feuille excel alors ne pas importer ?

Je suis débutante en vb c'est pour cela. Je vais encore t'embeter... Cette condition je l'a met juste avant le code d'importation ?

Bonjour le forum,

Voici ce que j'utilise pour la même raison, par un MSGBOX :
Code:

1 2 3 MsgBox("Le dernier fichier ABCxxxx chargé est celui de : " & DMax("ANNEE", "Nom de la table") & " - " & DMax("MOIS", "Nom de la table") & vbNewLine & "" _ & "Nous sommes, le " & Format(Date, "dddd dd mmmm yyyy") & "Voulez vous importer le fichier ABCxxxx.csv ?", vbOKCancel)
En espérant que cela puisse t'aider.
Cordialement

Citation:

Envoyé par Malika

Cette condition je l'a met juste avant le code d'importation ?

Bien en fait, il te faut écrire le script d'import.
Voici un exemple :

Code:

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
 
Sub ImportCAExcel()
Const CHEMIN_FICHIER As String = "C:\User\Argyronet\DVP\data\CA.xlsx"
Const TABLE_EXCEL As String = "Feuille CA"
Const TABLE_CIBLE As String = "TableCA"
 
Dim strRequetSQL As String
Dim lngLignesCA As Long
 
    On Error Resume Next
    'On supprime la table avant
    DoCmd.DeleteObject acTable, TABLE_EXCEL
    If Err <> 0 Then
        Err.Clear
    End If
    On Error GoTo Err_ImportCAExcel
    'On importe la feuille en son entier (Mettre la feuille de ce classeur en position 1)
    DoCmd.TransferSpreadsheet acImport, 8, TABLE_EXCEL, CHEMIN_FICHIER, True
    'On construit la chaîne SQL de la requête (par concaténation des mois et années)
    strRequetSQL = "INSERT INTO " & TABLE_CIBLE & " ( Mois, Année, CA ) "
    strRequetSQL = strRequetSQL & "SELECT Mois, Année, CA "
    strRequetSQL = strRequetSQL & "FROM [" & TABLE_EXCEL & "] "
    strRequetSQL = strRequetSQL & "WHERE ((([Mois] & '-' & [Année]) Not In (SELECT [Mois] & '-' & [Année] FROM [" & TABLE_CIBLE & "];)));"
 
    With CurrentDb
        .Execute strRequetSQL, dbConsistent
        lngLignesCA = .RecordsAffected
    End With
    If RecordsAffected Then
        MsgBox "C'est fini : " & lngLignesCA & " lignes importée(s) dans la table", vbInformation
    Else
        MsgBox "C'est fini : aucune ligne importée car toute les lignes sont communes...", vbExclamation
    End If
 
Ex_Err_ImportCAExcel:
    Exit Sub
Err_ImportCAExcel:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Ex_Err_ImportCAExcel
End Sub

Argy

01/04/2012, 21h22
makila64
Bonsoir,

Merci a tous pour vos réponse je pense que Argyronet est plus proche de ma solution. J'ai juste une petite question en faite :
Code:

1 2 'On supprime la table avant DoCmd.DeleteObject acTable, TABLE_EXCEL
En faite à chaque fois on supprime la table ?
Mais j'arrive pas à voir a quel moment on la recrée ?
Merci pour ton ade
01/04/2012, 22h32
makila64

Re bonsoir,

Je viens de tester le code est en faite j'ai une table EXCEL ne se supprime pas et dpnc j'ai deux tables avec les meme données.
Je suis un peu perdue malgres l'effort de comprehension que j'essaie de faire.
:cry:
02/04/2012, 09h55
argyronet
As-tu bien affecté les constantes en fonction de tes propres infos ?
Code:

1 2 Const TABLE_EXCEL As String = "Feuille ???" Const TABLE_CIBLE As String = "????"
Argy
02/04/2012, 13h25
makila64

Ha oui j'ai inversé les deux table en faite. Merci pour ton aide ca marche impeccable.:ccool: