Discussion :

[freeman3869]

Bonjour,

Je suis en face d'un problème délicat.
Au faite, j'importe un fichier Excel dans une table Access. Il n'y a que deux champs : un champ qui contient des données numériques et un autre avec des données en format Date.
Juste après l'importation, si dans le champ Date il y a des cellules vides (dans la table Access), j'aimerai les compléter toutes d'un coup avec une boite de dialogue. Donc, ouvrir une boite de dialogue qui demande de compléter tous les vides du champ Date. Voici le code que j'ai essayé mais il marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "import", "C:\.....xlsx", False, "Liste$A1:B50000"
 
  'Si des dates sont non servies, ouvrir boîte de dialogue pour demander une date limite qui sera affectée à tous les vides
    Dim valeur_date
    Dim date_limite
 
    valeur_date = CurrentDb.OpenRecordset("select count(F2) FROM import").Fields(0).Value
 
    For i = 1 To valeur_date
        date_limite = CurrentDb.OpenRecordset("select F2 FROM import").Fields(0).Value
        If IsNull (date_limite) Then MsgBox ....  Else MsgBox ...... 
    Next

C'est dans les Msgbox que je bloque.


Merci d'avance de votre aide.

[madefemere]

Bonjour,

Plutôt un code du genre :

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 nbrenr As Integer
Dim strsql As String
Dim datemaj As Date
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "import", "C:\.....xlsx", False, "Liste$A1:B50000"
 
'vérifier s'il y a des dates vides ou null ?
Debug.Print DCount("*", "[import]", "IsNull([valeur_date]) or IsEmpty([valeur_date])")
nbrenr = DCount("*", "[import]", "IsNull([valeur_date]) or IsEmpty([valeur_date])")
 
'Récupérer la date de mise à jour
datemaj = InputBox("donner la date pour la mise à jour !")
 
If IsDate(datemaj) And Not IsNull(datemaj) Then
    'Mette à jour les dates
    If nbrenr > 0 Then
        strsql = " UPDATE [import] SET [import].[valeur_date] = #" & Format(datemaj, "yyyy/mm/dd") & "#" _
                & " WHERE  IsNull([valeur_date]) OR IsEmpty([valeur_date])"
    Debug.Print strsql
        CurrentDb.Execute strsql, dbFailOnError
    End If
Else
    MsgBox "la valeur saisie n'est pas conforme !"
End If

Au fait, mets ton code entre BALISES pour que ça soit lisible dans le forum : Tu sélectionnes ton code et tu appuies sur la balise code #.

Cordialement,

[freeman3869]

Merci de voter réponse madefemere,
Votre code marche nickel ^^.

Code :

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

Désolé pour le code, je ne savais pas pour les balises.

(un petit test)

[madefemere]

Tu peux encore corriger ton premier message

Cordialement,