Discussion :

[makila64]

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 :

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

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 ...

[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 :

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

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

[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 ?

[Bernard67]

Bonjour le forum,

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

Code :

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

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

[argyronet]

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 :

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
 
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

[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 :

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

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