Discussion :

[CALOU3117]

Bonjour,

Je suis novice en vba et j'ai utilisé la requête ci-dessous que j'ai trouvé sur le forum et que j'ai adapté à mon besoin. Elle permet d'importer des données d'un fichier excel vers une table access mais j'aimerai spécifié un critère de date. En effet, je souhaiterai que les données se trouvant en colonne G du fichier excel (qui correspondent à la date d'embauche) soit importées dans la table access qu'à partir du date donnée soit en l’occurrence le 01/04/2021.

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
Private Sub Commande0_Click()
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("U:\DR076\DRAPS\TRANSVERSE\EMPLOI\CDD\SUIVI CDD\Tableau de bord commun CDD 2021.xlsb", ReadOnly:=True)
Set oWSht = oWkb.Worksheets("Base")
'premier ligne ou tu commence ton import
i = 5
 
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
 
'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
 
 
 
 
 
cSQL = "insert into [cdd]([Direction],[Agence/Service],[Matricule GA],[TH],[Nom Prénom],[coef début contrat],[Date embauche],[Date fin prévue Date sortie],[Date fin période essai],[Renouvellement surcroit],[Motif Sortie CDD],[ETP],[Type de contrat],[Motif Remplacement ou Surcroit],[Enveloppe impactée],[Emploi],[Code emploi],[Matricule Personne Remplacée],[Personne Remplacée]) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 3) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 4) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 5) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 6) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & "  , " & Chr(34) & oWSht.Cells(i, 8) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 9) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 10) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & "," & _
Chr(34) & oWSht.Cells(i, 12) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 13) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 14) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 15) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 16) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 17) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 18) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 19) & Chr(34) & ")"
 
 
 'exécute la requète
 DoCmd.RunSQL cSQL
 
 
  i = i + 1
Wend
 
CurrentDb.QueryDefs("MAJ GESTIONNAIRE").Execute
 
DoCmd.SetWarnings True
 
End Sub

Merci par avance pour votre aide

Bien cordialement

[nico84]

Bonjour,

Il suffit d'ajouter une condition dans la boucle while, en gros :

Code :

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

1
2
3
4
5
6
'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
  if oWSht.Range("G" & i)>cdate("01/04/2021") then
    ... (insert)...
  end if
  i=i+1

[CALOU3117]

Merci nico84 cela fonctionne parfaitement

Bonne journée