Discussion :

[Plout]

Bonjour,

J'ai actuellement une macro me permettant d'importer des données d'un fichier Excel dans ma base de données Access.
Cependant, j'aimerai que l'importation soit bloquée si elle a déjà été faite auparavant.
Pour ça, j'ai pensé à mettre une condition pour tester deux champs qui sont le nom et la date, cependant, étant un débutant complet en VBA, j'ai trouvé des tutos pour éviter les doublons d'un champ mais pas pour deux en même temps.

Si quelqu'un a des pistes pour tester deux champs en même temps, ou même d'autre pistes pour pouvoir tester si un fichier a déjà été importé

[titi95]

Bonjour

Tu veux tester sur les 2 champs Date et Nom pour empêcher
- l'import du fichier Excel en entier
- ou l'import des enregistrements qui ont cette date et ce nom ?

tester si un fichier a déjà été importé

Tu peux créer une table alimentée par le nom du fichier importé. Il suffit de la consulter juste avant un nouvel import.

titi95

[Plout]

L'import du fichier en entier

Le problème avec la table alimentée par le nom du fichier et qu'il y a déja plusieurs fichiers qui ont été importés !

[titi95]

Dans ce cas (fichier entier)
- tu crées une table Historique dans laquelle tu stockes les valeurs des 2 champs lors de chaque import
- avant chaque nouvel import, tu vas lire les 2 champs dans Excel et tu les compare avec ceux de la table à l'aide d'un requête basée sur la table et avec les valeurs récupérés d'Excel comme critères (ET = sur la même ligne de critères)
- si le résultat de la requête est vide, tu peux importer.

Est-ce valable dans ton contexte ?

titi95

[Plout]

Les 2 champs sont déjà entrés dans une table, je voudrais justement savoir comment pouvoir comparer ces champs avec ceux du fichier Excel ?

[titi95]

1) tu récupères les valeurs des 2 champs dans Excel
- soit tu sais faire, voir tuto
http://access.developpez.com/faq/?page=Excel#PilotExcel
- sois tu importes sous Access dans une table temporaire (à supprimer quand opération terminée)
2) tu les mets en critères d'une requête basée sur la table Histo
3) tu teste si la requête est vide (avec Dcount sut Nom par exemple)

titi95

[titi95]

Allez, je suis gentil... c'est vendredi
Un bout de code à mettre sur l’événement "Sur clic" du bouton qui lance ton import (à adapter,à tester, voire à corriger...)

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
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    ' Initialiser les variables
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Chemin\NomFichier.xls") 'à renseigner
 
    NomXls = xlSheet.Range("A2") 'à renseigner + créer Zone de texte NomXls dans le formulaire
    DateXls = xlSheet.Range("B2")  'à renseigner + créer Zone de texte DateXls dans le formulaire
 
    If DCount("[NOM]", "[r_Doublons]") <> 0 Then 'à renseigner
        MsgBox "Fichier déjà importé"
        GoTo Fin
    End If
    DoCmd.TransferSpreadsheet acImport, ... 'à renseigner
 
Fin:
    'fermeture Excel
    xlBook.Save
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

titi95

[Plout]

Je suis en train de faire ça, étant un débutant en VBA, je ne connais pas très bien la syntaxe, j'ai une erreur 424 Objet requis pour ma requête SQL qui est :

strRequetSQL = "SELECT * FROM Source_Taux WHERE Date = " & stringDate & " AND Site = " & stringNom & ";"

Edit : Je viens de voir ton deuxieme message, j'avais pas fait la même chose pour récupérer les données, je suis plutot parti sur :
Set xlSheet = xlBook.Sheets("Taux")
Set stringDate = xlSheet.Cells(2, 1)
Set stringNom = xlSheet.Cells(2, 2)

[titi95]

Coté Excel cela devrait être bon si tuas bien déclaré et ouvert au début du code, sans oublier de fermer à la fin.

Personnellement, j'évite de travailler avec le SQL pour les requêtes (encore une syntaxe, c'est en ligne...). Aussi je ne peux rien te dire de plus.
"Moi", j'aurais construit une requête classique en mode Création (on est en 2D et j'y vois plus clair, surtout quand quand il y a de nombreuses combinaisons de critères en ET et OU)
- basée sur la table,
- avec les 2 champs nécessaires
- avec pour chacun, comme critère, le nom du champ du formulaire correspondant à la récup d'Excel.

Éventuellement tu peux le faire pour vérifier et mettre au point, ensuite tu récupères le SQL.

titi95

[VincentNguon]

Code :

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

strRequetSQL = "SELECT * FROM Source_Taux WHERE Date = " & stringDate & " AND Site = " & stringNom & ";"

Je suis pas mais je crois que les dates (au format français) doivent être entre "#"

Ensuite il manque les ' avant et après stringNom et je crois que tu n'as pas besoin du dernier ";" mais bon...

Code :

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

1
2
strRequetSQL = "SELECT * FROM Source_Taux WHERE Date = #" &
 stringDate & "# AND Site = '" & stringNom & "' ;"

[Plout]

En fait, j'ai abandonné l'idée de la requête SQL, le DCount suffit.

Voila mon code :

Code :

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

If DCount("[Site]", "Source_Taux", "[Site] = '" & stringNom & "' AND [Date] = #" & stringDate & "#") <> 0 Then

(Site et Date étant des champs de Source_Taux)

La requête fonctionne bien quand le fichier a déjà été importé mais quand le nom n'a jamais été entré il se comporte bizarrement, il me dit "Le champ exemple n'existe pas dans la table destination Source_Taux". Or "exemple" n'est pas un champ mais une valeur (stringNom) !

[titi95]

Et sans la paire de ' ?

titi95

[Plout]

Sans les ', il y a une erreur et il ne comprend pas la requête.

[titi95]

Une autre proposition...

Code :

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

DCount("[Site]", "Source_Taux", "[Date] = #" & stringDate & "# And [Site] = '" & stringNom & " ' ")

titi95

[Plout]

Problème résolu !
Ça n'avait rien à voir avec le DCount, c'était un problème sur la fermeture du fichier Excel, un peu bizarre

Tout marche parfaitement, merci