R
Roland
Guest
Bonjour à tous,
Je voudrai effectuer un import de plusieurs fichiers excel dans une base access.
Ces fichiers excel se situent dans un répertoire spécifique.
Je n'arrive pas à spécifier se répertoire dans mon code. J'ai essayer plusieurs syntaxes...
Je me résigne donc à exposer mon pb du fait que je cherche depuis pas mal de temps
voici mon code que j'ai placé dans un module access:
Sub ImportAllFiles()
Dim strPathToFiles As String
Dim xlAppl As New Excel.Application
Dim onglet As String
Dim ws As Excel.Worksheet
Dim listeOnglet As String
'mon pb se situe ici ?
strPathToFiles = '...\\...\\...\\...\\'
'Supprimer enreg table T_Import_Brut
DoCmd.RunSQL 'DELETE FROM TImport'
DoCmd.RunSQL 'DELETE FROM TImport2'
'mon pb se situe ici ?
xlAppl.Workbooks.Open FileName:=strPathToFiles, ReadOnly:=True
rootxl = xlAppl.Workbooks.Application.ActiveWorkBook.Path
For Each ws In xlAppl.Worksheets
If ws.Visible = True Then
onglet = ws.Name
Debug.Print onglet
If onglet = 'TestIndicateurs' Then
' transfert vers table T_Import_Brut
DoCmd.TransferSpreadsheet acImport, 8, 'TImport', strPathToFiles, False, onglet & '!H2:L201'
ElseIf onglet = 'Transpose' Then
' transfert vers table T_Import_IG
DoCmd.TransferSpreadsheet acImport, 8, 'TImport2', FileName, False, onglet & '!A1:F'
End If
End If
Next ws
xlAppl.Application.DisplayAlerts = False
xlAppl.Application.Quit
Set xlAppl = Nothing
End Sub
Merci à tous pour votre aide
Je voudrai effectuer un import de plusieurs fichiers excel dans une base access.
Ces fichiers excel se situent dans un répertoire spécifique.
Je n'arrive pas à spécifier se répertoire dans mon code. J'ai essayer plusieurs syntaxes...
Je me résigne donc à exposer mon pb du fait que je cherche depuis pas mal de temps
voici mon code que j'ai placé dans un module access:
Sub ImportAllFiles()
Dim strPathToFiles As String
Dim xlAppl As New Excel.Application
Dim onglet As String
Dim ws As Excel.Worksheet
Dim listeOnglet As String
'mon pb se situe ici ?
strPathToFiles = '...\\...\\...\\...\\'
'Supprimer enreg table T_Import_Brut
DoCmd.RunSQL 'DELETE FROM TImport'
DoCmd.RunSQL 'DELETE FROM TImport2'
'mon pb se situe ici ?
xlAppl.Workbooks.Open FileName:=strPathToFiles, ReadOnly:=True
rootxl = xlAppl.Workbooks.Application.ActiveWorkBook.Path
For Each ws In xlAppl.Worksheets
If ws.Visible = True Then
onglet = ws.Name
Debug.Print onglet
If onglet = 'TestIndicateurs' Then
' transfert vers table T_Import_Brut
DoCmd.TransferSpreadsheet acImport, 8, 'TImport', strPathToFiles, False, onglet & '!H2:L201'
ElseIf onglet = 'Transpose' Then
' transfert vers table T_Import_IG
DoCmd.TransferSpreadsheet acImport, 8, 'TImport2', FileName, False, onglet & '!A1:F'
End If
End If
Next ws
xlAppl.Application.DisplayAlerts = False
xlAppl.Application.Quit
Set xlAppl = Nothing
End Sub
Merci à tous pour votre aide