je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient
pas (désolé...).
1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou 6
chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons
c:\photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant ?
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
Jean-François Aubert
Salut Philippe,
Est-ce que ceci peut faire l'affaire ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....") Adapte le chemin et l'extension.
'******************************* Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim laPhoto, x, test If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next ActiveSheet.Shapes("laPhoto").Delete x = [a1] [d6].Select ' pour la position de l'image test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" & x & ".bmp").Select If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas": Exit Sub Selection.Name = "laPhoto" [a1].Select End Sub '******************************* -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no a écrit dans le message de news:
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient pas (désolé...). 1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou 6 chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant ?
merci
-- Amicalement
Philippe BRONCHART dit la bronche
Salut Philippe,
Est-ce que ceci peut faire l'affaire ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....")
Adapte le chemin et l'extension.
'*******************************
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim laPhoto, x, test
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next
ActiveSheet.Shapes("laPhoto").Delete
x = [a1]
[d6].Select ' pour la position de l'image
test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" & x & ".bmp").Select
If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub
If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas": Exit Sub
Selection.Name = "laPhoto"
[a1].Select
End Sub
'*******************************
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no spasm.philippe.bronchart@wanadoo.fr> a écrit dans le message de
news:u6WgF1duDHA.2492@TK2MSFTNGP12.phx.gbl...
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient
pas (désolé...).
1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou 6
chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons
c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....") Adapte le chemin et l'extension.
'******************************* Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim laPhoto, x, test If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next ActiveSheet.Shapes("laPhoto").Delete x = [a1] [d6].Select ' pour la position de l'image test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" & x & ".bmp").Select If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas": Exit Sub Selection.Name = "laPhoto" [a1].Select End Sub '******************************* -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no a écrit dans le message de news:
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient pas (désolé...). 1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou 6 chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant ?
merci
-- Amicalement
Philippe BRONCHART dit la bronche
AV
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient pas (désolé...).
Pffff... j'ai même pas parlé moi !
AV
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient
pas (désolé...).
Mais si AV il est super bien ton trombinoscope ... c'est juste que je suis un tantinet casse c.......
Amicalement
Philippe "" a écrit dans le message de news:
tu n'as même pas à parler, de toutes façons, ça ne convient pas ;-)
"AV" a écrit dans le message de news: #
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient
pas (désolé...).
Pffff... j'ai même pas parlé moi !
AV
Philippe BRONCHART
Merci de ta réponse, je teste et je te tiens au courant
Amicalement
Phil "Jean-François Aubert" <à a écrit dans le message de news:
Salut Philippe,
Est-ce que ceci peut faire l'affaire ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....") Adapte le chemin et l'extension.
'******************************* Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim laPhoto, x, test If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next ActiveSheet.Shapes("laPhoto").Delete x = [a1] [d6].Select ' pour la position de l'image test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" & x & ".bmp").Select
If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas": Exit Sub
Selection.Name = "laPhoto" [a1].Select End Sub '******************************* -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no a écrit dans le message de
news:
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient
pas (désolé...). 1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou 6
chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant ?
merci
-- Amicalement
Philippe BRONCHART dit la bronche
Merci de ta réponse, je teste et je te tiens au courant
Amicalement
Phil
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news: 3fce5780_2@news.bluewin.ch...
Salut Philippe,
Est-ce que ceci peut faire l'affaire ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....")
Adapte le chemin et l'extension.
'*******************************
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim laPhoto, x, test
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next
ActiveSheet.Shapes("laPhoto").Delete
x = [a1]
[d6].Select ' pour la position de l'image
test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" & x
& ".bmp").Select
If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub
If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas":
Exit Sub
Selection.Name = "laPhoto"
[a1].Select
End Sub
'*******************************
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no spasm.philippe.bronchart@wanadoo.fr> a écrit dans
le message de
news:u6WgF1duDHA.2492@TK2MSFTNGP12.phx.gbl...
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me
convient
pas (désolé...).
1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou
6
chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons
c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant
?
Merci de ta réponse, je teste et je te tiens au courant
Amicalement
Phil "Jean-François Aubert" <à a écrit dans le message de news:
Salut Philippe,
Est-ce que ceci peut faire l'affaire ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....") Adapte le chemin et l'extension.
'******************************* Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim laPhoto, x, test If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next ActiveSheet.Shapes("laPhoto").Delete x = [a1] [d6].Select ' pour la position de l'image test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" & x & ".bmp").Select
If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas": Exit Sub
Selection.Name = "laPhoto" [a1].Select End Sub '******************************* -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no a écrit dans le message de
news:
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient
pas (désolé...). 1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou 6
chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant ?
merci
-- Amicalement
Philippe BRONCHART dit la bronche
Philippe BRONCHART
¨super
merci mille fois
amicalement
philippe
"Philippe BRONCHART" <no a écrit dans le message de news:
Merci de ta réponse, je teste et je te tiens au courant
Amicalement
Phil "Jean-François Aubert" <à a écrit dans le message de
news:
Salut Philippe,
Est-ce que ceci peut faire l'affaire ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....") Adapte le chemin et l'extension.
'******************************* Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim laPhoto, x, test If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next ActiveSheet.Shapes("laPhoto").Delete x = [a1] [d6].Select ' pour la position de l'image test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" & x
& ".bmp").Select
If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas": Exit Sub
Selection.Name = "laPhoto" [a1].Select End Sub '******************************* -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no a écrit dans
le message de
news:
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient
pas (désolé...). 1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou
6
chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons
c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant
?
merci
-- Amicalement
Philippe BRONCHART dit la bronche
¨super
merci mille fois
amicalement
philippe
"Philippe BRONCHART" <no spasm.philippe.bronchart@wanadoo.fr> a écrit dans
le message de news: uzHJSCjuDHA.3224@tk2msftngp13.phx.gbl...
Merci de ta réponse, je teste et je te tiens au courant
Amicalement
Phil
"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message
de
news: 3fce5780_2@news.bluewin.ch...
Salut Philippe,
Est-ce que ceci peut faire l'affaire ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....")
Adapte le chemin et l'extension.
'*******************************
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim laPhoto, x, test
If Target.Address <> "$A$1" Then Exit Sub
On Error Resume Next
ActiveSheet.Shapes("laPhoto").Delete
x = [a1]
[d6].Select ' pour la position de l'image
test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" &
x
& ".bmp").Select
If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub
If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas":
Exit Sub
Selection.Name = "laPhoto"
[a1].Select
End Sub
'*******************************
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no spasm.philippe.bronchart@wanadoo.fr> a écrit
dans
le message de
news:u6WgF1duDHA.2492@TK2MSFTNGP12.phx.gbl...
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me
convient
pas (désolé...).
1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5
ou
6
chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire
(disons
c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant
l'identifiant
"Philippe BRONCHART" <no a écrit dans le message de news:
Merci de ta réponse, je teste et je te tiens au courant
Amicalement
Phil "Jean-François Aubert" <à a écrit dans le message de
news:
Salut Philippe,
Est-ce que ceci peut faire l'affaire ?
Formate la cellule A1 en texte (pour les éventuels identifiants "0....") Adapte le chemin et l'extension.
'******************************* Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim laPhoto, x, test If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next ActiveSheet.Shapes("laPhoto").Delete x = [a1] [d6].Select ' pour la position de l'image test = ActiveSheet.Pictures.Insert("D:Mes documentsMes images" & x
& ".bmp").Select
If [a1] = "" Then ActiveSheet.Shapes("laPhoto").Delete: Exit Sub If test = False And [a1] <> "" Then MsgBox "la photo n'existe pas": Exit Sub
Selection.Name = "laPhoto" [a1].Select End Sub '******************************* -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"Philippe BRONCHART" <no a écrit dans
le message de
news:
Bonjour à tous
je cherche à réaliser un trombinoscope mais la soluce de AV ne me convient
pas (désolé...). 1/ mes photos sont stokées au format bmp sous la forme 12345.bmp (4 5 ou
6
chiffres pouvant commencer par 0 (01234.bmp) dans un répertoire (disons
c:photos.)
2/ chaque personnel est identifié par ce même numéro 12345 ou 01234
3/ comment faire apparaitre la photo dans excel en tapant l'identifiant
