macro impression écran zone de sélection d'impression

Y compris Power BI, Power Query et toute autre question en lien avec Excel
d
dm83
Membre habitué
Membre habitué
Messages : 143
Inscrit le : 12 juillet 2015
Version d'Excel : MAC 2011

Message par dm83 » 4 septembre 2016, 18:06

macro.impr.ecran.xlsx
(28.65 Kio) Téléchargé 59 fois
Bonjour,
je souhaiterai automatiser " l'impression écran " de la la zone de l'impression définie (format JPEG si possible), pour pouvoir ensuite la récupérer cette image sur mon bureau.
Une macro permettrait-elle d'effectuer cela ?

PS: je suis sous excel 2013, depuis un Macbook pro.

Ci-joint un petit fichier exemple avec les détails.

Merci par avance pour vos aides et conseils.

Damien
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'231
Appréciations reçues : 105
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 5 septembre 2016, 13:43

Bonjour

Code à essayer
Sub test()
Dim dlg As Byte
With ActiveSheet
    dlg = .Range("B" & .Rows.Count).End(xlUp).Row
    .PageSetup.PrintArea = .Range("$B$3:$N$" & dlg)
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path  & "\" & "nom du fichier"
End With
End Sub
code qui devrait sauvegarder le fichier en format pdf dans le répertoire du fichier contenant la macro
Le nom du fichier est à définir bien entendu

Excel 2013 n'existe pas sous MAC. A moins que vous utilisiez VMware qui permet l'utilisation de windows sous MAC ??

Cordialement
@+ Dan ;)
d
dm83
Membre habitué
Membre habitué
Messages : 143
Inscrit le : 12 juillet 2015
Version d'Excel : MAC 2011

Message par dm83 » 6 septembre 2016, 00:18

Bonjour Dan,
j'obtiens le message d'erreur suivant : "erreur lors de l'impression", puis en cliquant sur ok, message d'erreur "400".

Effectivement je confond avec excel de mon ancien PC.

Aurais-tu d'autres idées pour parvenir à créer ces impressions d'écran ... ?

Merci d'avance

Damien
H
Harissa23
Membre fidèle
Membre fidèle
Messages : 151
Inscrit le : 20 mars 2012
Version d'Excel : 20/07-13

Message par Harissa23 » 6 septembre 2016, 01:02

Bonsoir,

Je ne connais ni le besoin ni le but ni les limites d'une suite pc vers mac et inversement ( la souris "un seul" bouton c'est frustrant en tout cas XD mais j'en parle ça fait 10 ans que j'ai pas retenter le mac, cela à peut être évolué.)

Il n'y a pas un outil de capture d'écran (comme inclue dans W7 ?) c'est pratique !, car perso j'ai abandonné l'impression jpg pour toutes exploitations diverses soft à soft sur pc, d'images car l'importation est dégueulasse. Même dit en début c'est dégueulasse, pixelisé à bloc.
Le meilleur import d'un soft à l’autre c'est l'objet OLE. ( tous ne le font pas, alors PC MAC... ?)
L'objet OLE, je sélection une zone a copier dans excel, ctrl+c et ctrl+v dans autocad, ça fonctionne très bien (ormis des bugs à la con, merci autodesk ^^) mais c'est bien pratique. Le coté pratique de l'OLE c'est que le fichier d'origine reste celui origine ( Edit possible dans le fichier d'import ).

Désolé je n'ai pas compris ton besoin je te parle juste d'une possibilité que j'ai. ( autocad/excel ) à creuser ou pas

Harissa23
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'194
Appréciations reçues : 446
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 6 septembre 2016, 02:06

Bonsoir,

A essayer :
Sub ExportImgPlage()
    Dim plage As Range, chemin$, nomimg$, w!, h!
    chemin = "H:\Images\"
    nomimg = "ImagePlage.jpg"
    With ActiveSheet
        Set plage = .Range("B3:N16")
        w = plage.Width: h = plage.Height
        plage.CopyPicture
        With .ChartObjects.Add(0, 0, w, h)
            .Chart.Paste
            .Chart.Export chemin & nomimg, "JPG"
            .Delete
        End With
    End With
End Sub
Remplacer chemin et nomimg par ceux appropriés.

Cordialement.
d
dm83
Membre habitué
Membre habitué
Messages : 143
Inscrit le : 12 juillet 2015
Version d'Excel : MAC 2011

Message par dm83 » 6 septembre 2016, 08:21

Bonjour MFerrand,
la macro a l'air de fonctionner, je vois l'apparition à l'écran de l'impression d'écran mais en suite elle disparait... Savez-vous où elle est ensuite stockée ou enregistrée car je ne parviens pas à la trouver ... ? :/

Merci
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'231
Appréciations reçues : 105
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 6 septembre 2016, 08:41

Re
j'obtiens le message d'erreur suivant : "erreur lors de l'impression", puis en cliquant sur ok, message d'erreur "400".
Si tu es sous MAC, dans l'instruction Export, il faut remplacer le \ par :

Pour Harissa,
Il n'y a pas un outil de capture d'écran (comme inclue dans W7 ?) c'est pratique !,
Si vous parlez de cpature écran sous MAC, il suffit de combiner les touches POMME + SHIFT + F3 ou F4 pour avoir une capture écran au format PNG par défaut (on peut choisir le JPG dans les préférences). Avec F4, vous choisissez la plage avec F3 c'est l'écran complet.

Crdlt
@+ Dan ;)
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'194
Appréciations reçues : 446
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 6 septembre 2016, 11:09

Bonjour,
je vois l'apparition à l'écran de l'impression d'écran mais en suite elle disparait... Savez-vous où elle est ensuite stockée ou enregistrée car je ne parviens pas à la trouver ... ? :/
Dans le dossier que tu auras défini ici :
    chemin = "H:\Images\"
Tu remplaces par le chemin du dossier où tu veux récupérer l'image.
Si sous MAC, l'écrire sous la forme adéquate car là c'est un chemin sous Windows...

Cordialement.
d
dm83
Membre habitué
Membre habitué
Messages : 143
Inscrit le : 12 juillet 2015
Version d'Excel : MAC 2011

Message par dm83 » 6 septembre 2016, 14:11

Merci pour vos aides, je comprends bien la procédure, mais je ne parviens à écrire correctement le chemin pour attendre le dossier d'enregistrement en question.
je mets :
chemin = "/Users/XXXXX/Documents/" => Mais j'obtiens le message : autorisation refusée (et l'impression écran s'affiche sur la page).
chemin = ":Users:XXXXX:Documents:" => PAs de message d'erreur, l'impression écran disparait mais rien le jpeg ne s'enregistre pas.
chemin = "/Users:XXXXX:Documents/" => idem

Je cherche pour trouver la bonne écriture mais je n'ai toujours pas trouvé...

Si quelqu'un possédant un Mac sait comment écrire ce chemin ...

Merci

(Dan merci pour le raccourci MAC impression écran, mais je souhaiterai automatiser ce geste pour chaque onglet de mon classeur...)
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'231
Appréciations reçues : 105
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 7 septembre 2016, 08:12

re

si tu ne lis pas ce que j'écris, tu vas pas y arriver.... :?
Si tu es sous MAC, dans l'instruction Export, il faut remplacer le \ par :
Le code que je t'ai proposé enregistre ta vue écran en format PDF et ce dans le répertoire où se trouve ton fichier

Reste à savoir si tu accepte du PDF ou si tu veux absolument du jpeg

Quel est le but d'avoir le fichier au format Jpeg ??

Crdlt
@+ Dan ;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message