Code AS commun pour Imprimer => PDF - pour Excel 2011 et 2016

**RyuAutodidacte** · 17/04/2017, 19h48

Bonjour PBELL,
Me revoilà

En cherchant à droite, à gauche sur le net j'ai commencé à faire un code AS pour pouvoir créer un PDF directement par la fenêtre imprimer.
Mon problème c'est que sur Excel 2016, la fenêtre imprimer à légèrement été modifier (cf Captures écran Excel 2011 et 2016) + les restrictions avec SandBox d'apple,
qui font que la procédure de l'utilisation d'un AS dans Excel Mac 2016 a changé.

Ci-dessous 2 liens concernant le vba qui permettent de comprendre le pourquoi du comment et le fonctionnement dans Excel 2016 pour un AS :
https://dev.office.com/blogs/VBA-imp...in-Office-2016
https://msdn.microsoft.com/fr-fr/lib.../mt654021.aspx

• Mise à part "Enregistrer en PDF …", j'aimerais passer en paramètres les options encadrées en rouge :
- Pages de : X à X
- Imprimer : "Sélection" , "Feuilles sélectionnées", "Classeur entier"
- Mettre à l'échelle

• concernant "Masquer l'extension", j'aimerai que celle ci ne soit pas masquée

• J'utilise "Aller au dossier…" du Finder, dans la fenêtre pour faire le PDF afin de déterminer automatiquement le chemin passer en paramètre pour que le tout puisse se faire d'une traite

• le nom du fichier sera passé en paramètre aussi

Le code commencé pas tout à fait au point (en test) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
set SaveFolderPath to POSIX path of (choose folder with prompt "Select Folder to Save PDF Files")
 
tell application "Microsoft Excel"
	activate
	tell application "System Events" to tell process "Microsoft Excel"
		keystroke "p" using command down
		click (menu button "PDF" of window 1)
		click (menu item 2 of menu of menu button "PDF" of window 1)
		keystroke "g" using {command down, shift down}
		tell sheet 1 of window 1
			set value of text field 1 to SaveFolderPath
			-- ou -- keystroke "/users/kellyf/documents/projects/pdf2fmp/ImportCSV"
			keystroke return
		end tell
		tell sheet 1 of window 1
			keystroke "TOTO"
			keystroke return
		end tell
	end tell
end tell