Application.DisplaysAlerts = False
dans la même veine existe t il un moyen de supprimer le message office de sécurité dans le cas de téléchargement de fichier (cf en pièce jointe l'image du message) ?
J'ai cherché dans toutes les extensions de Application et je n'ai pas trouvé.
Private Sub Workbook_Open()
Application.DisplayAlerts = False
End Sub
[SIZE=2][COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE[/I][/B][/COLOR]
[COLOR=NAVY]Option Explicit[/COLOR]
[COLOR=GREEN]'La fonction API Windows ShellExecute permet de contourner cette alerte Windows[/COLOR]
[COLOR=GREEN]'Il convient donc de "simuler" le lien hypertexte et en laisser la gestion à la fonction API[/COLOR]
[COLOR=GREEN]'myDearFriend! - 01/2007[/COLOR]
[COLOR=NAVY]Private Declare Function[/COLOR] ShellExecuteA [COLOR=NAVY]Lib[/COLOR] "shell32.dll" ( _
[COLOR=NAVY]ByVal[/COLOR] hwnd [COLOR=NAVY]As Long[/COLOR], [COLOR=NAVY]ByVal[/COLOR] lpOperation [COLOR=NAVY]As String[/COLOR], _
[COLOR=NAVY]ByVal[/COLOR] lpFile [COLOR=NAVY]As String[/COLOR], [COLOR=NAVY]ByVal[/COLOR] lpParameters [COLOR=NAVY]As String[/COLOR], _
[COLOR=NAVY]ByVal[/COLOR] lpDirectory [COLOR=NAVY]As String[/COLOR], [COLOR=NAVY]ByVal[/COLOR] nShowCmd [COLOR=NAVY]As Long[/COLOR]) [COLOR=NAVY]As Long[/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Worksheet_FollowHyperlink([COLOR=NAVY]ByVal[/COLOR] Target [COLOR=NAVY]As[/COLOR] Hyperlink)
[COLOR=NAVY]If[/COLOR] Target.Range.Address(0, 0) = "B26" [COLOR=NAVY]Then[/COLOR] [COLOR=GREEN]'Lien n°2 seulement[/COLOR]
ShellExecuteA 0&, "Open", Target.TextToDisplay, "/e", 0&, 1
[COLOR=NAVY]End If
End Sub[/COLOR][/SIZE]
MESSAGE PERSONNEL :
MyDearFriend, on voit qu'il y en a au moins un qui suit !
et c'est toujours le même..
Pour info, j'ai totalement adapté ton code de menu-Combo déroulant à ma base de donnée et ça marche impec! Il faudra que tu penses à le faire breveter! Je le mettrai en ligne bientôt pour info.
Moi, j'en déduirais que ton application Word ne se situe pas sous le chemin "C:\Program Files\Microsoft Office\Office\WINWORD.EXE". Si tel est le cas, il convient d'éditer les liens hypertextes dans la feuille de calcul en conséquence (chez moi, ce n'est pas le bon chemin non plus, mais visiblement c'est le bon chemin pour notre ami MJ13 puisque c'est celui qu'il indiquait dans son fichier plus haut). Attention toutefois de ne pas changer la cible du lien n°2, seul le texte de la cellule doit être modifié (la cible du lien hypertexte doit rester la cellule elle-même).Spitnolan08 à dit:Juste un problème, il semble qu'il y ait un bug dans le fichier que tu as mis en ligne car rien ne se passe sauf un message indiquant qu'il est impossible d'ouvrir le fichier lorsqu'on clique sur le lien 1. ????
Sinon, où doit on placer ce code ? Dans une page ? dans un module ?... N'importe où ?