Mise à jour auto de la semaine + suppression lien
Bonjour,
1) Je souhaite que le titre de ma feuille se mette à jour automatiquement avec le n° de la dernière semaine de mise à jour de tableau.
Ex : si les résultats sont à jour à S8, le titre doit reprendre S8
2) Un message de mise à jour des liens avec d'autres fichiers s'affiche lorsqu'on ouvre le tableau, alors qu'il n'y a pas de lien. Comment cela se fait-il ? Comment supprimer ce message ?
Merci bcp par avance.
Voici le lien pour voir mon tableau :
https://www.excel-pratique.com/~files/doc/Extrait_tab_bord_FRELING2.zip
La formule que j'ai faite avec la condition SI se trouve sur la feuille Graph Canal, cellule R4. Mais elle ne fonctionne que sur 6 semaines.
Bonjour,
Sans trop de certitude, mais un essai avec :
="TRIM1 2009 de S1 à "&"S"&NB('DCPP NO'!H5:T5)&" 2009"Je te laisse tester
@+
Bonjour, salut thibo
La formule de thibo convient parfaitement.
Pour ce qui est de la liaison, tu vas sur le menu "Edition" "Liaison" >> "Rompre la liaison"
ou supprimer (je ne sais plus la terminologie exacte)
Cordialement
Merci pour la formule. C'est tout à fait ce que je voulais.
Pour ce qui est du lien, j'avais déjà essayer avec "liaison". Je n'ai pas la fonction "rompre la liaison". Les seules possibilités sont : "mettre à jour", "ouvrir la source" et "modifier la source".
As-tu une autre idée ?
re,
Regarde ce fil :
https://www.excel-pratique.com/forum/viewtopic.php?t=6506&highlight=findlink
où tu trouveras dans un des posts un utilitaire findlink qui permet de supprimer les liens récalcitrants.
Il s'agit d'une macro complémentaire qui génère un nouveau menu temporaire.
Je te laisse essayer
@+
Bonsoir,
avec l'utilitaire dont Thibo te parle, il y a 20 graphiques non visibles, qui contiennent ces liens....
avec ce code, tu peux les supprimer, et tu n'auras plus ces messages de mise à jour des liens..
Sub supprime_liens()
objets = Array("1066", "1062", "1058", "1053", "1050", "1048", _
"1046", "1040", "1039", "1037", "1036", "1033", _
"1032", "1031", "1030", "1027", "1026", "1034", "1035", "1041")
For Each obj In objets
ActiveSheet.ChartObjects("Graphique " & Val(obj)).Delete
Next obj
End Sub