Ma question :Dans la case A1 de mon Fichier Delta (c:\Delta) j'ai une valeur
qui va déterminer quel fichier je vais utiliser.
Dans cette cellule je vais avoir 4 valeurs possibles qui sont dans ce
contexte des moyens de locomotion (Voiture, Piéton, Vélo, Cyclo)
En fonction de la valeur de la cellule je vais ouvrir :
- si A1 = "Voiture", j'ouvrirai le fichier C:\Voiture.xls
- si A1 = "Piéton", j'ouvrirai le fichier C:\Piéton.xls
- si A1 = "Vélo", j'ouvrirai le fichier C:\Vélo.xls
- si A1 = "Cyclo", j'ouvrirai le fichier C:\Cyclo.xls
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Dans l'évennement Worksheet_Change:
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$1" Then On Error Resume Next Err=0 Workbooks.Open Filename:=[A1] If Err > 0 Then MsgBox "Fichier inconnu" End If On Error GoTo 0 End If Application.EnableEvents = True End Sub
Cordialement JB
Bonjour,
Dans l'évennement Worksheet_Change:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then
On Error Resume Next
Err=0
Workbooks.Open Filename:=[A1]
If Err > 0 Then
MsgBox "Fichier inconnu"
End If
On Error GoTo 0
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$1" Then On Error Resume Next Err=0 Workbooks.Open Filename:=[A1] If Err > 0 Then MsgBox "Fichier inconnu" End If On Error GoTo 0 End If Application.EnableEvents = True End Sub
Cordialement JB
JACK 43
Bonsoir,
Je rentre ce soir, et je trouve une réponse de la part de JB à ma question sur ouverture conditionnel de fichier.
Je suis débutant sur les macro et je ne comprend pas sa macro et son exemple qui ne correspond aux paramètres que je faisais figurer dans ma question.
Je suis peut-être exigeant mais si quelqu'un peu m'aider.
MERCI beaucoup et A +
Bonsoir,
Je rentre ce soir, et je trouve une réponse de la part de JB à ma question
sur ouverture conditionnel de fichier.
Je suis débutant sur les macro et je ne comprend pas sa macro et son exemple
qui ne correspond aux paramètres que je faisais figurer dans ma question.
Je suis peut-être exigeant mais si quelqu'un peu m'aider.
Je rentre ce soir, et je trouve une réponse de la part de JB à ma question sur ouverture conditionnel de fichier.
Je suis débutant sur les macro et je ne comprend pas sa macro et son exemple qui ne correspond aux paramètres que je faisais figurer dans ma question.
Je suis peut-être exigeant mais si quelqu'un peu m'aider.
MERCI beaucoup et A +
michdenis
Bonjour Jack 43,
Tu copie ceci dans le module feuille où l'action se trouve,
En A1 = Chemin et nom du fichier Cette procédure va ouvrir le fichier si ce dernier existe et si ce dernier n'est pas déjà ouvert.
Pour ce faire, tu n'auras qu'à sélectionner la cellule A1 pour déclencher la macro.
'------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Wk As Workbook, F As String If Target.Address = Range("A1").Address Then If Target = "" Then Exit Sub If TypeName(Target.Value) = "String" Then F = Dir(Range("A1").Value) If F = "" Then MsgBox "Chemin ou fichier introuvable" Exit Sub Else On Error Resume Next Set Wk = Workbooks(F) If Err = 0 Then Exit Sub Else Err = 0 Workbooks.Open Target End If End If End If End If
End Sub '-------------------------
Salutations!
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
Je rentre ce soir, et je trouve une réponse de la part de JB à ma question sur ouverture conditionnel de fichier.
Je suis débutant sur les macro et je ne comprend pas sa macro et son exemple qui ne correspond aux paramètres que je faisais figurer dans ma question.
Je suis peut-être exigeant mais si quelqu'un peu m'aider.
MERCI beaucoup et A +
Bonjour Jack 43,
Tu copie ceci dans le module feuille où l'action se trouve,
En A1 = Chemin et nom du fichier
Cette procédure va ouvrir le fichier si ce dernier existe et si
ce dernier n'est pas déjà ouvert.
Pour ce faire, tu n'auras qu'à sélectionner la cellule A1 pour
déclencher la macro.
'-------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Wk As Workbook, F As String
If Target.Address = Range("A1").Address Then
If Target = "" Then Exit Sub
If TypeName(Target.Value) = "String" Then
F = Dir(Range("A1").Value)
If F = "" Then
MsgBox "Chemin ou fichier introuvable"
Exit Sub
Else
On Error Resume Next
Set Wk = Workbooks(F)
If Err = 0 Then
Exit Sub
Else
Err = 0
Workbooks.Open Target
End If
End If
End If
End If
End Sub
'-------------------------
Salutations!
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de news:
582FC226-CD0D-4E04-BAE9-6469B7B73210@microsoft.com...
Bonsoir,
Je rentre ce soir, et je trouve une réponse de la part de JB à ma question
sur ouverture conditionnel de fichier.
Je suis débutant sur les macro et je ne comprend pas sa macro et son exemple
qui ne correspond aux paramètres que je faisais figurer dans ma question.
Je suis peut-être exigeant mais si quelqu'un peu m'aider.
Tu copie ceci dans le module feuille où l'action se trouve,
En A1 = Chemin et nom du fichier Cette procédure va ouvrir le fichier si ce dernier existe et si ce dernier n'est pas déjà ouvert.
Pour ce faire, tu n'auras qu'à sélectionner la cellule A1 pour déclencher la macro.
'------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Wk As Workbook, F As String If Target.Address = Range("A1").Address Then If Target = "" Then Exit Sub If TypeName(Target.Value) = "String" Then F = Dir(Range("A1").Value) If F = "" Then MsgBox "Chemin ou fichier introuvable" Exit Sub Else On Error Resume Next Set Wk = Workbooks(F) If Err = 0 Then Exit Sub Else Err = 0 Workbooks.Open Target End If End If End If End If
End Sub '-------------------------
Salutations!
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonsoir,
Je rentre ce soir, et je trouve une réponse de la part de JB à ma question sur ouverture conditionnel de fichier.
Je suis débutant sur les macro et je ne comprend pas sa macro et son exemple qui ne correspond aux paramètres que je faisais figurer dans ma question.
Je suis peut-être exigeant mais si quelqu'un peu m'aider.
MERCI beaucoup et A +
Modeste
Bonsour® JACK 43, que tu ne comprennes pas, personne ne t'en tiendra rigueur mais alors comment peut-tu dire que cela ne correspond pas aux parametres demandés ??? la macro de JB est on ne peut plus précise et adaptée ;o)))
Si tu veux le résultat : Alt-F11 | tu cliques ensuite sur l'arborescence feuil1(feuil1) du classeur en cours qui apparait alors dans la nouvelle fenetre(en principe à gauche).
puis tu colles la macro fournie, dans le code de la fenetre obtenue.
c'est tout ... tu cliques alors en haut à gauche sur l'icone XL pour retour à la feuille de calcul.
dans ta feuille1 : en A1 tu tapes TROTTINETTE puis fait entrée s'il y a dans le meme répertoire que ton classeur DELTA un classeur nommé TROTTINETTE.XLS celui-ci va s'ouvrir sinon message "Fichier inconnu" tu peux essayer un autre nom pour t'en assurer (vélo,voiture etc...)
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonsour® JACK 43,
que tu ne comprennes pas, personne ne t'en tiendra rigueur
mais alors comment peut-tu dire que cela ne correspond pas aux parametres
demandés ???
la macro de JB est on ne peut plus précise et adaptée ;o)))
Si tu veux le résultat :
Alt-F11 | tu cliques ensuite sur l'arborescence feuil1(feuil1) du classeur
en cours
qui apparait alors dans la nouvelle fenetre(en principe à gauche).
puis tu colles la macro fournie, dans le code de la fenetre obtenue.
c'est tout ...
tu cliques alors en haut à gauche sur l'icone XL pour retour à la feuille de
calcul.
dans ta feuille1 : en A1 tu tapes TROTTINETTE puis fait entrée
s'il y a dans le meme répertoire que ton classeur DELTA un classeur nommé
TROTTINETTE.XLS
celui-ci va s'ouvrir
sinon message "Fichier inconnu"
tu peux essayer un autre nom pour t'en assurer (vélo,voiture etc...)
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Bonsour® JACK 43, que tu ne comprennes pas, personne ne t'en tiendra rigueur mais alors comment peut-tu dire que cela ne correspond pas aux parametres demandés ??? la macro de JB est on ne peut plus précise et adaptée ;o)))
Si tu veux le résultat : Alt-F11 | tu cliques ensuite sur l'arborescence feuil1(feuil1) du classeur en cours qui apparait alors dans la nouvelle fenetre(en principe à gauche).
puis tu colles la macro fournie, dans le code de la fenetre obtenue.
c'est tout ... tu cliques alors en haut à gauche sur l'icone XL pour retour à la feuille de calcul.
dans ta feuille1 : en A1 tu tapes TROTTINETTE puis fait entrée s'il y a dans le meme répertoire que ton classeur DELTA un classeur nommé TROTTINETTE.XLS celui-ci va s'ouvrir sinon message "Fichier inconnu" tu peux essayer un autre nom pour t'en assurer (vélo,voiture etc...)
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
JB
Bonjour,
Voici l'exemple en PJ
http://cjoint.com/?mevt4ZdmPu
J'ai ajouté une version avec Menu déroulant (Données/Validation)
Cordialement JB
Bonjour,
Voici l'exemple en PJ
http://cjoint.com/?mevt4ZdmPu
J'ai ajouté une version avec Menu déroulant (Données/Validation)
