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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
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.
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.