Discussion :

[JL M]

Bonjour le forum,

Est il possible d'importer plusieurs fichiers (exel ou autres) à la fois. Si oui, comment pratiquer
Sinon existe'il une possibilité en VBA et qu'elle serait'elle ?

Par avance merci

JLM

[Moha25fr]

bonjour

voilà une partie d'un code c'est à toi de l'adapter à ton besoin

Function Importer(Répertoire)
''*******************************************
On Error GoTo suite_err
'------------------------------------------------------
Dim Nomrép(300) ' nombre max de tes fichiers
Dim i As Integer
Dim cdir As String
Dim st1 As String, st2 As String, st3 As String, source As String

ChDrive Répertoire 'Définir le répertoire
ChDir Répertoire 'se placer sur le répertoire
cdir = CurDir("") + "\" 'sélection du répertoire
ChDrive Répertoire
ChDir Répertoire
cdir = CurDir("") + "\" & "*.txt" 'Remplace txt par un autre format exemple xls pour EXCEL
ChDir Répertoire
st1 = Dir(cdir, vbDirectory)
While st1 <> ""
st2 = Répertoire + "\" + st1
If (st1 <> ".") And (st1 <> "..") Then
Nomrép(i) = st1
i = i + 1
End If
st1 = Dir()
Wend
Max = i - 1
If i = 0 Then
'$$-->
MsgBox "Pas de Fichier dans ce répertoire", vbExclamation, "Fin de traitement..."

Else

For i = 0 To Max
ChDir Répertoire
cdir = CurDir("") + "\"
st3 = Dir(cdir + Nomrép(i))
While st3 <> ""
source = cdir + Nomrép(i)

' Tu fais ton traitement avec ton fichier
'********Exemple
' DoCmd.TransferText , "?????? Spécification d'importation", "ta table", source
'*******************************************************************
st3 = Dir()
Wend
Next i

MsgBox " " & i & " Fichier(s) importé(s)."
End If
suite_exit:
Exit Function
suite_err:
MsgBox Err.Description
Resume suite_exit
End Function

Bonne réception