imprimer a partir d'un fichier sans ouvrir

[benmx]

BOnjour

J'ai un fichier PPT et je voudrai créer un bouton qui imprimerai un fichier excel sans l'ouvrir (ou en l'ouvrant imprimer auto puis fermeture)

Je ne sais vraiment pas comment faire

Merci

 

[LPandre]

Re : imprimer a partir d'un fichier sans ouvrir

Bonjour,

Dans mon exemple le fichier qui contient les données à copier s'appelle fichier.xls et se trouve dans le répertoire Chemin
NB :je n'ai qu'une feuille dans mon fichier Excel
Je copie les cellule A5 à B10 . A modifier selon tes souhaits
Le slide Power qui reçoit la copie est le premier slide :GotoSlide (1). A modifier selon tes souhaits.
Je colle les données dans l'objet Power qui s'appelle "rectangle 5" .
A modifier selon ta présentation.

Il te reste à créer le bouton dans ta présentation avec le menu des formes automatiques/bouton d'action, etc.

@+



Sub Toto()
Dim xls As Excel.Application
Set xls = CreateObject("Excel.application")
xls.Visible = True
Dim Fxls As Excel.Workbook
Set Fxls = xls.Workbooks.Open(FileName:="C:\Chemin\Fichier.xls")
ActiveSheet.Select
Range("A5:B10").Select
Selection.Copy
xls.Quit
ActiveWindow.View.GotoSlide (1)
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 5").Select
ActiveWindow.View.Paste
End Sub