OVH Cloud OVH Cloud

Mise en page par défaut ...

1 réponse
Avatar
zabelle
Est-il possible d'enregistrer les paramètres de mise en page pour
l'impression pour qu'ils soient utilisés comme paramètres par défaut ?
Exemple : je souhaiterais que le chemin vers le fichier soit toujours
affiché dans le pied de page.

1 réponse

Avatar
Gaenonius
Une toute petite macro complémentaire peut te rendre ce service.

1- Crée un nouveau classeur
2- Dans l'éditeur de code (VBE), insère un module de classe, renomme-le MonExcel
et recopie ce code :

'''''''''''''''''''''''''''''''
Public WithEvents AppXl As Application

Private Sub AppXl_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
Dim Feuille As Worksheet
For Each Feuille In ActiveWindow.SelectedSheets
With Feuille.PageSetup
'insère le chemin complet
.LeftFooter = Wb.FullName
'insère la date et l'heure d'impression
.RightFooter = "Imprimé le &D à &T"
End With
Next
End Sub
'''''''''''''''''''''''''''''''

3- Dans le module ThisWorkbook, recopie ce code :

'''''''''''''''''''''''''''''''
Dim HookXL As New MonExcel

Private Sub Workbook_Open()
Set HookXL.AppXl = Application
End Sub
'''''''''''''''''''''''''''''''

4- Donne un nom au projet : clic droit sur le VBAProject de ton classeur,
Propriétés de VBAProject, Nom du projet dans l'onglet Général

5- Enregistre ton classeur comme macro complémentaire (extension .xla) et
installe-la par le menu Outils -> Macros complémentaires, coche ta macro dans
la liste (utilise le bouton Parcourir si elle n'est pas dans la liste) puis OK.

Si besoin cet exemple tout fait ici, à adapter à ton besoin :

http://cjoint.com/?dcwjJKvOAs

--
Gaenonius

Est-il possible d'enregistrer les paramètres de mise en page pour
l'impression pour qu'ils soient utilisés comme paramètres par défaut ?
Exemple : je souhaiterais que le chemin vers le fichier soit toujours
affiché dans le pied de page.