Discussion :

[mike2302]

slt Totofe!
j'ai une autre question à te poser concernant l'importation peut etre connais tu la reponse....
ESt ce possible de recupérer le nom du fichier que l'on importe dans une requete SQL?

Explications :

Par exemple dans la requete SQL que tu a donné:

docmd.runsql "CREATE TABLE ici se mettrai automatiquement le nom du fichier que l'on importe(Nom_de_colonne1 Type_de_donnée, Nom....)

cSQL = "insert into [ici se mettrai automatiquement le nom du fichier que l'on importe] ( [ConfID],[HostEmail],[Duration],[Attendees] ) values ("..." )"

Est ce possible?

[totofe]

effectivement tu peut récupérer le nom avec

Code :

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

1
2
 
owkb.name

[mike2302]

ok mais cela ne fonctionne pas j'ai un message d'erreur a ce niveau :

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
DoCmd.RunSQL "CREATE TABLE owkb.name (ConfID String, HostEmail String, Duration Integer, Attendees Integer);"

'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""

If DCount("*", "[owkb.name]", "[HostEmail] LIKE '" & oWSht.Cells(i, 7) & "*'") = 0 Then

cSQL = "insert into owkb.name ( [ConfID],[HostEmail],[Duration],[Attendees] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 7) & 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

End If

i = i + 1
Wend

DoCmd.SetWarnings True


End Sub

Ne faut-il pas renommer quelque chose en "owkb"?

[totofe]

ok mais cela ne fonctionne pas j'ai un message d'erreur a ce niveau :

Code :

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

DoCmd.RunSQL "CREATE TABLE owkb.name (ConfID String, HostEmail String, Duration Integer, Attendees Integer);"

LOL
normal ta syntaxe n'est pas bonne. owkb.name est une méthode de vba il ne faut donc pas la mettre dans les guillemets.

Code :

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

DoCmd.RunSQL "CREATE TABLE " & owkb.name & " (ConfID String, HostEmail String, Duration Integer, Attendees Integer);"

et pareil pour le INSERT INTO

[mike2302]

re totofe,

toujours le meme problème à la même ligne :

Code :

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

DoCmd.RunSQL "CREATE TABLE " & oWkb.Name & " (ConfID String, HostEmail String, Duration Integer, Attendees Integer);"

et pour le insert into j'ai fais de même :

Code :

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

cSQL = "insert into " & oWkb.Name & " ( [ConfID],[HostEmail],[Duration],[Attendees] ) values (" & Chr(34) & oWSht.Cells(i, 1)....

je joint un copier coller de mon ecran si tu veux y jeter un coup d'oeil...

tu peux m'aider s'il te plait?

[totofe]

taleur j'ai même pas vu cette erreur!! les type de donné sous SQL et VBA ne sont pas les même par exemple pour un string en VBA on aura varchar(nb_caractère_maxi). regarde dans la doc SQL si tu veut en savoir plus.
on obtient donc:

Code :

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

1
2
 
DoCmd.RunSQL "CREATE TABLE " & oWkb.Name & " (ConfID varchar(50), HostEmail varchar(50), Duration INTEGER, Attendees INTEGER);"

[mike2302]

ok jessaye merci totofe

[totofe]

oki aprés je sait pas si c'est les types de variables que tu souhaite

[mike2302]

Désolé titofe ça ne fonctionne toujours pas.
C'est toujours dans la même ligne qu'il y a une erreur :

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
DoCmd.RunSQL "CREATE TABLE " & oWkb.Name & " (ConfID varchar(50), HostEmail varchar(50), Duration INTEGER, Attendees INTEGER);"
 

'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
 
If DCount("*", "[oWkb.name]", "[HostEmail] LIKE '" & oWSht.Cells(i, 7) & "*'") = 0 Then
 
cSQL = "insert into statistique ( [ConfID],[HostEmail],[Duration],[Attendees] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 7) & 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
 
End If
 
  i = i + 1
Wend
 
DoCmd.SetWarnings True
 

End Sub

Voici l'erreur qu'Access m'affiche : (cf fichier joint)

[totofe]

étrange tout de même ce message d'erreur qui dit qu'il trouve pas le fichier alor que tu ne fais aucun appel de fichier sur cette ligne.
sinon tu ma dit que le nom de ta feuille avait le même nom que ton fichier mais sans le .xls de fin. je pense que ca serai mieu de nommé tes table en fonction du nom de tes feuilles. petetre ca résoudra le probleme

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
 
DoCmd.RunSQL "CREATE TABLE " & oWsht.Name & " (ConfID varchar(50), HostEmail varchar(50), Duration INTEGER, Attendees INTEGER);"
 
 
'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
 
