A partir du chemin d'acc=E8s d'un fichier Excel j'aimerai=20
pouvoir r=E9cup=E9rer les donn=E9es de certaines cellules sans=20
ouvrir le fichier Excel.
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.
plus fort que fort. hé non ce n'est pas possible, mais on pourrait le croire si on le l'affiche pas. regarde la page : http://access.vba.free.fr/excel.htm tu devrais trouver des idées.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"erwan" a écrit dans le message de news:201d01c49a73$a95c94f0$ Bonjour,
A partir du chemin d'accès d'un fichier Excel j'aimerai pouvoir récupérer les données de certaines cellules sans ouvrir le fichier Excel.
C'est possible???
Merci d'avance. erwan
Bonjour.
plus fort que fort. hé non ce n'est pas possible, mais on pourrait le croire
si on le l'affiche pas.
regarde la page : http://access.vba.free.fr/excel.htm tu devrais trouver des
idées.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"erwan" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:201d01c49a73$a95c94f0$a301280a@phx.gbl...
Bonjour,
A partir du chemin d'accès d'un fichier Excel j'aimerai
pouvoir récupérer les données de certaines cellules sans
ouvrir le fichier Excel.
plus fort que fort. hé non ce n'est pas possible, mais on pourrait le croire si on le l'affiche pas. regarde la page : http://access.vba.free.fr/excel.htm tu devrais trouver des idées.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"erwan" a écrit dans le message de news:201d01c49a73$a95c94f0$ Bonjour,
A partir du chemin d'accès d'un fichier Excel j'aimerai pouvoir récupérer les données de certaines cellules sans ouvrir le fichier Excel.
C'est possible???
Merci d'avance. erwan
Pierre CFI [mvp]
bonjour j'ai pas essayé mais Private Function GetValue(Path, File, Sheet, Ref) Dim Arg As String
'Vérie l'existence du fichier, ajoute les séparateurs manquants If Right(Path, 1) <> "" Then Path = Path & "" If Dir(Path & File) = "" Then GetValue = "File Not Found" Exit Function End If 'Crée l'argument '"D:mesdocumentsloisirs[vacances.xls]Méribel'!R4C3" Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _ .Range("A1").Address(, , xlR1C1) 'Exécute la macro XLM GetValue = ExecuteExcel4Macro(Arg) End Function cette fonction récupére la valeur d'une cellule dans un classeur fermé donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance excel ouverte Source www.excelabo.net --------------------------------------
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Raymond [mvp]" a écrit dans le message de news:%
Bonjour.
plus fort que fort. hé non ce n'est pas possible, mais on pourrait le croire si on le l'affiche pas. regarde la page : http://access.vba.free.fr/excel.htm tu devrais trouver des idées.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"erwan" a écrit dans le message de news:201d01c49a73$a95c94f0$ Bonjour,
A partir du chemin d'accès d'un fichier Excel j'aimerai pouvoir récupérer les données de certaines cellules sans ouvrir le fichier Excel.
C'est possible???
Merci d'avance. erwan
bonjour
j'ai pas essayé mais
Private Function GetValue(Path, File, Sheet, Ref)
Dim Arg As String
'Vérie l'existence du fichier, ajoute les séparateurs manquants
If Right(Path, 1) <> "" Then Path = Path & ""
If Dir(Path & File) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Crée l'argument '"D:mesdocumentsloisirs[vacances.xls]Méribel'!R4C3"
Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _
.Range("A1").Address(, , xlR1C1)
'Exécute la macro XLM
GetValue = ExecuteExcel4Macro(Arg)
End Function
cette fonction récupére la valeur d'une cellule dans un classeur fermé
donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance excel ouverte
Source www.excelabo.net
--------------------------------------
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de news:%236fbBhnmEHA.2140@TK2MSFTNGP11.phx.gbl...
Bonjour.
plus fort que fort. hé non ce n'est pas possible, mais on pourrait le croire
si on le l'affiche pas.
regarde la page : http://access.vba.free.fr/excel.htm tu devrais trouver des
idées.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"erwan" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:201d01c49a73$a95c94f0$a301280a@phx.gbl...
Bonjour,
A partir du chemin d'accès d'un fichier Excel j'aimerai
pouvoir récupérer les données de certaines cellules sans
ouvrir le fichier Excel.
bonjour j'ai pas essayé mais Private Function GetValue(Path, File, Sheet, Ref) Dim Arg As String
'Vérie l'existence du fichier, ajoute les séparateurs manquants If Right(Path, 1) <> "" Then Path = Path & "" If Dir(Path & File) = "" Then GetValue = "File Not Found" Exit Function End If 'Crée l'argument '"D:mesdocumentsloisirs[vacances.xls]Méribel'!R4C3" Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _ .Range("A1").Address(, , xlR1C1) 'Exécute la macro XLM GetValue = ExecuteExcel4Macro(Arg) End Function cette fonction récupére la valeur d'une cellule dans un classeur fermé donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance excel ouverte Source www.excelabo.net --------------------------------------
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Raymond [mvp]" a écrit dans le message de news:%
Bonjour.
plus fort que fort. hé non ce n'est pas possible, mais on pourrait le croire si on le l'affiche pas. regarde la page : http://access.vba.free.fr/excel.htm tu devrais trouver des idées.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"erwan" a écrit dans le message de news:201d01c49a73$a95c94f0$ Bonjour,
A partir du chemin d'accès d'un fichier Excel j'aimerai pouvoir récupérer les données de certaines cellules sans ouvrir le fichier Excel.
C'est possible???
Merci d'avance. erwan
Raymond [mvp]
donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance excel ouverte
C'est pas pour ça que le classeur est fermé. ça n'apparait pas, mais il est surement ouvert logiquement s'il ne l'est pas visuellement. un petit coup d'automation c'est plus simple:
Dim X As String Dim Y As String Dim XL_App As Object Set XL_App = CreateObject("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("feuil2") With XL_Feuille X = .Range("A1").Value Y = .Range("A2").Value End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
ça te va comme ça ? et sans excel dans la barre des tâches, on jurerait qu'il n'est pas ouvert. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre CFI [mvp]" a écrit dans le message de news:%
bonjour j'ai pas essayé mais Private Function GetValue(Path, File, Sheet, Ref) Dim Arg As String
'Vérie l'existence du fichier, ajoute les séparateurs manquants If Right(Path, 1) <> "" Then Path = Path & "" If Dir(Path & File) = "" Then GetValue = "File Not Found" Exit Function End If 'Crée l'argument '"D:mesdocumentsloisirs[vacances.xls]Méribel'!R4C3" Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _ .Range("A1").Address(, , xlR1C1) 'Exécute la macro XLM GetValue = ExecuteExcel4Macro(Arg) End Function cette fonction récupére la valeur d'une cellule dans un classeur fermé donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance excel ouverte
donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance
excel ouverte
C'est pas pour ça que le classeur est fermé. ça n'apparait pas, mais il est
surement ouvert logiquement s'il ne l'est pas visuellement.
un petit coup d'automation c'est plus simple:
Dim X As String
Dim Y As String
Dim XL_App As Object
Set XL_App = CreateObject("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("feuil2")
With XL_Feuille
X = .Range("A1").Value
Y = .Range("A2").Value
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
ça te va comme ça ? et sans excel dans la barre des tâches, on jurerait
qu'il n'est pas ouvert.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:%23IkfJqnmEHA.1800@TK2MSFTNGP15.phx.gbl...
bonjour
j'ai pas essayé mais
Private Function GetValue(Path, File, Sheet, Ref)
Dim Arg As String
'Vérie l'existence du fichier, ajoute les séparateurs manquants
If Right(Path, 1) <> "" Then Path = Path & ""
If Dir(Path & File) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Crée l'argument '"D:mesdocumentsloisirs[vacances.xls]Méribel'!R4C3"
Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _
.Range("A1").Address(, , xlR1C1)
'Exécute la macro XLM
GetValue = ExecuteExcel4Macro(Arg)
End Function
cette fonction récupére la valeur d'une cellule dans un classeur fermé
donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance
excel ouverte
donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance excel ouverte
C'est pas pour ça que le classeur est fermé. ça n'apparait pas, mais il est surement ouvert logiquement s'il ne l'est pas visuellement. un petit coup d'automation c'est plus simple:
Dim X As String Dim Y As String Dim XL_App As Object Set XL_App = CreateObject("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("feuil2") With XL_Feuille X = .Range("A1").Value Y = .Range("A2").Value End With .ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
ça te va comme ça ? et sans excel dans la barre des tâches, on jurerait qu'il n'est pas ouvert. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Pierre CFI [mvp]" a écrit dans le message de news:%
bonjour j'ai pas essayé mais Private Function GetValue(Path, File, Sheet, Ref) Dim Arg As String
'Vérie l'existence du fichier, ajoute les séparateurs manquants If Right(Path, 1) <> "" Then Path = Path & "" If Dir(Path & File) = "" Then GetValue = "File Not Found" Exit Function End If 'Crée l'argument '"D:mesdocumentsloisirs[vacances.xls]Méribel'!R4C3" Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _ .Range("A1").Address(, , xlR1C1) 'Exécute la macro XLM GetValue = ExecuteExcel4Macro(Arg) End Function cette fonction récupére la valeur d'une cellule dans un classeur fermé donc, mon petit raymond tu doit pouvoir faire qq chose avec une instance excel ouverte
