Enregistrer le contenu de cellules excel dans une table
1 réponse
Valérie
Bonjour,
J'ai un fichier excel dans lequel je veux recuperer le contenu de plusieurs
cellules pour les enregistrer dans une table access dont j'ai besoin par la
suite pour faire des etats. Les cellules dont je dois recuperer le contenu
sont nommées. Comment faire ? Merci.
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]
Bonsoir.
tu fais comme ceci, par exemple:
Dim XL_App As New Excel.Application Dim XL_Classeur As Object Dim XL_Feuille As Object With XL_App Set XL_Classeur = .Workbooks.Open("Classeur1.XLS") Set XL_Feuille = XL_Classeur.Sheets("feuil1") With XL_Feuille Dim X As String X = .Range("zone1").Value MsgBox X End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
Zone1 étant le nom d'une cellule. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Valérie" a écrit dans le message de news: 423ffb62$0$1225$
Bonjour, J'ai un fichier excel dans lequel je veux recuperer le contenu de plusieurs cellules pour les enregistrer dans une table access dont j'ai besoin par la suite pour faire des etats. Les cellules dont je dois recuperer le contenu sont nommées. Comment faire ? Merci.
Bonsoir.
tu fais comme ceci, par exemple:
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("Classeur1.XLS")
Set XL_Feuille = XL_Classeur.Sheets("feuil1")
With XL_Feuille
Dim X As String
X = .Range("zone1").Value
MsgBox X
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
Zone1 étant le nom d'une cellule.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Valérie" <mabaldenews@wanadoo.fr> a écrit dans le message de news:
423ffb62$0$1225$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai un fichier excel dans lequel je veux recuperer le contenu de
plusieurs cellules pour les enregistrer dans une table access dont j'ai
besoin par la suite pour faire des etats. Les cellules dont je dois
recuperer le contenu sont nommées. Comment faire ? Merci.
Dim XL_App As New Excel.Application Dim XL_Classeur As Object Dim XL_Feuille As Object With XL_App Set XL_Classeur = .Workbooks.Open("Classeur1.XLS") Set XL_Feuille = XL_Classeur.Sheets("feuil1") With XL_Feuille Dim X As String X = .Range("zone1").Value MsgBox X End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
Zone1 étant le nom d'une cellule. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Valérie" a écrit dans le message de news: 423ffb62$0$1225$
Bonjour, J'ai un fichier excel dans lequel je veux recuperer le contenu de plusieurs cellules pour les enregistrer dans une table access dont j'ai besoin par la suite pour faire des etats. Les cellules dont je dois recuperer le contenu sont nommées. Comment faire ? Merci.