Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Bonjour/soir,
tu peux essayer via automation: 'Soit: ' Dim xlApp As Object ' Set xlApp = CreateObject("Excel.Applcation") 'Soit: ' Cocher dans les références Microsoft Excel x.y Object Library ' Et ensuite, ajouter les deux lignes suivantes: Dim xlApp As Excel.Application, xlWkSt As Excel.WorkSheet Set xlApp = New Excel.Application
'xlApp.Visible = True pour afficher excel durant le traitement
'Il faut s'assurer qu'il y ait un workbook d'ouvert et d'active Set xlWkSt = xlApp.Workbooks.Open("C:toto.xls").WorkSheets(1)
MsgBox xlWkSt Range("A1").FormulaR1C1
Dim LastCell As Excel.Range Set LastCell = xlWkSt.Cells.SpecialCells(xlCellTypeLastCell)
Dim i As Long Dim j As Long
For i = 1 To LastCell.Row For j = 1 To LastCell.Column Debug.Print "x : " & i, "y : " & j, xlWkSt.Cells(i, j).Text, xlWkSt.Cells(i, j).FormulaR1C1 Next j Next i
Je dois charger le contenu d'un fichier Excel dans une base Access.
Je cherche à savoir comment recuperer le contenu du fichier Excel pour le chargement ça devrait aller.
Merci pour toutes les solutions proposées.
Dams
Bonjour/soir,
tu peux essayer via automation:
'Soit:
' Dim xlApp As Object
' Set xlApp = CreateObject("Excel.Applcation")
'Soit:
' Cocher dans les références Microsoft Excel x.y Object Library
' Et ensuite, ajouter les deux lignes suivantes:
Dim xlApp As Excel.Application, xlWkSt As Excel.WorkSheet
Set xlApp = New Excel.Application
'xlApp.Visible = True pour afficher excel durant le traitement
'Il faut s'assurer qu'il y ait un workbook d'ouvert et d'active
Set xlWkSt = xlApp.Workbooks.Open("C:toto.xls").WorkSheets(1)
MsgBox xlWkSt Range("A1").FormulaR1C1
Dim LastCell As Excel.Range
Set LastCell = xlWkSt.Cells.SpecialCells(xlCellTypeLastCell)
Dim i As Long
Dim j As Long
For i = 1 To LastCell.Row
For j = 1 To LastCell.Column
Debug.Print "x : " & i, "y : " & j, xlWkSt.Cells(i, j).Text,
xlWkSt.Cells(i, j).FormulaR1C1
Next j
Next i
tu peux essayer via automation: 'Soit: ' Dim xlApp As Object ' Set xlApp = CreateObject("Excel.Applcation") 'Soit: ' Cocher dans les références Microsoft Excel x.y Object Library ' Et ensuite, ajouter les deux lignes suivantes: Dim xlApp As Excel.Application, xlWkSt As Excel.WorkSheet Set xlApp = New Excel.Application
'xlApp.Visible = True pour afficher excel durant le traitement
'Il faut s'assurer qu'il y ait un workbook d'ouvert et d'active Set xlWkSt = xlApp.Workbooks.Open("C:toto.xls").WorkSheets(1)
MsgBox xlWkSt Range("A1").FormulaR1C1
Dim LastCell As Excel.Range Set LastCell = xlWkSt.Cells.SpecialCells(xlCellTypeLastCell)
Dim i As Long Dim j As Long
For i = 1 To LastCell.Row For j = 1 To LastCell.Column Debug.Print "x : " & i, "y : " & j, xlWkSt.Cells(i, j).Text, xlWkSt.Cells(i, j).FormulaR1C1 Next j Next i
Je dois charger le contenu d'un fichier Excel dans une base Access.
Je cherche à savoir comment recuperer le contenu du fichier Excel pour le chargement ça devrait aller.
Merci pour toutes les solutions proposées.
Dams
Merci
"François Picalausa" a écrit dans le message news:
Bonjour/soir,
tu peux essayer via automation: 'Soit: ' Dim xlApp As Object ' Set xlApp = CreateObject("Excel.Applcation") 'Soit: ' Cocher dans les références Microsoft Excel x.y Object Library ' Et ensuite, ajouter les deux lignes suivantes: Dim xlApp As Excel.Application, xlWkSt As Excel.WorkSheet Set xlApp = New Excel.Application
'xlApp.Visible = True pour afficher excel durant le traitement
'Il faut s'assurer qu'il y ait un workbook d'ouvert et d'active Set xlWkSt = xlApp.Workbooks.Open("C:toto.xls").WorkSheets(1)
MsgBox xlWkSt Range("A1").FormulaR1C1
Dim LastCell As Excel.Range Set LastCell = xlWkSt.Cells.SpecialCells(xlCellTypeLastCell)
Dim i As Long Dim j As Long
For i = 1 To LastCell.Row For j = 1 To LastCell.Column Debug.Print "x : " & i, "y : " & j, xlWkSt.Cells(i, j).Text, xlWkSt.Cells(i, j).FormulaR1C1 Next j Next i
<s> a écrit dans le message de news: > Bonjour, > > Je dois charger le contenu d'un fichier Excel dans une base Access. > > Je cherche à savoir comment recuperer le contenu du fichier Excel > pour le chargement ça devrait aller. > > Merci pour toutes les solutions proposées. > > Dams
Merci
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message news:
ehQb1puaDHA.1580@tk2msftngp13.phx.gbl...
Bonjour/soir,
tu peux essayer via automation:
'Soit:
' Dim xlApp As Object
' Set xlApp = CreateObject("Excel.Applcation")
'Soit:
' Cocher dans les références Microsoft Excel x.y Object Library
' Et ensuite, ajouter les deux lignes suivantes:
Dim xlApp As Excel.Application, xlWkSt As Excel.WorkSheet
Set xlApp = New Excel.Application
'xlApp.Visible = True pour afficher excel durant le traitement
'Il faut s'assurer qu'il y ait un workbook d'ouvert et d'active
Set xlWkSt = xlApp.Workbooks.Open("C:toto.xls").WorkSheets(1)
MsgBox xlWkSt Range("A1").FormulaR1C1
Dim LastCell As Excel.Range
Set LastCell = xlWkSt.Cells.SpecialCells(xlCellTypeLastCell)
Dim i As Long
Dim j As Long
For i = 1 To LastCell.Row
For j = 1 To LastCell.Column
Debug.Print "x : " & i, "y : " & j, xlWkSt.Cells(i, j).Text,
xlWkSt.Cells(i, j).FormulaR1C1
Next j
Next i
<s> a écrit dans le message de
news:uZHJrduaDHA.2580@TK2MSFTNGP12.phx.gbl
> Bonjour,
>
> Je dois charger le contenu d'un fichier Excel dans une base Access.
>
> Je cherche à savoir comment recuperer le contenu du fichier Excel
> pour le chargement ça devrait aller.
>
> Merci pour toutes les solutions proposées.
>
> Dams
"François Picalausa" a écrit dans le message news:
Bonjour/soir,
tu peux essayer via automation: 'Soit: ' Dim xlApp As Object ' Set xlApp = CreateObject("Excel.Applcation") 'Soit: ' Cocher dans les références Microsoft Excel x.y Object Library ' Et ensuite, ajouter les deux lignes suivantes: Dim xlApp As Excel.Application, xlWkSt As Excel.WorkSheet Set xlApp = New Excel.Application
'xlApp.Visible = True pour afficher excel durant le traitement
'Il faut s'assurer qu'il y ait un workbook d'ouvert et d'active Set xlWkSt = xlApp.Workbooks.Open("C:toto.xls").WorkSheets(1)
MsgBox xlWkSt Range("A1").FormulaR1C1
Dim LastCell As Excel.Range Set LastCell = xlWkSt.Cells.SpecialCells(xlCellTypeLastCell)
Dim i As Long Dim j As Long
For i = 1 To LastCell.Row For j = 1 To LastCell.Column Debug.Print "x : " & i, "y : " & j, xlWkSt.Cells(i, j).Text, xlWkSt.Cells(i, j).FormulaR1C1 Next j Next i
<s> a écrit dans le message de news: > Bonjour, > > Je dois charger le contenu d'un fichier Excel dans une base Access. > > Je cherche à savoir comment recuperer le contenu du fichier Excel > pour le chargement ça devrait aller. > > Merci pour toutes les solutions proposées. > > Dams
