Discussion :

[Adilleroy]

Bonsoir à tous et à toute ,

Comme le titre l'indique , j'ai un bouton CréationFichierDatat() , une fois qu'on clic dessus , il nous génere une copie de certaine feuille , le petit soucis qui nous dérange , c'est que j'aimerais bien integerer dans le code du bouton , un petit code qui nous créer :

1) une bannière tout en haut d'une feuille indiquant le titre du fichier par exemple ainsi que tout en bas , à gauche y'auras la date , au milieu Confidentiel , et adroite le nom de la personne qui l'a fait

2) que toutes les feuilles copié se mettent en format de mise en page en Paysage et dans une seule feuille .



Si vous avez des idées ?? je serais preneur )) !!! Merci pour tous et je vous souhaite une bonne soirée .

[Adilleroy]

J'ai réussi ce matin , à faire ça

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
 
With ActiveSheet.PageSetup
        .CenterHeader = InputBox("Veuillez entrer L'entete de votre fichier Résultats")
        .RightHeader = ""
        .LeftFooter = "&N"
        .CenterFooter = "Confidentiel"
        .RightFooter = "&H &J"
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = True
        .PrintGridlines = False
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1 ' imprimer la feuille en une seule feuille en largeur et en hauteur
        .FitToPagesTall = 1
         .PrintGridlines = False

par contre y'as 3 probleme , que j'aimerais bien que vous m'aidiez à résoudre

--Le programme met beaucoup de temps à s'executer , vu que c'est fait pour quatre feuille en meme temps .

--J'aimerais bien que vous me montrez comment pourrais-je modifier la police de l'entete de ma feuille , ainsi de voir la possiblité d'integrer le logo de l'entreprise et mettre tous l'entete danc un cadre ou réctangle


-- Le dernier Probleme Conçerne l'impression c'est à dire , quand je cre mon fichier résultat , mes feuilles sont mise soit en portrait soit en payasage , mais ça prend aussi en meme temps le cadre des colonnes et de ligne en marge à gauche et tout en haut ce qui est génant à l'affichage des résultats .



Merci de me répondre à ces probelemes !!!!