Copier le choix d'une liste déroulante vers un autre fichier.jpg
Résolu
HD62
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
HD62 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
HD62 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Bonjour
J'ai un formulaire vba avec une liste déroulante qui me permets selon le choix d'une référence de m'afficher la photo correspondante (sauvegarder dans un autre fichier .jpg). mon souhait est de créer un bouton qui copie l'image trouver dans un autre fichier positionner sur le bureau par exemple.
Pouvez vous m'aider
Private Sub ComboBox1_Change()
Dim MyImage As String
On Error GoTo Autre
ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1)
MyImage = ComboBox1.Value
Image1.Picture = LoadPicture("c:\IMG\" & MyImage & ".jpg")
Exit Sub
Autre:
Image1.Picture = LoadPicture("c:\IMG\dispo.jpg")
End Sub
J'ai un formulaire vba avec une liste déroulante qui me permets selon le choix d'une référence de m'afficher la photo correspondante (sauvegarder dans un autre fichier .jpg). mon souhait est de créer un bouton qui copie l'image trouver dans un autre fichier positionner sur le bureau par exemple.
Pouvez vous m'aider
Private Sub ComboBox1_Change()
Dim MyImage As String
On Error GoTo Autre
ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1)
MyImage = ComboBox1.Value
Image1.Picture = LoadPicture("c:\IMG\" & MyImage & ".jpg")
Exit Sub
Autre:
Image1.Picture = LoadPicture("c:\IMG\dispo.jpg")
End Sub
A voir également:
- Copier le choix d'une liste déroulante vers un autre fichier.jpg
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Comment copier une vidéo youtube - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
- Super copier - Télécharger - Gestion de fichiers
6 réponses
Je t'ai envoyé le lien car tu avais la solution!
Voici donc le code:
FileCopy strFichierSource, strFichierCible
Voici donc le code:
Dim strFichierSource As String Dim strFichierCible As String strFichierSource = "C:\chemin source fichier.jpg" strFichierCible = "C:\chemin destination fichier.jpg" Image1.Picture = LoadPicture(strFichierSource) FileCopy strFichierSource, strFichierCible
bj
Désolé débutant avant tout débogage sur cette ligne
Image1.Picture = LoadPicture(strFichierSource)
Private Sub CommandButton2_Click()
Dim strFichierSource As String
Dim strFichierCible As String
strFichierSource = "C:\IMG\"
strFichierCible = "C:\USERS\herve\DESKTOP\test\"
Image1.Picture = LoadPicture(strFichierSource)
FileCopy strFichierSource, strFichierCible
End Sub
merci @+
Désolé débutant avant tout débogage sur cette ligne
Image1.Picture = LoadPicture(strFichierSource)
Private Sub CommandButton2_Click()
Dim strFichierSource As String
Dim strFichierCible As String
strFichierSource = "C:\IMG\"
strFichierCible = "C:\USERS\herve\DESKTOP\test\"
Image1.Picture = LoadPicture(strFichierSource)
FileCopy strFichierSource, strFichierCible
End Sub
merci @+
Tu l'avais bien mis!
et voilà
C'est simple!!!!!
MyImage = ComboBox1.Value
Image1.Picture = LoadPicture("c:\IMG\" & MyImage & ".jpg")
et voilà
Dim strFichierSource As String Dim strFichierCible As String strFichierSource = "C:\IMG\" strFichierCible = "C:\USERS\herve\DESKTOP\test\" Image1.Picture = LoadPicture(strFichierSource & MyImage & ".jpg") FileCopy strFichierSource, strFichierCible & MyImage & ".jpg"
C'est simple!!!!!
Errata
comme ceci plutôt
comme ceci plutôt
Dim strFichierSource As String Dim strFichierCible As String strFichierSource = "C:\IMG\" strFichierCible = "C:\USERS\herve\DESKTOP\test\" Image1.Picture = LoadPicture(strFichierSource & MyImage & ".jpg") FileCopy strFichierSource & MyImage & ".jpg" , strFichierCible & MyImage & ".jpg"
re bj
j'ai copié collé ton dernier envoi le problème maintenant il m'affiche une erreur 53 "fichier introuvable" alors que les chemins fichier cible et source sont corrects
Merci @+
Ligne en défaut
Image1.Picture = LoadPicture(strFichierSource & MyImage & ".jpg").
ci-joint l'intégralité du programme
Private Sub ComboBox1_Change()
Dim MyImage As String
On Error GoTo Autre
MyImage = ComboBox1.Value
Image1.Picture = LoadPicture("c:\IMG\" & MyImage & ".jpg")
Exit Sub
Autre:
Image1.Picture = LoadPicture("c:\IMG\dispo.jpg")
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Dim strFichierSource As String
Dim strFichierCible As String
strFichierSource = "C:\IMG\"
strFichierCible = "C:\Users\hervé\Desktop\test\"
Image1.Picture = LoadPicture(strFichierSource & MyImage & ".jpg")
FileCopy strFichierSource & MyImage & ".jpg", strFichierCible & MyImage & ".jpg"
End Sub
Private Sub Image1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 6
ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1)
Next
End Sub
j'ai copié collé ton dernier envoi le problème maintenant il m'affiche une erreur 53 "fichier introuvable" alors que les chemins fichier cible et source sont corrects
Merci @+
Ligne en défaut
Image1.Picture = LoadPicture(strFichierSource & MyImage & ".jpg").
ci-joint l'intégralité du programme
Private Sub ComboBox1_Change()
Dim MyImage As String
On Error GoTo Autre
MyImage = ComboBox1.Value
Image1.Picture = LoadPicture("c:\IMG\" & MyImage & ".jpg")
Exit Sub
Autre:
Image1.Picture = LoadPicture("c:\IMG\dispo.jpg")
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Dim strFichierSource As String
Dim strFichierCible As String
strFichierSource = "C:\IMG\"
strFichierCible = "C:\Users\hervé\Desktop\test\"
Image1.Picture = LoadPicture(strFichierSource & MyImage & ".jpg")
FileCopy strFichierSource & MyImage & ".jpg", strFichierCible & MyImage & ".jpg"
End Sub
Private Sub Image1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 6
ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1)
Next
End Sub
Tu déclares ta variable MyImage dans une Sub. Si tu veux qu'elle soit reconnue dans les autres Sub, il faut la déclarer en dehors des Sub.apprends toi à démarrer tes codes avec Option Explicit qui te signalera tes erreursque tu pourras corriger et ensuite tu déclares toutes tes variables comme ceci:
voilà, bonne programmation
Option Explicit
Dim MyImage As String
Dim strFichierSource As String
Dim strFichierCible As String
Private Sub ComboBox1_Change()
On Error GoTo Autre
MyImage = ComboBox1.Value
Image1.Picture = LoadPicture("c:\IMG\" & MyImage & ".jpg")
Exit Sub
Autre:
Image1.Picture = LoadPicture("c:\IMG\dispo.jpg")
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
strFichierSource = "C:\IMG\"
strFichierCible = "C:\Users\hervé\Desktop\test\"
Image1.Picture = LoadPicture(strFichierSource & MyImage & ".jpg")
FileCopy strFichierSource & MyImage & ".jpg", strFichierCible & MyImage & ".jpg"
End Sub
Private Sub Image1_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 6
ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1)
Next
End Sub
voilà, bonne programmation
Bonsoir
C'est le pied, ça fonctionne merci de ton aide et de ta patience je prends note de tes conseils tu m'a résolu un problème qui avec mes maigres connaissances en vba me semblait réalisable, tu la résolu, merci encore.
Perso je bidouillle des macros sur Excel pour le travail avec "google est ton ami" ça fonctionne mais bon je me dit que j'ai pas les bases que me conseilles tu?
@+ HD
C'est le pied, ça fonctionne merci de ton aide et de ta patience je prends note de tes conseils tu m'a résolu un problème qui avec mes maigres connaissances en vba me semblait réalisable, tu la résolu, merci encore.
Perso je bidouillle des macros sur Excel pour le travail avec "google est ton ami" ça fonctionne mais bon je me dit que j'ai pas les bases que me conseilles tu?
@+ HD
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
voici quelques sites de référence:
http://dj.joss.free.fr/index.htm
http://ericrenaud.free.fr/menubarre.htm
https://www.lecompagnon.info//vba-excel/vba_dialogues_et_formulaires.htm#.VP6VSOl0yUk
http://gerard.g.pagesperso-orange.fr/logexl_09.htm#mise_forme_cond
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ExportImage
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#exemples_vbs
ensuite tu as l'aide Excel en appuyant sur F1.
tu sélectionnes par exemple AddItem dans:
ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1)
et tu appuies sur F1 tu auras une aide sur ce terme.
Bonne journée
http://dj.joss.free.fr/index.htm
http://ericrenaud.free.fr/menubarre.htm
https://www.lecompagnon.info//vba-excel/vba_dialogues_et_formulaires.htm#.VP6VSOl0yUk
http://gerard.g.pagesperso-orange.fr/logexl_09.htm#mise_forme_cond
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ExportImage
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#exemples_vbs
ensuite tu as l'aide Excel en appuyant sur F1.
tu sélectionnes par exemple AddItem dans:
ComboBox1.AddItem Sheets("Feuil1").Cells(i, 1)
et tu appuies sur F1 tu auras une aide sur ce terme.
Bonne journée
Bj désolé pour ce temps de réponse
Merci pour tout ces liens j'en ferai bon usage .
J'ai une question tout de même sur un autre sujet.
Excel super outils, perso j'ai débuté au lycée avec Multiplan le tableur de l'époque ça fais un bail !!! .
Voici ma question.
Dans le cadre de mon travail (WMS interne à la société) je conçois des query sur as 400, j'arrive à les récupérer sur excel par le menu connections existantes enfin bref du dois connaître. Je sais qu'il est possible de faire la même chose dans l'autre sens c'est à dire qu'Excel va rechercher les infos désirées dans le WMS
click droit actualiser fonctionnant par interactions.
As tu des connaissances la dessus ou un super tuto.
Merci par avance
@ + HD
Merci pour tout ces liens j'en ferai bon usage .
J'ai une question tout de même sur un autre sujet.
Excel super outils, perso j'ai débuté au lycée avec Multiplan le tableur de l'époque ça fais un bail !!! .
Voici ma question.
Dans le cadre de mon travail (WMS interne à la société) je conçois des query sur as 400, j'arrive à les récupérer sur excel par le menu connections existantes enfin bref du dois connaître. Je sais qu'il est possible de faire la même chose dans l'autre sens c'est à dire qu'Excel va rechercher les infos désirées dans le WMS
click droit actualiser fonctionnant par interactions.
As tu des connaissances la dessus ou un super tuto.
Merci par avance
@ + HD
Désolé je ne connais pas WMS, j'ai juste trouvé cela. Si cela peut-être utile?
https://www.faq-logistique.com/WMS.htm
https://www.faq-logistique.com/WMS.htm
merci pour le lien, mais je suis sur un formulaire excel, je veux juste trouver le moyen de copier l'affichage photo d'un ComBobox sur mon UserForm vers un autre dossier.
@+