Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA Récupérer le nom de la feuille 1 dans le pied de page de toutes les feuilles

VBA Récupérer le nom de la feuille 1 dans le pied de page de toutes les feuilles

8 réponses
Avatar
Céline Brien
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du classeur.
Comment puis-je inscrire cette date dans tous les pieds de page du
classeur ?
Merci de votre aide,
Céline
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
papou
Sur la feuille Feuil1 en A1 l'info à reporter en pied de page gauche sur
chaque feuille du classeur :
Info = Format(Sheets("Feuil1").[A1], "DD/MM/YY")
For Each F In ThisWorkbook.Sheets
With F.PageSetup
.LeftFooter = Info
End With
Next F

Cordialement
Pascal

"Céline Brien" a écrit dans le message de
news:
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du classeur.
Comment puis-je inscrire cette date dans tous les pieds de page du
classeur ?
Merci de votre aide,
Céline



Avatar
Ellimac
Rebonjour Céline,

Sub Toto()
For cpt = 1 To Sheets.Count
Sheets(cpt).PageSetup.CenterFooter = Sheets(1).Name
Next
End Sub

Camille

-----Message d'origine-----
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du classeur.
Comment puis-je inscrire cette date dans tous les pieds
de page du

classeur ?
Merci de votre aide,
Céline

.



Avatar
Céline Brien
Bonjour à tous,
Bonjour Pascal,
Merci de ta réponse, mais je ne peux écrire dans la cellule A1, le titre
de la feuille y est déjà.
J'ai opté pour la solution proposée par Camille.
Merci encore,
Céline

"papou" <nspm> a écrit dans le message de news:

Sur la feuille Feuil1 en A1 l'info à reporter en pied de page gauche
sur

chaque feuille du classeur :
Info = Format(Sheets("Feuil1").[A1], "DD/MM/YY")
For Each F In ThisWorkbook.Sheets
With F.PageSetup
.LeftFooter = Info
End With
Next F

Cordialement
Pascal

"Céline Brien" a écrit dans le message
de

news:
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du classeur.
Comment puis-je inscrire cette date dans tous les pieds de page du
classeur ?
Merci de votre aide,
Céline







Avatar
Céline Brien
Bonjour à tous,
Bonjour Camille,
Le tout fonctionne parfaitement !
J'ai seulement ajouté = "Mise à jour le " & Sheets(1).Name
Merci beaucoup, beaucoup !
Céline

"Ellimac" a écrit dans le
message de news: 09b501c37b91$54b6db10$
Rebonjour Céline,

Sub Toto()
For cpt = 1 To Sheets.Count
Sheets(cpt).PageSetup.CenterFooter = Sheets(1).Name
Next
End Sub

Camille

-----Message d'origine-----
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du classeur.
Comment puis-je inscrire cette date dans tous les pieds
de page du

classeur ?
Merci de votre aide,
Céline

.



Avatar
michdenis
Bonjour Céline,

Et tu as testé ... si un usager déplace l'ordre des feuilles... à moins que ton classeur soit protégé !!!


Salutations!



"Céline Brien" a écrit dans le message de news:
Bonjour à tous,
Bonjour Camille,
Le tout fonctionne parfaitement !
J'ai seulement ajouté = "Mise à jour le " & Sheets(1).Name
Merci beaucoup, beaucoup !
Céline

"Ellimac" a écrit dans le
message de news: 09b501c37b91$54b6db10$
Rebonjour Céline,

Sub Toto()
For cpt = 1 To Sheets.Count
Sheets(cpt).PageSetup.CenterFooter = Sheets(1).Name
Next
End Sub

Camille

-----Message d'origine-----
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du classeur.
Comment puis-je inscrire cette date dans tous les pieds
de page du

classeur ?
Merci de votre aide,
Céline

.



Avatar
Céline Brien
Bonjour à tous,
Salut Mich ou Denis,
Il y a peu de chance qu'un usager déplace l'ordre des feuilles.
Toutefois, si un usager déplace la feuille 1, le pied de page sera
bizarre et il communiquera avec moi pour corriger la situation.
Toutefois, comme le nom de la feuille 1 change par macro pour indiquer
la date de la mise à jour, que puis-je faire ???
Céline