If DCount("*", oWsht.name, "[HostEmail] LIKE '" & oWSht.Cells(i, 7) & "*'") = 0 Then
 
cSQL = "insert into " & owsht.name & " ( [ConfID],[HostEmail],[Duration],[Attendees] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 7) & 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
 
End If
 
  i = i + 1
Wend
 
DoCmd.SetWarnings True
 
 
End Sub

mais si ca résou pas ton probleme je pense qu'il vient de la ligne ou tu fais appel à ton fichier excel. Regarde si le nom du fichier est correct

[mike2302]

excuse moi entre temps j'ai changé de fichier excel et tout les fichier excel que je traite on certes, une seule feuille de travail mais celle-ci est differente du nom du fichier...(alors que je t'avais dit le contraire)

mais en fait , l'import est correct lorsque je rentre le nom de la table.
Par exemple

Code :

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

DoCmd.RunSQL "CREATE TABLE statistique (ConfID string, HostEmail string, Duration INTEGER, Attendees INTEGER);"

.
Tout marche nikel...
Le "string" est pris en compte j'ai pas besoin de mettre "varchar".


je vais essayé ta formule
DoCmd.RunSQL "CREATE TABLE " & oWsht.Name & " (ConfID.....

et ensuite je te dirai si sa march ou pas...

[totofe]

donc l'erreur provien de owkb.name si c'est le cas je pense que ca doit etre a cause du .xls.

[mike2302]

je pense aussi que tu es raison.
Voila pourquoi j'ai choisi le oWsht.Name , feuille de travail qui (encore une fois tu avais raison) porte bien le nom du fichier sans le .xls.

Et voila ce que sa me donne:
(voir fichier joint)

Ce que je comprend pas, c'est que la table portant le nom du fichier (sans le .xls) s'affiche mais l'import n'a pas lieu...la table est vide.Mais elle est crée...T'y comprend quelque chose?

[totofe]

de la même maniere que lorsque tu créé une table ton owsht.name doit être en dehor des guillemet

Code :

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

1
2
 
cSQL = "insert into " & owsht.name & " ( [ConfID],[HostEmail],[Duration],[Attendees] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 7) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 18) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 19) & Chr(34) & " )"

[mike2302]

excuse moi pr le retard totofe merci beaucoup tout marche nikel

merci pour ta patience et tes explications claires et precises cela m'a permis de mener à terme mon projet.

[mike2302]

re bonjour,

Si on veut importer 2fois le même fichier il se produit une erreur.

Il est possible de mettre un message d'erreur en msgbox, si le fichier est déjà importer dans une table, de ne pas l'importer une 2ème fois.

Il faut mettre un if avant le DoCmd.RunSQL "CREATE TABLE "?

Pouvez-vous m'aider svp?

[totofe]

dsl pour le retar. donc pour tester si une table éxiste tu peut utilisé cette fonction tu la créé dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function fExistTable(strTableName As String) As Boolean 
  Dim i As Integer 
  fExistTable = False  
  CurrentDb.TableDefs.Refresh 
  For i = 0 To CurrentDb.TableDefs.Count - 1
    If strTableName = CurrentDb.TableDefs(i).Name Then       
      'Table Exists         
      fExistTable = True           
      Exit For 
    End If  
  Next i
End Function

et tu pourra faire appel dans ton code de cette manière

Code :

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

1
2
 
if fExistTable("ta_table" )

[mike2302]

bonjour totofe
désolé aussi pour mon retard...merci pour ton code tout marche parfaitement...
Afin d'optimiser mon code j'aimerai creer des nouvelles colonnes dans ma table qui serai les colonnes mois (n°du mois ex: 04,05,06) et année (2005,2006...)

En fait le mois et l'année j'aimerai les recuperé à partir du titre du fichier qui se nomme ainsi : "2006_statistique_04"

J'aimerai savoir si c'est possible car cela m'a l'air assez compliqué à faire...

[totofe]

pour récupéré le numéro du mois et l'anné utilise les fonctions "left" et "right" mais j'ai pas tro saisi ce que tu voudré fair!!? tu voudré créé 2 champs dans ta table. Dans une nouvelle table ou ds la table ou t'importe tes donné?

[mike2302]

Merci totofe de me repondre aussi rapidement!!!

En fait cela se passe dans la table où j'importe mes données...
J'ai la colonne hostemail, duration....
et je voudrai creer 2 nouvelles colonnes dans lesquelles il y aurai le mois dans l'une et l'année dans l'autre.

Exemple : fichier excel : 2006_statistique_04

Une colonne Mois où il y aurai "04" à chaque ligne...
Une colonne Anné où il y aurai "2006" à chaque ligne...

T'aurai une idée? car moi je sèche completement ...
Merci d'avance totofe