importer un nombre n de fichiers excel vers Une table access

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,
j'ai essayé ce code mais il ne fonctionne pas
je ne pense pas être très loin

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub rojh()
 
 
'Declaration de la valeur répertoire
Dim répertoire As String
'Recuperation de la liste des fichiers
répertoire = Dir("C:\Users\9305743N\Desktop\programme\dataessai\*.xls", vbDirectory)
'On passe d'un fichier excel a l'autre
Do While répertoire <> ""
'import des donnees du fichier excel dans Access
 
 DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel12, "Ma_Table", répertoire, True
 
      répertoire = Dir
Loop
End Sub

il me dit qu'il n'a pas trouvé mon fichier, que le chemin est inexistant
merci d'avance

20/05/2015, 09h39
loufab

Bonjour,

Un par un les fichiers !

le *.xls ne fonctionne donc pas avec docmd.transfer

Cordialement,
20/05/2015, 09h45
mimieloic

merci pour la reponse,
mais j'ai 1500 fichiers, je ne peux pas les faire un par un
il y a t-il une fonctionnalité pour le réaliser?
20/05/2015, 11h47
loufab

Il faut faire une boucle avec Dir() pour les traiter 1 par 1.

Le premier dir avec le chemin et *.xls
Le Deuxième dir sans paramètre pour qu'il prenne la suite. cf le F1 pour connaitre le fonctionnement du Dir()
et la faq
http://access.developpez.com/faq/?pa...mpteFichierRep

Pour un exemple proche de ce que tu souhaites faire.

Pour chaque fichier, dans la boucle, tu lances la commande transfert.

Cordialement,

j'ai deja une boucle pour les dir non?
Do While répertoire <> "" ??
Si j'enlève DoCmd.TranferSpreadsheet je peux le remplacer par quoi?
J'ai modifié ma macro en:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub rojh() 'Declaration de la valeur répertoire Dim répertoire As String Dim compteur As Long 'Recuperation de la liste des fichiers répertoire = Dir("C:\Users\9305743N\Desktop\programme\dataessai\*.xls", vbDirectory) 'On passe d'un fichier excel a l'autre Do While répertoire <> "" compteur = compteur + 1 'import des donnees du fichier excel dans Access DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel12, "Ma_Table", répertoire, True répertoire = Dir Loop End Sub
mais je ne sais pas quoi faire du DoCmd , ni si ma boucle est celle dont vous parliez? car j'ai fait la meme boucle que la FAQ

20/05/2015, 13h39
loufab

oups ! effectivement.

Le dir() ne donne que le nom de fichier pas le répertoire.

Il faut donc stocker le répertoire dans une variable et la concaténer au résultat du dir() dans la commande.

Il faut donc stocker le répertoire dans une variable et la concaténer au résultat du dir() dans la commande. .

alors j'ai stocké le répertoire dans une variable
mais pour le contaténer au résultat on fait comment
est ce que ca au moins c'est correct?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 * Sub rojh() 'Declaration de la valeur répertoire Dim répertoire As String Dim compteur As Long Dim NomFichier As String 'Recuperation de la liste des fichiers répertoire = Dir("C:\Users\9305743N\Desktop\programme\dataessai\*.xls", vbDirectory) 'On passe d'un fichier excel a l'autre Do While répertoire <> "" compteur = compteur + 1 'import des donnees du fichier excel dans Access NomFichier = Dir(répertoire) Loop End Sub

20/05/2015, 14h47
loufab

absolument pas !
D'abord un dir("c:\...\*.dfd") pour récupérer le premier nom de fichier puis un Dir() pour récupérer les noms de fichiers suivant.

Fait F1 sur le Dir() pour voir comment on l'utilise.
20/05/2015, 14h49
mimieloic

F1 ne marche pas chez moi, il me dit qu'il n'a rien trouvé
20/05/2015, 15h02
mimieloic

Je m'excuse je n'ai jamais codé avec Access

