Bonjour,
J'ai fait un fichier avec des données et un volet Combox.
En face de ca, un bouton image sur Combox.
Les photos sont dans le meme dossier que mon fichier.
Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du
volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé:
Private Sub ComboBox1_Change()
On Error Resume Next
Dim img As String
Label1.Caption = ComboBox1.Value
img = ComboBox1.Value
'Image1.Picture=LoadPicture(ActiveWorkbook.path&"\mondossier_image\"&img&".jpg")
End Sub
http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#BoutonsSui vant
JB http://boisgontierjacques.free.fr
On 28 sep, 12:04, apacheblanc wrote:
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&im g&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?
Bonjour,
Répertoire = ThisWorkbook.Path
If Dir(Répertoire & "" & Me.nom & ".jpg") <> "" Then
Me.Image1.Picture = LoadPicture(Répertoire & "" & Me.nom &
".jpg")
Else
On Error Resume Next
Me.Image1.Picture = LoadPicture(Répertoire & "" &
"transparent.gif")
End If
http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#BoutonsSui vant
JB
http://boisgontierjacques.free.fr
On 28 sep, 12:04, apacheblanc <apachebl...@discussions.microsoft.com>
wrote:
Bonjour,
J'ai fait un fichier avec des données et un volet Combox.
En face de ca, un bouton image sur Combox.
Les photos sont dans le meme dossier que mon fichier.
Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du
volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé:
Private Sub ComboBox1_Change()
On Error Resume Next
Dim img As String
Label1.Caption = ComboBox1.Value
img = ComboBox1.Value
'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&im g&".jpg")
End Sub
http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#BoutonsSui vant
JB http://boisgontierjacques.free.fr
On 28 sep, 12:04, apacheblanc wrote:
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&im g&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?
MichDenis
De mémoire,la propriété "Picture du bouton de commande ne peut recevoir qu'une image bitmap (extension de fichier .bmp)
"apacheblanc" a écrit dans le message de news:
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?
De mémoire,la propriété "Picture du bouton de commande
ne peut recevoir qu'une image bitmap (extension de fichier .bmp)
"apacheblanc" <apacheblanc@discussions.microsoft.com> a écrit dans le message de news:
ADBC9FA5-8FD0-4E4C-B5B9-4DF065A3EB63@microsoft.com...
Bonjour,
J'ai fait un fichier avec des données et un volet Combox.
En face de ca, un bouton image sur Combox.
Les photos sont dans le meme dossier que mon fichier.
Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du
volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé:
Private Sub ComboBox1_Change()
On Error Resume Next
Dim img As String
Label1.Caption = ComboBox1.Value
img = ComboBox1.Value
'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg")
End Sub
De mémoire,la propriété "Picture du bouton de commande ne peut recevoir qu'une image bitmap (extension de fichier .bmp)
"apacheblanc" a écrit dans le message de news:
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?
MichDenis
Désolé d'autres extension de fichiers images sont admises.
L'aide sur cette propriété énonce ceci : " Spécifie l'image bitmap à afficher sur un objet."
L'usage du mot "bitmap" peut porter à confusion.
"MichDenis" a écrit dans le message de news:
De mémoire,la propriété "Picture du bouton de commande ne peut recevoir qu'une image bitmap (extension de fichier .bmp)
"apacheblanc" a écrit dans le message de news:
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?
Désolé d'autres extension de fichiers images sont admises.
L'aide sur cette propriété énonce ceci :
" Spécifie l'image bitmap à afficher sur un objet."
L'usage du mot "bitmap" peut porter à confusion.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uNVl6ecAIHA.4984@TK2MSFTNGP06.phx.gbl...
De mémoire,la propriété "Picture du bouton de commande
ne peut recevoir qu'une image bitmap (extension de fichier .bmp)
"apacheblanc" <apacheblanc@discussions.microsoft.com> a écrit dans le message de news:
ADBC9FA5-8FD0-4E4C-B5B9-4DF065A3EB63@microsoft.com...
Bonjour,
J'ai fait un fichier avec des données et un volet Combox.
En face de ca, un bouton image sur Combox.
Les photos sont dans le meme dossier que mon fichier.
Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du
volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé:
Private Sub ComboBox1_Change()
On Error Resume Next
Dim img As String
Label1.Caption = ComboBox1.Value
img = ComboBox1.Value
'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg")
End Sub
Désolé d'autres extension de fichiers images sont admises.
L'aide sur cette propriété énonce ceci : " Spécifie l'image bitmap à afficher sur un objet."
L'usage du mot "bitmap" peut porter à confusion.
"MichDenis" a écrit dans le message de news:
De mémoire,la propriété "Picture du bouton de commande ne peut recevoir qu'une image bitmap (extension de fichier .bmp)
"apacheblanc" a écrit dans le message de news:
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?
apacheblanc
Il est genial ton fichier, mais encore plus complexe que le miens.. donc j'y arrive encore moins bien..
Je vais me remettre sur les FAQ, et poser les bonnes questions, car je l'avoue, j'y vais à taton !! Je reprend toutes les bases du debut.. et m'y remettrai apres !!
Merci JB.
Bonjour,
Répertoire = ThisWorkbook.Path If Dir(Répertoire & "" & Me.nom & ".jpg") <> "" Then Me.Image1.Picture = LoadPicture(Répertoire & "" & Me.nom & ".jpg") Else On Error Resume Next Me.Image1.Picture = LoadPicture(Répertoire & "" & "transparent.gif") End If
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?
Il est genial ton fichier, mais encore plus complexe que le miens.. donc j'y
arrive encore moins bien..
Je vais me remettre sur les FAQ, et poser les bonnes questions, car je
l'avoue, j'y vais à taton !! Je reprend toutes les bases du debut.. et m'y
remettrai apres !!
Merci JB.
Bonjour,
Répertoire = ThisWorkbook.Path
If Dir(Répertoire & "" & Me.nom & ".jpg") <> "" Then
Me.Image1.Picture = LoadPicture(Répertoire & "" & Me.nom &
".jpg")
Else
On Error Resume Next
Me.Image1.Picture = LoadPicture(Répertoire & "" &
"transparent.gif")
End If
On 28 sep, 12:04, apacheblanc <apachebl...@discussions.microsoft.com>
wrote:
Bonjour,
J'ai fait un fichier avec des données et un volet Combox.
En face de ca, un bouton image sur Combox.
Les photos sont dans le meme dossier que mon fichier.
Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du
volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé:
Private Sub ComboBox1_Change()
On Error Resume Next
Dim img As String
Label1.Caption = ComboBox1.Value
img = ComboBox1.Value
'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg")
End Sub
Il est genial ton fichier, mais encore plus complexe que le miens.. donc j'y arrive encore moins bien..
Je vais me remettre sur les FAQ, et poser les bonnes questions, car je l'avoue, j'y vais à taton !! Je reprend toutes les bases du debut.. et m'y remettrai apres !!
Merci JB.
Bonjour,
Répertoire = ThisWorkbook.Path If Dir(Répertoire & "" & Me.nom & ".jpg") <> "" Then Me.Image1.Picture = LoadPicture(Répertoire & "" & Me.nom & ".jpg") Else On Error Resume Next Me.Image1.Picture = LoadPicture(Répertoire & "" & "transparent.gif") End If
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image"&img&".jpg") End Sub
Il est genial ton fichier, mais encore plus complexe que le miens.. donc j'y arrive encore moins bien..
Je vais me remettre sur les FAQ, et poser les bonnes questions, car je l'avoue, j'y vais à taton !! Je reprend toutes les bases du debut.. et m'y remettrai apres !!
Merci JB.
Bonjour,
Répertoire = ThisWorkbook.Path If Dir(Répertoire & "" & Me.nom & ".jpg") <> "" Then Me.Image1.Picture = LoadPicture(Répertoire & "" & Me.nom & ".jpg") Else On Error Resume Next Me.Image1.Picture = LoadPicture(Répertoire & "" & "transparent.gif") End If
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image "&img&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?- Masquer le texte des messages p récédents -
On 28 sep, 14:58, apacheblanc <apachebl...@discussions.microsoft.com>
wrote:
Il est genial ton fichier, mais encore plus complexe que le miens.. donc j'y
arrive encore moins bien..
Je vais me remettre sur les FAQ, et poser les bonnes questions, car je
l'avoue, j'y vais à taton !! Je reprend toutes les bases du debut.. et m'y
remettrai apres !!
Merci JB.
Bonjour,
Répertoire = ThisWorkbook.Path
If Dir(Répertoire & "" & Me.nom & ".jpg") <> "" Then
Me.Image1.Picture = LoadPicture(Répertoire & "" & Me.nom &
".jpg")
Else
On Error Resume Next
Me.Image1.Picture = LoadPicture(Répertoire & "" &
"transparent.gif")
End If
On 28 sep, 12:04, apacheblanc <apachebl...@discussions.microsoft.com>
wrote:
Bonjour,
J'ai fait un fichier avec des données et un volet Combox.
En face de ca, un bouton image sur Combox.
Les photos sont dans le meme dossier que mon fichier.
Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du
volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé:
Private Sub ComboBox1_Change()
On Error Resume Next
Dim img As String
Label1.Caption = ComboBox1.Value
img = ComboBox1.Value
'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image "&img&".jpg")
End Sub
Un conseil sur ce que j'ai zappé ?- Masquer le texte des messages p récédents -
Il est genial ton fichier, mais encore plus complexe que le miens.. donc j'y arrive encore moins bien..
Je vais me remettre sur les FAQ, et poser les bonnes questions, car je l'avoue, j'y vais à taton !! Je reprend toutes les bases du debut.. et m'y remettrai apres !!
Merci JB.
Bonjour,
Répertoire = ThisWorkbook.Path If Dir(Répertoire & "" & Me.nom & ".jpg") <> "" Then Me.Image1.Picture = LoadPicture(Répertoire & "" & Me.nom & ".jpg") Else On Error Resume Next Me.Image1.Picture = LoadPicture(Répertoire & "" & "transparent.gif") End If
Bonjour, J'ai fait un fichier avec des données et un volet Combox. En face de ca, un bouton image sur Combox. Les photos sont dans le meme dossier que mon fichier. Je n'arrive pas a faire apparaitre la photo en rapport avec le nom du volet.Elles s'appel pareil (sans l'extension JPG).
La formule tapé: Private Sub ComboBox1_Change() On Error Resume Next Dim img As String Label1.Caption = ComboBox1.Value img = ComboBox1.Value 'Image1.Picture=LoadPicture(ActiveWorkbook.path&"mondossier_image "&img&".jpg") End Sub
Un conseil sur ce que j'ai zappé ?- Masquer le texte des messages p récédents -
