Contenu récent par yassinewrigley

Bonjour le forum, Le code suivant: Sub hyperlien() Dim c As Range For Each c In Range([E1], [E65586].End(xlUp)) ActiveSheet.Hyperlinks.Add c, "R:\Technic\ENGINEERING\Yassine - Gestion de projet 2011\Procédure de gestion de projets\A\" & c.Value Next c End Sub me permet de...