Lien cellule dans pied de page
Posez votre question
Liste des messages
Discussion
Liste des forums
Signaler Lien cellule dans pied de page
SGLOD - 16 juin 2017 à 16:51 - Dernière réponse le 17 juin 2017 à 14:16 par SGLOD
Ne plus suivre - Marquer comme résolu
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.
Bonjour,
si tu ne précise pas le "parent" d'un objet , c'est celui par défaut qui est pris ( cellule active, feuille active, classeur actif ...) pour PageSetup précise la feuille concernée...
en précédant PAgeSetup de :l
ThisWorkBook.Sheets(numero).bonjour
en tant que RQ, je nomme les fichiers ainsi :
111L_nomfacileàcomprendre
avec
111 est un numéro de document (unique) et on peut passer à 1111 si besoin
L est l'indice (comme pour les plans) Si tu veux un chiffre, sépare 111 et indice par un _ ou un -
_ est _
donc plus besoin de VBA pour afficher les réf, ind, noms, onglets, chemin... dans les pieds de page
idem avec Word et PPT
Merci mais dans notre système Qualité, les noms de fichiers ont un autre formatage géré par un logiciel dédié et je ne peux pas le modifier sinon effectivement c'est la solution la plus simple à laquelle j'avais pensé.
il est bien ce logiciel dédié ?
moi j'en utilise un qui oblige à mettre réf et indice dans le titre.xlsx
ai-je de la chance ?
Le logiciel s'appelle Qualnet.
tu gères combien de docs ?
j'en ai 600 (y compris des pdf qui sont des notices d'emploi destinées aux clients)
ça tourne depuis 15 ans,
note que tous les docs qui ne sont pas répertoriés (il y en a toujours
Bonjour,
J'ai fait une réponse il y a 2 jours et je vois qu'elle n'apparait pas alors je vous la reporte.
J'ai modifié le code (ci-dessous) mais j'ai une erreur du debugger sur "Target.Address" :
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 = ThisWorkbook.Sheets(numero).Range("K10").Value
numero = numero + 1
Wend
End Sub
End If
End Sub
Je suis ouvert à toute modification du code.
Cordialement.
pierre.jy a écrit :Bonjour,
si tu ne précise pas le "parent" d'un objet , c'est celui par défaut qui est pris ( cellule active, feuille active, classeur actif ...) pour PageSetup précise la feuille concernée...
en précédant PAgeSetup de :l
ThisWorkBook.Sheets(numero).