Discussion :

[mimieloic]

Bonjour,

J'ai parcouru plusieurs discussions mais rien n'a permis de répondre à ma question

J'ai un certain nombre de fichiers excel( plus de 3000) et je voudrais les mettre en une seule table sous access, seulement je n'arrive pas à le programmer

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
24
25
26
27
28
29
30
31
32
33
' ---
' IMPORTATION DE PLUSIEURS FEUILLES EXCEL
' ---
Sub ImportExcel(ByVal strChemin As String, ByVal varFeuilles As Variant, ByVal blnNoms As Boolean, ByVal strTable As String)
 
  ' Déclaration des variables
  Dim strFeuille As Variant
 
  ' Est-ce que le classeur Excel existe ?
  If Dir(strChemin) = "" Then
    MsgBox "Le classeur ['" & strChemin & "] est introuvable.", vbExclamation
    Exit Sub
  End If
 
  ' Vidage de la table si nécessaire
  On Error GoTo ImportExcelErr
  If MsgBox("Souhaitez-vous vider la table [" & strTable & "] avant l'importation ?", vbQuestion + vbYesNo) = vbYes Then
    CurrentDb.Execute "DELETE * FROM [" & strTable & "];"
  End If
 
  ' Procédure d'importation
  For Each strFeuille In varFeuilles
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, strTable, strChemin, blnNoms, strFeuille & "!"
  Next
 
  ' Un p'tit message pour terminer :-)
  MsgBox "Opération terminée !", vbInformation
  Exit Sub
 
ImportExcelErr:
  MsgBox "Erreur d'importation : " & Err.Description, vbExclamation
  Exit Sub
End Sub

voici un code que j'ai essayé de faire, mais ca ne fonctionne pas, ca me dit qu'aucun enregistrement n'a été trouvé

Merci d'avance pour votre aide

[Malick]

La discussion ci-après traite l'importation de plusieurs fichiers Excel dans une table Access :

http://www.developpez.net/forums/d15...xcel-xls-base/

[mimieloic]

merci j'ai mis

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
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Compare Database
Option Explicit
 
 Sub ImportXLS(Repertoire As String)
 
  On Error GoTo GestionErreurs
    Dim FSO As Scripting.FileSystemObject
    Dim sRep As Scripting.Folder
    Dim sFichier As Scripting.File
    Set FSO = New Scripting.FileSystemObject
    Set sRep = FSO.GetFolder(Repertoire)
    'Boucle sur les fichiers
    For Each sFichier In sRep.Files
      'Importer
      If Right(sFichier, 4) = ".xls" Then
          DoCmd.TransferSpreadsheet acImport, , Left(sFichier.Name, Len(sFichier.Name) - 4), sFichier.Path, True
      End If
    Next sFichier
 
    'Libérer
    Set sRep = Nothing
    Set FSO = Nothing
    Exit Sub
GestionErreurs:
    Select Case Err.Number
      Case 76
         MsgBox "Le répertoire " & Repertoire & " est absent !", vbCritical
      Case Else
        MsgBox "Erreur N° " & Err.Number & " " & Err.Description & vbLf _
                  & "dans ImportCSV().", vbCritical
    End Select
End Sub
 
 
 
End Sub

comme le message mais rien ne se passe
en message d'exécution j'ai mis : Call ImportXLS("C:\Users\9305743N\Desktop\programme\dataessai")
quand je fais exécuter, l'ordinateur ne trouve pas ma macro

[mimieloic]

Je n'ai meme pas de message d'erreur. seulement qu'il trouve pas ma macro

[mimieloic]

Je crois avoir reussi ,mais ceci n'est pas exactement mon envie
je veux un seul et unique fichier qui regroupe tous mes excels, et pas une table par excel