Macro qui ouvre un lien sous condition

[MissCroft]

Bonjour
je voudrais faire une macro qui s'exécuterait quand certaines cellules contiendraient un code de 5 chiffres, pour ouvrir un autre fichier.
En gros, si "telle cellule" est remplie, ouvrir "tel fichier"...
je sais pas trop comment démarrer.

Merci de votre aide

 

[pierrejean]

Re : Macro qui ouvre un lien sous condition

bonjour MissCroft

Quelque chose du genre:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" And Target = "12345" Then Workbooks.Open Filename:="F:\nom_repertoire\nom_fichier.xls"
End Sub

ouvrira le fichier nom_fichier si on inscrit 12345 dans la cellule A1 de la feuille concernée
Le fichier est dans le repertoire nom_repertoire sur le disque F

 

[MissCroft]

Re : Macro qui ouvre un lien sous condition

ok merci
mais comment spécifier que au lieu de 12345 il faut 5 chiffres (n'importe lesquels) ?

 

[pierrejean]

Re : Macro qui ouvre un lien sous condition

Re

  Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" And IsNumeric(Target) And Len(Target) = 5 Then
  Workbooks.Open Filename:="F:\nom_repertoire\nom_fichier.xls"
 End If
End Sub

 

[MissCroft]

Re : Macro qui ouvre un lien sous condition

Merci bcp

autre souci venant de cette macro : apparemment elle bloque l'enregistrement d'une autre macro.
en fait je veux copier coller un onglet, pour garder les propriétés de cette macro d'onglet en onglet. dedans j'ai un tableau plein, que je veux vide sur le dernier onglet créé. dc je voulais enregistrer une macro qui efface, mais quoi que je fasse, çà bloque et quand j'ouvre le débogueur j'ai çà :
If Target.Address = "$B$4" And IsNumeric(Target) And Len(Target) = 5 Then
surligné en jaune. mais çà efface quand même le contenu...(après test, çà bloque tout pour la suite)...

 

[pierrejean]

Re : Macro qui ouvre un lien sous condition

Re

Desolé, mais sans fichier impossible de debugger !!!

 

[MissCroft]

Re : Macro qui ouvre un lien sous condition

Re

  Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" And IsNumeric(Target) And Len(Target) = 5 Then
  Workbooks.Open Filename:="F:\nom_repertoire\nom_fichier.xls"
 End If
End Sub

re bonjour
après avoir bidouillé un peu j'ai résolu les bugs mais j'ai un autre souci...cette macro doit marcher sur 2 PC différents pour qui le serveur où est hébergé le fichier a 2 noms différents : P:/nomdurépertoire/nomdufichier et X:/nomdurepertoire etc
mais celà conduit au mm fichier. et impossible de modifier ce chemin sur un des 2 PC...que puis-je faire pour "dire à excel de chercher tel nom de serveur et si y a pas, ouvrir l'autre" ? je sais même pas si c'est possible en fait.

Merci à ceux qui pourront me dépanner et bonne fin de We