Bonjour Thierry, Ândré, Pascal, le Forum
Vu que j'ai entendu dire qu'on arrosait par ici, je me pointe avec une solution VBAesque à la façon "Monsieur Plus"!!
En plus pour un Thierry
Option Explicit
Sub FileNamePathInHeadingAndCell()
Dim TheFullPath As String
Dim TheName As String
Dim WS As Worksheet
With ThisWorkbook
TheFullPath = .FullName
TheName = .Name
For Each WS In .Worksheets
With WS
With .PageSetup
.LeftHeader = TheFullPath
.RightHeader = TheName
End With
.Range("A1") = TheFullPath
.Range("A2") = TheName
End With
Next
End With
End Sub
Cette macro mettra dans toutes les Entêtes de toutes les feuilles du classeurs : En haut à droite Le Nom, En Haut à Gauche le chemin Complet avec ke nom, et aussi dans toutes les cellules A1 et A2 la même chose ...
Bon alors c'est quand qu'on arrose ça ?
Bon Aprèm
@+Thierry