j'ai seulement codé en VBA pour excel (un peu) et les fonctions ne sont pas exactement les memes
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub rojh() 'Declaration de la valeur répertoire Dim répertoire As String Dim compteur As Long Dim NomFichier As String 'Recuperation de la liste des fichiers répertoire = Dir("C:\Users\9305743N\Desktop\programme\dataessai\*.dfd") 'On passe d'un fichier excel a l'autre Do While répertoire <> "" compteur = compteur + 1 'import des donnees du fichier excel dans Access NomFichier = Dir() Loop End Sub
ceci n'est toujours pas correct, mais je vois pas comment écrire le deuxieme dir , j'ai cherché sur internet aussi mais aucune information m'a aidé

Voici comment ça fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
 
dim fichierCourant as string
dim repertoire as string
repertoire = "c:\....\"
fichierCourant = dir(repertoire & "*.xls")  '1er fichier de la liste
 
while fichierCourant<>""
    docmd.transfer... ,,, repertoire & fichierCourant
    fichierCourant = dir()  'fichier suivant
wend

c'est tout.

20/05/2015, 17h00
loufab

La fonction Dir() est une fonction VBA. Elle est identique sous ACCESS, EXCEL, WORD ou n'importe quel produit qui accepte VBA.

Si tu n'as pas accès au F1, complète ton installation. Tu vas en avoir besoin.

Merci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub charles() Dim fichierCourant As String Dim repertoire As String Dim tablatabla As String Dim sFichier As Scripting.File repertoire = "C:\Users\9305743N\Desktop\programme\dataessai" fichierCourant = Dir(repertoire & "*.xls") '1er fichier de la liste While fichierCourant <> "" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12,tablatabla, repertoire & fichierCourant, True 'DoCmd.TransferSpreadsheet acImport, , Left(sFichier.Name, Len(sFichier.Name) - 4), sFichier.Path, True fichierCourant = Dir() 'fichier suivant Wend End Sub
j'ai mis ca comme ca mais ca ne donne rien. Manque-til encore quelquechose?, j'ai essaye d'adapter le DoCmd , ma table access je l'ai nommé tablatabla, mais le deuxieme terme je savais pas trop quoi mettre pour : acSpreadsheetTypeExcel12
le programme ne me dit rien, pas de message d'erreur, mais rien n'est écrit non plus
j'ai mis des points d'arret pour voir où ca peche, et il passe de while à end sub

21/05/2015, 09h36
loufab

Ok !

Donc s'il passe de While à End Sub cela indique que la condition (fichierCourant <> "") est fausse.

Reste à analyser pourquoi elle est fausse !
Pourquoi fichierCourant est vide !
21/05/2015, 09h48
mimieloic

J'ai reussi à rentrer dans la boucle , il manquait un "\" dans "\.xls

mais ensuite il me met " fin ou débogage " la fenetre " "l'action ou la méthode requiet un argument Nom table"
j'ai pourtant mis tablatabla comme nom de table ?
"
21/05/2015, 09h54
loufab

Et tu as ajouté l'anti-slash où ? C'est peut-être de la que vient le problème.
21/05/2015, 09h57
mimieloic

fichierCourant = Dir(repertoire & "\*.xls") '1er fichier de la liste
21/05/2015, 10h27
loufab

Et quand tu exécutes l'instruction docmd tu ne l'as plus... ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub charles()
Dim fichierCourant As String
Dim repertoire As String
Dim tablatabla As String
Dim sFichier As Scripting.File
repertoire = "C:\Users\9305743N\Desktop\programme\dataessai\"
fichierCourant = Dir(repertoire & "*.xls")  '1er fichier de la liste
 
While fichierCourant <> ""
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, tablatabla, repertoire & fichierCourant, True
     'DoCmd.TransferSpreadsheet acImport, , Left(sFichier.Name, Len(sFichier.Name) - 4), sFichier.Path, True
 
    fichierCourant = Dir()  'fichier suivant
Wend
 
End Sub

ca fonctionne pas comme ca non plus :(

Voir 40 message(s) de cette discussion en une page