Discussion :

[toto92]

Bonjour !

Enfin du soleil !


Apres import d'une feuille EXCEL 2013 dans ma DB ACCESS 2013 , j'obtiens une table T1 avec 3 champs : Porte + Nom + Type de Badge avec des lignes vides
je cree une requete R1 à partir de cette table T1 qui se presente sous forme ci-dessous :

Porte Name (Last, First, Middle) Badge Type
PORTE 244

DURAND Jean Contractor ProxCard
DUPONT Pierre Contractor ProxCard
ETC...

PORTE 245

DURAND Jean Contractor ProxCard
DUPONT Pierre Contractor ProxCard
ETC...

ETC....

et je voudrais obtenir par requete ou par VBA ( mais je n'arrive pas à remplir le champ PORTE )

Porte Name (Last, First, Middle) Badge Type
PORTE 244 DURAND Jean Contractor ProxCard
PORTE 244 DUPONT Pierre Contractor ProxCard
PORTE 244 ETC...
PORTE 245 DURAND Jean Contractor ProxCard
PORTE 245 DUPONT Pierre Contractor ProxCard
PORTE 245 ETC...
ETC....

voir mon fichier joint XLSX ( issu d'un export depuis ACCESS 2013

Merci et bonne journée !

[mc.schmer]

Bonjour toto92,

Pour moi, la solution la plus rapide et de répéter (Dans Excel) tes cellules "Porte" sur toutes les lignes concernées (Maintiens le clique gauche sur le coin inférieur droit de la cellule et fais glisser jusque à la dernière ligne concernée).
Ensuite tu importes dans Access, puis un petite requête avec un GROUP BY "Porte" et c'est dans la poche.

Maintenant, si il s'agit d'une opération récurrente, une petite routine VBA pour extraire tes données vers une table me semble plus appropriée.

[toto92]

Toujours dans DB Access : et avec requite SQL ?

[mc.schmer]

Bonjour,

Peux-tu joindre ta DB Access afin de voir la structure de ta table après import? Je pourrais ensuite te proposer une requête SQL...

[Invité]

Bonjour,

Access VBA ou Requete ?

les deux mon général!

Code dans Access :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Porte As String
cSQL = "Select * from  [Feuil1$] in 'C:\Users\rdurupt\Desktop\2016 07 Pour Developpez.xlsx' 'excel 8.0;HDR=Yes;IMEX=1;' "
Set rs = CurrentDb.OpenRecordset(cSQL)
While rs.EOF = False
   If "" & rs("Porte") <> "" Then Porte = "" & rs("Porte") else Debug.Print Porte & ";" & rs("Name (Last, First, Middle)") & ";" & rs("Badge Type")
    rs.MoveNext
Wend
rs.Close: Set rs = Nothing
End Sub

[mc.schmer]

Bonjour rdurupt,

Attention manque la déclaration de la variable cSQL :

Code VBA :

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

Dim cSQL As String

[Invité]

bonjour mc.schmer,
oui tu as raison mais je donne le principe pas les subtilités!

[mc.schmer]

Désolé, un peu trop pointilleux sur le coup là
Sinon, +1 pour ta solution d'import du fichier excel