Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
191 internautes nous ont dit merci ce mois-ci
Sub toto() Dim MonMsg as string MonMsg = "ceci est du code" debug.print MonMsg end sub
Sub HypLinkAdd() Dim Directory As String Dim FILE As String Dim Cellule As String 'Cellule de destination Cellule = "a5" 'Repertoire des fichers Directory = "C:\UsersDesk\topBLs_manuels\" 'Nom Du fichier FILE = "BL9970003.xlsm" 'URL a créer URL = Directory & FILE InfoBulle = URL TxtToDisplay = FILE 'Ajout du lien With Worksheets(1) .Hyperlinks.Add Anchor:=.Range(Cellule), _ Address:=URL, ScreenTip:=InfoBulle, TextToDisplay:=TxtToDisplay End With End Sub
Mais ca me parait une bonne idée à laquelle je n'avais pas du tout penser.
Merci d'ores et déjà de votre aide
Options Excel-->Options avancées-->Général-->Options Web-->Fichiers--> et décocher : "Mettre à jour les liens lors de l'enregistrement"
Encore merci à tous de m'avoir accorder un peu de votre temps pour m'aider !!!
L'essenciel que ça marche lol
Salut