pied de page personnalisé + Chemin

[JFbeca025]

Bonjour le forum

je vous sollicite pour 2 choses:

1 Est t'il possible d'inserrer un pied de page contenant la ou les valeurs indiquées dans une ou plusieures cellules d'une feuille.

2 Pouvez vous me renseigner sur le code a appliquer pour enregistrer un fichier sur un répertoire précis.
exemple de chemin C:\Documents and Settings\Propriétaire\Mes documents\perso
Enregistrement lancé grace à un bouton.

Merci de votre aide.

 

[Guillaumega]

Re : pied de page personnalisé + Chemin

Bonsoir,

En réduisant la marge en bas au minimum, tu dois pouvoir avoir la place pour simuler un pied de page directement dans ton tableur.

Bonne soirée et bonne fêtes
Guillaumega

 

[phlaurent55]

Re : pied de page personnalisé + Chemin

un petit essai

 

[phlaurent55]

Re : pied de page personnalisé + Chemin

il te faudra quand même l'adapter

 

[ninbihan]

Re : pied de page personnalisé + Chemin

Bonsoir,

En complément, voici code à placer pour modifier le pied de page
(à placer dans thisworkbook)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range("a1").Value
End Sub

Ici la valeur de la cellule A1 se retrouve en pied de page gauche.

Bonne soirée,

Ninbihan

 

[phlaurent55]

Re : pied de page personnalisé + Chemin

à voir egalement

 

[Xanthar15]

Re : pied de page personnalisé + Chemin

Bonjour

je suis intéressé à propos de la même chose (à savoir mettre dans le pied de page la valeur d'une cellule)
mais je voudrais mettre la valeur d'une cellule d'une autre page : est ce possible ? quel code mettre à la place de :

ActiveSheet.PageSetup.LeftFooter = Range("a1").Value

Merci d'avance.

 

[Dull]

Re : pied de page personnalisé + Chemin

Salut Xanthar15, le Forum

essai ce code

ActiveSheet.PageSetup.LeftFooter = [B]Sheets("Feuil2")[/B].Range("a10").Value

Si Feuil2 est le nom et A10, la cellule où se trouve l'info

Bonne Journée

 

[Xanthar15]

Re : pied de page personnalisé + Chemin

merci pour ta réponse.