Salut
J'aimerais a l'aide de code dans access, ouvrir un document excel,
actualiser les données (requete de données acccess dans excel) et ensuite
soit l'imprimer ou faire l'apercu
Avec ce code, je peux l'ouvrir et imprimer mais le document imprime jamais
les données a jour car l'actualisation n'a pas le temps de se faire avant
l'impression.
Les données(requetes) à actualiser sont dans la colone A et B
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("\\hpserver\pc-tapis\rapport\Rythme des ventes de tapis et
de fil.xls")
Set XL_Feuille = XL_Classeur.Sheets("sheet1")
With XL_Feuille
.Select
.PrintOut Copies:=1, Collate:=True
End With
'.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
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
Dan
Ah j'ai honte de moi :P je l'ai trouvé 2 min apres avoir posté le message !
XL_Classeur.RefreshAll pour actualiser les données :P
XL_App.Visible = True pour faire le preview XL_App.ActiveSheet.PrintPreview
"Dan" a écrit dans le message de news: %
Salut J'aimerais a l'aide de code dans access, ouvrir un document excel, actualiser les données (requete de données acccess dans excel) et ensuite soit l'imprimer ou faire l'apercu
Avec ce code, je peux l'ouvrir et imprimer mais le document imprime jamais les données a jour car l'actualisation n'a pas le temps de se faire avant l'impression. Les données(requetes) à actualiser sont dans la colone A et B
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("hpserverpc-tapisrapportRythme des ventes de tapis et de fil.xls") Set XL_Feuille = XL_Classeur.Sheets("sheet1") With XL_Feuille .Select .PrintOut Copies:=1, Collate:=True End With '.ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
Merci !
Ah j'ai honte de moi :P
je l'ai trouvé 2 min apres avoir posté le message !
XL_Classeur.RefreshAll pour actualiser les données :P
XL_App.Visible = True pour faire le preview
XL_App.ActiveSheet.PrintPreview
"Dan" <no@spam.net> a écrit dans le message de news:
%238dNjUM2FHA.2212@TK2MSFTNGP15.phx.gbl...
Salut
J'aimerais a l'aide de code dans access, ouvrir un document excel,
actualiser les données (requete de données acccess dans excel) et ensuite
soit l'imprimer ou faire l'apercu
Avec ce code, je peux l'ouvrir et imprimer mais le document imprime jamais
les données a jour car l'actualisation n'a pas le temps de se faire avant
l'impression.
Les données(requetes) à actualiser sont dans la colone A et B
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("\hpserverpc-tapisrapportRythme des ventes de tapis et
de fil.xls")
Set XL_Feuille = XL_Classeur.Sheets("sheet1")
With XL_Feuille
.Select
.PrintOut Copies:=1, Collate:=True
End With
'.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
Ah j'ai honte de moi :P je l'ai trouvé 2 min apres avoir posté le message !
XL_Classeur.RefreshAll pour actualiser les données :P
XL_App.Visible = True pour faire le preview XL_App.ActiveSheet.PrintPreview
"Dan" a écrit dans le message de news: %
Salut J'aimerais a l'aide de code dans access, ouvrir un document excel, actualiser les données (requete de données acccess dans excel) et ensuite soit l'imprimer ou faire l'apercu
Avec ce code, je peux l'ouvrir et imprimer mais le document imprime jamais les données a jour car l'actualisation n'a pas le temps de se faire avant l'impression. Les données(requetes) à actualiser sont dans la colone A et B
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("hpserverpc-tapisrapportRythme des ventes de tapis et de fil.xls") Set XL_Feuille = XL_Classeur.Sheets("sheet1") With XL_Feuille .Select .PrintOut Copies:=1, Collate:=True End With '.ActiveWorkbook.Save .ActiveWorkbook.Close .Quit End With Set XL_App = Nothing Set XL_Classeur = Nothing Set XL_Feuille = Nothing
