choisir l'imprimante pour imprimer un fichier powerpoint Le sujet est résolu

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
e
eric68
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 20 février 2018
Version d'Excel : 2007

Message par eric68 » 20 février 2018, 12:08

Bonjour,
Je suis nouveau sur le forum, mais je n'ais pas trouvé mon bonheur.
Je suis à la recherche d'une macro excel qui ouvre un fichier powerpoint puis qui réalise un choix d'imprimante et qui imprime celui-ci.
Voici ma macro qui ne fonctionne pas
' Macro2 Macro
'
'
'
    Sheets("SUIVI AFFICHE").Select
    Range("C3:C4").Select
    Selection.Copy
    Sheets("CODE PRODUIT").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Activate
Set PptDoc = PptApp.Presentations.Open("D:\Affiches A5 fin de stock.pptx", msoTrue)
[Surligner]ActiveWindow.Selectedslide.PrintOut From:=1, To:=6, Copies:=1, _
ActivePrinter:=Range("Accueil!B4").Value[/Surligner]
PptApp.ActivePresentation.PrintOut
PptDoc.Close
PptApp.Quit
End Sub
Je pense qu'il y a un problème sur la commande surligner.
En tout cas je vous remercie d'avance pour votre aide.
cordialement
Eric
G
GVIALLES
Membre dévoué
Membre dévoué
Messages : 609
Appréciations reçues : 47
Inscrit le : 28 novembre 2017
Version d'Excel : 2016
Téléchargements : Mes applications

Message par GVIALLES » 20 février 2018, 17:33

Bonjour eric68,

Je te propose de remplacer les lignes surlignées par
PptDoc.PrintOptions.ActivePrinter = Range("Accueil!B4").Value
PptDoc.PrintOut From:=1, To:=6, Copies:=1
Code non testé
Cordialement,

Gérard
e
eric68
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 20 février 2018
Version d'Excel : 2007

Message par eric68 » 20 février 2018, 19:00

merci beaucoup pour ton aide. Je regard ce que cela donne au travail, demain matin....
e
eric68
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 20 février 2018
Version d'Excel : 2007

Message par eric68 » 21 février 2018, 14:38

Merci cela fonctionne....
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message