Supprimer message de liaison
Bonjours les pro,
Voici mon problème,
J'ai une macro qui me change les liaison à l'ouverture du classeur ou l'on est plusieurs utilisateur à l'utiliser.
Private Sub Workbook_Open()
Sheets("admin.").Range("C1") = Application.UserName
Sheets("admin.").Range("C2") = Environ("COMPUTERNAME")
ActiveWorkbook.ChangeLink Name:="Facture.xlsm", NewName:=ThisWorkbook.Sheets("admin.").Range("I4"), Type:=xlExcelLinks
End SubSeulement à l'ouverture j'ai chaque fois ce message ci joint: que je voudrais supprimer
que doit-on rajouter? il faudrait que ça continue ou ferme. ou simplement ne l'affiche pas.
Un grand merci pour votre précieuse aide qui m'a toujours permis de trouver une solution vu mes connaissance minime en VBA.
Slts Ambroise
Bonjour
Sans garantie, essaie de rajouter l'instruction
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Sheets("admin.").Range("C1") = Application.UserName
Sheets("admin.").Range("C2") = Environ("COMPUTERNAME")Bye !
Bonjour,
Sans oublier de remettre Application.DisplayAlerts = True après.
Mais j'ai un doute que ça agisse sur ce type de message.
Dans 'Données / Connexions / Modifier les liens' bouton 'Invite de démarrage' tu as des choix à faire.
A voir si ça agit sur celui-ci.
eric
Merci beaucoup Application.DisplayAlerts = False marche très bien plus de message.
désolé pour le retard j’étais absent quelque jours.
encore merci
Slts Ambroise