alerteur constant à l'ouverture d'n fichier

[itombof]

Bonjour à tous


me voici autours de vous pour vous exposser mon problème.
J'ai des fichiers liés entres elles impliquant à l'ouverture de ces fichiers des alerteurs constants et du coup fatiguant.
Ce que je cherche c'est que je puisse appliquer la meme tache à chaque ouverture de fichier.

alerteur1 : macro? "diasble" "enable" "more info"
==> je veux mettre "enable" à CHAQUE FOIS

alerteur2 : update? "update" "don't update" "help"
==> je veux mettre "update" à CHAQUE FOIS

alerteur3 : "this orkbook contains link to other data source" 2 options "YES" et "NO"
==> je veux mettre "YES" à CHAQUE FOIS

alerteur4 : this workbook contains more link 2 options "continue" et "edit link"
==> je veux mettre "continue" à CHAQUE FOIS



j'ai essayé d'écrire ce code sur vba mais cela n'a pas fonctionné:


Sub MiseAJour()
Application.DisplayAlerts = False
End Sub




je vous remerci d'avancë!!
J

 

[Efgé]

Re : alerteur constant à l'ouverture d'n fichier

Bonjour itombof,
Peut être en mettant :

Private Sub Workbook_Open()
Application.DisplayAlerts = False
End Sub

Dans le ThisWorkbook de chaque classeur.
Cordialement

 

[itombof]

Re : alerteur constant à l'ouverture d'n fichier

ahhh bien essayé!!
malheuresment pour moi, ça ne marche pas. J'avais aussi essayé mais peut être une autrte idée.
merci encore

 

[CMoa]

Re : alerteur constant à l'ouverture d'n fichier

Bonjour itombof,Efgé
test ceci si tu as le nom de ton classeur en E 19 (à adapter)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
        If Target.Address <> "$E$19" Then Exit Sub
 If Target.Address = "$E$19" Then
  Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open "C:\ton adresse fichier\nom de ton fichier.xls"
xl.Visible = True
End If
End Sub

@+

 

[itombof]

Re : alerteur constant à l'ouverture d'n fichier

merci encore pour votre aide (Efgé et CMoa)


voila ce que j'ai mis mais ça ne semble pas fonctionné. malheuresement ça ne fonctionne pas quand je mets le nom de mon fichier dans la cellule E19 dans la cellule active et ce code dans la sheet "this workbook".



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address <> "$E$19" Then Exit Sub
If Target.Address = "$E$19" Then
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open "N:\DEPT\INVESTISSEMENTS\GESTION_ACTIONS\PERFORMA\201005\test\Copy of Copy v5 of 1005GlobalNorthAmerica_APRES_SPLIT.xls"
xl.Visible = True
End If
End Sub


une autre idée serait la bienvenue. et je suis desolé de mon manque de réactivité. merci