Est-il possible en VB d'importer une feuille de calcul d'un classeur Excel
comportant plusieures feuilles dans une table Access en laissant le choix de
la feuille à importer à l'utilisateur ?
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
Raymond [mvp]
Bonjour.
tu peux faire ceci:
Dim Feuille As String Feuille = InputBox("Taper le nom de la feuille", "Import feuille Excel") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "classeur1.xls", True, Feuille & "!"
le inputbox peut être remplacé par un champ texte du formulaire -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" a écrit dans le message de news:c61peh$7td$
Bonjour
Est-il possible en VB d'importer une feuille de calcul d'un classeur Excel comportant plusieures feuilles dans une table Access en laissant le choix de
la feuille à importer à l'utilisateur ?
Merci d'avance
Bonjour.
tu peux faire ceci:
Dim Feuille As String
Feuille = InputBox("Taper le nom de la feuille", "Import feuille Excel")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable",
"classeur1.xls", True, Feuille & "!"
le inputbox peut être remplacé par un champ texte du formulaire
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" <d.bostmambrun@wanadoo.fr> a écrit dans le message de
news:c61peh$7td$1@news-reader1.wanadoo.fr...
Bonjour
Est-il possible en VB d'importer une feuille de calcul d'un classeur Excel
comportant plusieures feuilles dans une table Access en laissant le choix
de
Dim Feuille As String Feuille = InputBox("Taper le nom de la feuille", "Import feuille Excel") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "classeur1.xls", True, Feuille & "!"
le inputbox peut être remplacé par un champ texte du formulaire -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" a écrit dans le message de news:c61peh$7td$
Bonjour
Est-il possible en VB d'importer une feuille de calcul d'un classeur Excel comportant plusieures feuilles dans une table Access en laissant le choix de
la feuille à importer à l'utilisateur ?
Merci d'avance
DB
En fait je voudrais proposer à l'utilisateur la liste des feuilles du classeur pour qu'il puisse choisir. Je pense qu'il faut utiliser Automation, mais je n'arrive pas à récupérer la liste des feuilles.
"Raymond [mvp]" a écrit dans le message de news: uDBa#
Bonjour.
tu peux faire ceci:
Dim Feuille As String Feuille = InputBox("Taper le nom de la feuille", "Import feuille Excel") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "classeur1.xls", True, Feuille & "!"
le inputbox peut être remplacé par un champ texte du formulaire -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" a écrit dans le message de news:c61peh$7td$
Bonjour
Est-il possible en VB d'importer une feuille de calcul d'un classeur Excel
comportant plusieures feuilles dans une table Access en laissant le choix
de
la feuille à importer à l'utilisateur ?
Merci d'avance
En fait je voudrais proposer à l'utilisateur la liste des feuilles du
classeur pour qu'il puisse choisir.
Je pense qu'il faut utiliser Automation, mais je n'arrive pas à récupérer la
liste des feuilles.
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news: uDBa#CrJEHA.1944@TK2MSFTNGP10.phx.gbl...
Bonjour.
tu peux faire ceci:
Dim Feuille As String
Feuille = InputBox("Taper le nom de la feuille", "Import feuille Excel")
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable",
"classeur1.xls", True, Feuille & "!"
le inputbox peut être remplacé par un champ texte du formulaire
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" <d.bostmambrun@wanadoo.fr> a écrit dans le message de
news:c61peh$7td$1@news-reader1.wanadoo.fr...
Bonjour
Est-il possible en VB d'importer une feuille de calcul d'un classeur
Excel
comportant plusieures feuilles dans une table Access en laissant le
choix
En fait je voudrais proposer à l'utilisateur la liste des feuilles du classeur pour qu'il puisse choisir. Je pense qu'il faut utiliser Automation, mais je n'arrive pas à récupérer la liste des feuilles.
"Raymond [mvp]" a écrit dans le message de news: uDBa#
Bonjour.
tu peux faire ceci:
Dim Feuille As String Feuille = InputBox("Taper le nom de la feuille", "Import feuille Excel") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "classeur1.xls", True, Feuille & "!"
le inputbox peut être remplacé par un champ texte du formulaire -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" a écrit dans le message de news:c61peh$7td$
Bonjour
Est-il possible en VB d'importer une feuille de calcul d'un classeur Excel
comportant plusieures feuilles dans une table Access en laissant le choix
de
la feuille à importer à l'utilisateur ?
Merci d'avance
Raymond [mvp]
Dans ce cas il faut passer par une liste modifiable dans un formulaire. pour charger la liste modifiable tu peux faire: Dim XL_App As Excel.Application Dim I As Integer Me.MaListe.RowSource = "" Me.MaListe.RowSourceType = "liste valeurs" Set XL_App = New Excel.Application With XL_App .Workbooks.Open ("classeur1.XLS") For I = 1 To .ActiveWorkbook.Sheets.Count Me.MaListe.RowSource = Me.MaListe.RowSource & .ActiveWorkbook.Sheets(I).Name & ";" Next .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "classeur1.xls", True, Me.MaListe & "!"
Bien penser de référencer la librairie excel.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" a écrit dans le message de news:c62u6k$imo$
En fait je voudrais proposer à l'utilisateur la liste des feuilles du classeur pour qu'il puisse choisir. Je pense qu'il faut utiliser Automation, mais je n'arrive pas à récupérer la
liste des feuilles.
Dans ce cas il faut passer par une liste modifiable dans un formulaire. pour
charger la liste modifiable tu peux faire:
Dim XL_App As Excel.Application
Dim I As Integer
Me.MaListe.RowSource = ""
Me.MaListe.RowSourceType = "liste valeurs"
Set XL_App = New Excel.Application
With XL_App
.Workbooks.Open ("classeur1.XLS")
For I = 1 To .ActiveWorkbook.Sheets.Count
Me.MaListe.RowSource = Me.MaListe.RowSource &
.ActiveWorkbook.Sheets(I).Name & ";"
Next
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable",
"classeur1.xls", True, Me.MaListe & "!"
Bien penser de référencer la librairie excel.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" <d.bostmambrun@wanadoo.fr> a écrit dans le message de
news:c62u6k$imo$1@news-reader4.wanadoo.fr...
En fait je voudrais proposer à l'utilisateur la liste des feuilles du
classeur pour qu'il puisse choisir.
Je pense qu'il faut utiliser Automation, mais je n'arrive pas à récupérer
la
Dans ce cas il faut passer par une liste modifiable dans un formulaire. pour charger la liste modifiable tu peux faire: Dim XL_App As Excel.Application Dim I As Integer Me.MaListe.RowSource = "" Me.MaListe.RowSourceType = "liste valeurs" Set XL_App = New Excel.Application With XL_App .Workbooks.Open ("classeur1.XLS") For I = 1 To .ActiveWorkbook.Sheets.Count Me.MaListe.RowSource = Me.MaListe.RowSource & .ActiveWorkbook.Sheets(I).Name & ";" Next .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "classeur1.xls", True, Me.MaListe & "!"
Bien penser de référencer la librairie excel.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" a écrit dans le message de news:c62u6k$imo$
En fait je voudrais proposer à l'utilisateur la liste des feuilles du classeur pour qu'il puisse choisir. Je pense qu'il faut utiliser Automation, mais je n'arrive pas à récupérer la
liste des feuilles.
DB
OK merci, çà fonctionne ! C'est tout à fait ce que je voulais.
"Raymond [mvp]" a écrit dans le message de news:
Dans ce cas il faut passer par une liste modifiable dans un formulaire. pour
charger la liste modifiable tu peux faire: Dim XL_App As Excel.Application Dim I As Integer Me.MaListe.RowSource = "" Me.MaListe.RowSourceType = "liste valeurs" Set XL_App = New Excel.Application With XL_App .Workbooks.Open ("classeur1.XLS") For I = 1 To .ActiveWorkbook.Sheets.Count Me.MaListe.RowSource = Me.MaListe.RowSource & .ActiveWorkbook.Sheets(I).Name & ";" Next .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "classeur1.xls", True, Me.MaListe & "!"
Bien penser de référencer la librairie excel.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" a écrit dans le message de news:c62u6k$imo$
En fait je voudrais proposer à l'utilisateur la liste des feuilles du classeur pour qu'il puisse choisir. Je pense qu'il faut utiliser Automation, mais je n'arrive pas à récupérer
la
liste des feuilles.
OK merci, çà fonctionne ! C'est tout à fait ce que je voulais.
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news: ejegMEtJEHA.1892@TK2MSFTNGP09.phx.gbl...
Dans ce cas il faut passer par une liste modifiable dans un formulaire.
pour
charger la liste modifiable tu peux faire:
Dim XL_App As Excel.Application
Dim I As Integer
Me.MaListe.RowSource = ""
Me.MaListe.RowSourceType = "liste valeurs"
Set XL_App = New Excel.Application
With XL_App
.Workbooks.Open ("classeur1.XLS")
For I = 1 To .ActiveWorkbook.Sheets.Count
Me.MaListe.RowSource = Me.MaListe.RowSource &
.ActiveWorkbook.Sheets(I).Name & ";"
Next
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable",
"classeur1.xls", True, Me.MaListe & "!"
Bien penser de référencer la librairie excel.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" <d.bostmambrun@wanadoo.fr> a écrit dans le message de
news:c62u6k$imo$1@news-reader4.wanadoo.fr...
En fait je voudrais proposer à l'utilisateur la liste des feuilles du
classeur pour qu'il puisse choisir.
Je pense qu'il faut utiliser Automation, mais je n'arrive pas à
récupérer
OK merci, çà fonctionne ! C'est tout à fait ce que je voulais.
"Raymond [mvp]" a écrit dans le message de news:
Dans ce cas il faut passer par une liste modifiable dans un formulaire. pour
charger la liste modifiable tu peux faire: Dim XL_App As Excel.Application Dim I As Integer Me.MaListe.RowSource = "" Me.MaListe.RowSourceType = "liste valeurs" Set XL_App = New Excel.Application With XL_App .Workbooks.Open ("classeur1.XLS") For I = 1 To .ActiveWorkbook.Sheets.Count Me.MaListe.RowSource = Me.MaListe.RowSource & .ActiveWorkbook.Sheets(I).Name & ";" Next .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "classeur1.xls", True, Me.MaListe & "!"
Bien penser de référencer la librairie excel.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"DB" a écrit dans le message de news:c62u6k$imo$
En fait je voudrais proposer à l'utilisateur la liste des feuilles du classeur pour qu'il puisse choisir. Je pense qu'il faut utiliser Automation, mais je n'arrive pas à récupérer
