Lien cellule dans pied de page

Fermé
SGLOD Messages postés 2 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 17 juin 2017 - 16 juin 2017 à 16:51
SGLOD Messages postés 2 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 17 juin 2017 - 17 juin 2017 à 14:16
Bonjour,

Je voudrais insérer le contenu d'une cellule d'une feuille excel dans le pied de page de toutes les feuilles d'un classeur excel (référence et indice du document pour ne pas avoir à modifier chaque feuille à chaque évolution de l'indice...).

Pour une seule feuille, pas de problème (j'ai récupéré le code sur le forum !), mais pour le faire sur toutes les feuilles, ça ne fonctionne pas...

Voilà ma macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$K$10" Then
Sub boucle_while()

Dim numero As Integer
numero = 1
While numero <= ThisWorkbook.Sheets.Count
PageSetup.RightFooter = Sheets(numero).Range("K10").Value 'Numérotation
numero = numero + 1
Wend

End Sub

End If
End Sub

Merci de votre aide.

1 réponse

Raymond PENTIER Messages postés 58777 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 24 décembre 2024 17 258
17 juin 2017 à 03:41
Bonjour.

Comme moi je n'y connais rien en macros, si j'avais à résoudre le même problème, j'aurais choisi la référence et l'indice comme nom du fichier.
Ainsi dans les pieds de page j'aurais juste à cliquer sur l'icône [insérer le nom du fichier] ...
0
SGLOD Messages postés 2 Date d'inscription vendredi 16 juin 2017 Statut Membre Dernière intervention 17 juin 2017
17 juin 2017 à 14:16
Merci pour votre réponse mais je n'ai pas le choix du nom de fichier.
0