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
en colonne C les noms sans lien
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Count = 1 Then If Target <> "" Then On Error Resume Next repertoire = "c:mesdocexcelmacronouveau1001exemples" retour = Shell("c:windowssystem32mspaint.exe " & repertoire & Target & ".jpg", 3) End If End If End Sub
JB
On 3 déc, 11:51, "Tony" wrote:
Bonjour,
Je possède un organigramme de société avec les noms de chaque person ne en lien hypertext qui pointe sur des photos.
Je voudrais que lorsque je clic dessus il m'ouvre l'image (jpg) avec l'aperçu des images Windows, actuellement il me l'ouvre avec IE ou photo editor.
Lorsque j'ouvre un jpg en dehors d'Excel ca fonctionne bien.
Bonjour
en colonne C les noms sans lien
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
If Target <> "" Then
On Error Resume Next
repertoire = "c:mesdocexcelmacronouveau1001exemples"
retour = Shell("c:windowssystem32mspaint.exe " & repertoire &
Target & ".jpg", 3)
End If
End If
End Sub
JB
On 3 déc, 11:51, "Tony" <tmar...@net-consult.fr> wrote:
Bonjour,
Je possède un organigramme de société avec les noms de chaque person ne en
lien hypertext qui pointe sur des photos.
Je voudrais que lorsque je clic dessus il m'ouvre l'image (jpg) avec
l'aperçu des images Windows, actuellement il me l'ouvre avec IE ou photo
editor.
Lorsque j'ouvre un jpg en dehors d'Excel ca fonctionne bien.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Count = 1 Then If Target <> "" Then On Error Resume Next repertoire = "c:mesdocexcelmacronouveau1001exemples" retour = Shell("c:windowssystem32mspaint.exe " & repertoire & Target & ".jpg", 3) End If End If End Sub
JB
On 3 déc, 11:51, "Tony" wrote:
Bonjour,
Je possède un organigramme de société avec les noms de chaque person ne en lien hypertext qui pointe sur des photos.
Je voudrais que lorsque je clic dessus il m'ouvre l'image (jpg) avec l'aperçu des images Windows, actuellement il me l'ouvre avec IE ou photo editor.
Lorsque j'ouvre un jpg en dehors d'Excel ca fonctionne bien.
Tony
Merci pour votre réponse mais cette solution s'applique seulement pour un document?
Je pensais plus à une modification du registre afin de l'appliquer pour tous les documents Excel.
Cordialement,
"JB" a écrit dans le message de news:
Bonjour
en colonne C les noms sans lien
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Count = 1 Then If Target <> "" Then On Error Resume Next repertoire = "c:mesdocexcelmacronouveau1001exemples" retour = Shell("c:windowssystem32mspaint.exe " & repertoire & Target & ".jpg", 3) End If End If End Sub
JB
On 3 déc, 11:51, "Tony" wrote:
Bonjour,
Je possède un organigramme de société avec les noms de chaque personne en lien hypertext qui pointe sur des photos.
Je voudrais que lorsque je clic dessus il m'ouvre l'image (jpg) avec l'aperçu des images Windows, actuellement il me l'ouvre avec IE ou photo editor.
Lorsque j'ouvre un jpg en dehors d'Excel ca fonctionne bien.
Merci pour votre réponse mais cette solution s'applique seulement pour un
document?
Je pensais plus à une modification du registre afin de l'appliquer pour
tous les documents Excel.
Cordialement,
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
8c7ef752-a71d-4943-9aab-bcd23f620a70@r60g2000hsc.googlegroups.com...
Bonjour
en colonne C les noms sans lien
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
If Target <> "" Then
On Error Resume Next
repertoire = "c:mesdocexcelmacronouveau1001exemples"
retour = Shell("c:windowssystem32mspaint.exe " & repertoire &
Target & ".jpg", 3)
End If
End If
End Sub
JB
On 3 déc, 11:51, "Tony" <tmar...@net-consult.fr> wrote:
Bonjour,
Je possède un organigramme de société avec les noms de chaque personne en
lien hypertext qui pointe sur des photos.
Je voudrais que lorsque je clic dessus il m'ouvre l'image (jpg) avec
l'aperçu des images Windows, actuellement il me l'ouvre avec IE ou photo
editor.
Lorsque j'ouvre un jpg en dehors d'Excel ca fonctionne bien.
Merci pour votre réponse mais cette solution s'applique seulement pour un document?
Je pensais plus à une modification du registre afin de l'appliquer pour tous les documents Excel.
Cordialement,
"JB" a écrit dans le message de news:
Bonjour
en colonne C les noms sans lien
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Count = 1 Then If Target <> "" Then On Error Resume Next repertoire = "c:mesdocexcelmacronouveau1001exemples" retour = Shell("c:windowssystem32mspaint.exe " & repertoire & Target & ".jpg", 3) End If End If End Sub
JB
On 3 déc, 11:51, "Tony" wrote:
Bonjour,
Je possède un organigramme de société avec les noms de chaque personne en lien hypertext qui pointe sur des photos.
Je voudrais que lorsque je clic dessus il m'ouvre l'image (jpg) avec l'aperçu des images Windows, actuellement il me l'ouvre avec IE ou photo editor.
Lorsque j'ouvre un jpg en dehors d'Excel ca fonctionne bien.