Discussion :

[mimieloic]

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

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
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

[loufab]

Bonjour,

Un par un les fichiers !

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

Cordialement,

[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?

[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,

[mimieloic]

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 :

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
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

[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.

[mimieloic]

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 :

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
*
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

[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.

[mimieloic]

F1 ne marche pas chez moi, il me dit qu'il n'a rien trouvé

[mimieloic]

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

[mimieloic]

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

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
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é

[loufab]

Voici comment ça fonctionne :

Code :

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

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.

[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.

[mimieloic]

Merci

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
 
 
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

[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 !

[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 ?
"

[loufab]

Et tu as ajouté l'anti-slash où ? C'est peut-être de la que vient le problème.

[mimieloic]

fichierCourant = Dir(repertoire & "\*.xls") '1er fichier de la liste

[loufab]

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

[mimieloic]

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
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