Discussion :

[kiell]

Bonjour à tous,

Je suis entrain de faire un script en VBS qui permet d'imprimer un fichier Excel simple (une seule feuille).
J'ai trouvé comment l'imprimer, par contre il faudrait que je modifie l'en-tête et le pied de page aussi, et ça.... je ne sais pas comment faire, et je n'ai rien trouvé sur le net pour m'aider.
Je sais comment modifier une cellule grâce à ce code : http://vb.developpez.com/faqvbs/?page=II.3#vbsCreatexls
J'imagine que la modification de l'en-tête et pied de page peux se faire à peux près de la même manière non ?

Merci d'avance pour votre aide

[Invité]

Bonjour

Je te conseille la lecture de ce tuto : Manipulation des en-têtes et pieds de pages

Il te suffit de piloter Excel comme et d'appliquer ce qu'il y a sur ce tuto.

Philippe

[kiell]

Bonjour,

Merci beaucoup pour ce lien, ça m'a permis de faire mon script (qui peux certainement être optimisé mais il fonctionne comme ça pour le moment) :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
'Nom du fichier Excel à traiter (passé en argument lors du lancement du script)
nomfichierxls = lcase( wscript.arguments(0) )
 
'Ouverture du fichier Excel
Set exl = WScript.CreateObject("excel.Application")
Set fichxl = exl.Workbooks.Open(nomfichierxls)
exl.DisplayAlerts = FALSE
exl.Visible = TRUE
 
' Définition des variable servant à remplir l'en-tête et le pied de page avant impression
Set WshNetwork = WScript.CreateObject("WScript.Network")
	strUser = WshNetwork.UserName
 
dateHeure = "&D  &T"
entete = "&F"
page = "Page &P/&N"	
 
'Création de la macro modifiant l'en-tête et le pied de page
 
Set mdle = fichxl.VBProject.VBComponents.Add(1)
 
num=0
num=num+1:mdle.CodeModule.InsertLines num, "Sub entete_piedpage()"
num=num+1:mdle.CodeModule.InsertLines num, "With ActiveSheet.PageSetup"
num=num+1:mdle.CodeModule.InsertLines num, ".CenterHeader = """ & entete & """"
num=num+1:mdle.CodeModule.InsertLines num, ".LeftFooter = """ & dateHeure & """"
num=num+1:mdle.CodeModule.InsertLines num, ".CenterFooter = """ & page & """"
num=num+1:mdle.CodeModule.InsertLines num, ".RightFooter = """ & strUser & """"
num=num+1:mdle.CodeModule.InsertLines num, "End With"
num=num+1:mdle.CodeModule.InsertLines num, "End Sub"  
 
'Exécution de la macro
exl.Run "entete_piedpage"
 
' Impression du document
fichxl.Sheets(1).PrintOut ,,,,""
 
'Fermeture du fichier et d'Excel
 
fichxl.close false
exl.Quit

J'aurais 2 autres petites questions :

- Quand le script ferme Excel à la fin, j'ai un message d'erreur Windows qui me dit que Excel a rencontré un problème, "la mémoire ne peux être read".
Si je retire la partie macro de mon script, je n'ai plus ce message d'erreur (le script se contente d'ouvrir puis de fermer le fichier dans ce cas là).
Quelqu'un saurait comment éviter que ce message ne s'affiche ? (il n'empêche pas l'exécution du script, mais c'est assez embettant )

- Autre question, l'impression se fait sur l'imprimante par défaut, je voudrais pouvoir spécifier le nom de l'imprimante sur laquelle imprimer, j'ai essayer de mettre le nom de l'imprimante (ou le port) sur laquelle je veux imprimer à la fin de ma ligne fichxl.Sheets(1).PrintOut ,,,,"nom_imprimante" mais ça n'a pas l'air de fonctionner.

Merci pour votre aide.


EDIT : c'est bon en fait pour le message d'erreur, il fallait que je mette la ligne :

Code :

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

Set mdle = Nothing

avant de fermer.
Je suis débutant en vbs, je ne connais pas encore toutes les subtilités