"michdenis" a écrit dans le message de news:

Bonjour Céline,

Et tu as testé ... si un usager déplace l'ordre des feuilles... à
moins que ton classeur soit protégé !!!



Salutations!



"Céline Brien" a écrit dans le message
de news:

Bonjour à tous,
Bonjour Camille,
Le tout fonctionne parfaitement !
J'ai seulement ajouté = "Mise à jour le " & Sheets(1).Name
Merci beaucoup, beaucoup !
Céline

"Ellimac" a écrit dans
le

message de news: 09b501c37b91$54b6db10$
Rebonjour Céline,

Sub Toto()
For cpt = 1 To Sheets.Count
Sheets(cpt).PageSetup.CenterFooter = Sheets(1).Name
Next
End Sub

Camille

-----Message d'origine-----
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du classeur.
Comment puis-je inscrire cette date dans tous les pieds
de page du

classeur ?
Merci de votre aide,
Céline

.







Avatar
Céline Brien
Bonjour à tous,
Salut Vincent,
C'est ce que j'ai fait suite à la réponse de Camille et tu as raison
c'est extra.
Merci,
Céline

"Vincent." a écrit dans le message de
news: 00a101c37ba8$325fb0c0$
Salut à tous les trois !
Et pour Céline, un truc qui marche très souvent : utilise
au maximum l'enregistreur de macro, puis analyse le code
(touche F1 pour l'aide vb sur les méthodes, objets,
propriétés...).
Ca facilite grandement la vie !

A+


Vincent.

-----Message d'origine-----
Bonjour à tous,
Bonjour Pascal,
Merci de ta réponse, mais je ne peux écrire dans la
cellule A1, le titre

de la feuille y est déjà.
J'ai opté pour la solution proposée par Camille.
Merci encore,
Céline

"papou" <nspm> a écrit dans le message de news:

Sur la feuille Feuil1 en A1 l'info à reporter en pied
de page gauche


sur
chaque feuille du classeur :
Info = Format(Sheets("Feuil1").[A1], "DD/MM/YY")
For Each F In ThisWorkbook.Sheets
With F.PageSetup
.LeftFooter = Info
End With
Next F

Cordialement
Pascal

"Céline Brien" a écrit
dans le message


de
news:
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du
classeur.



Comment puis-je inscrire cette date dans tous les
pieds de page du



classeur ?
Merci de votre aide,
Céline






.





Avatar
Philippe.R
Bonjour Céline,
Peut être peux tu, comme le suggérait Denis, protéger le classeur pour éviter le déplacement de
feuilles.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Céline Brien" a écrit dans le message de
news:%
Bonjour à tous,
Salut Mich ou Denis,
Il y a peu de chance qu'un usager déplace l'ordre des feuilles.
Toutefois, si un usager déplace la feuille 1, le pied de page sera
bizarre et il communiquera avec moi pour corriger la situation.
Toutefois, comme le nom de la feuille 1 change par macro pour indiquer
la date de la mise à jour, que puis-je faire ???
Céline


"michdenis" a écrit dans le message de news:

Bonjour Céline,

Et tu as testé ... si un usager déplace l'ordre des feuilles... à
moins que ton classeur soit protégé !!!



Salutations!



"Céline Brien" a écrit dans le message
de news:

Bonjour à tous,
Bonjour Camille,
Le tout fonctionne parfaitement !
J'ai seulement ajouté = "Mise à jour le " & Sheets(1).Name
Merci beaucoup, beaucoup !
Céline

"Ellimac" a écrit dans
le

message de news: 09b501c37b91$54b6db10$
Rebonjour Céline,

Sub Toto()
For cpt = 1 To Sheets.Count
Sheets(cpt).PageSetup.CenterFooter = Sheets(1).Name
Next
End Sub

Camille

-----Message d'origine-----
Bonjour à tous,
Un classeur contenant plusieurs feuilles.
La feuille 1 porte la date de la mise à jour du classeur.
Comment puis-je inscrire cette date dans tous les pieds
de page du

classeur ?
Merci de votre aide,
Céline

.