Copier le choix d'une liste déroulante vers un autre fichier.jpg

[Résolu/Fermé]
Signaler
Messages postés
7
Date d'inscription
mardi 3 mars 2015
Statut
Membre
Dernière intervention
15 mars 2015
-
Messages postés
7
Date d'inscription
mardi 3 mars 2015
Statut
Membre
Dernière intervention
15 mars 2015
-
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

6 réponses

Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Messages postés
7
Date d'inscription
mardi 3 mars 2015
Statut
Membre
Dernière intervention
15 mars 2015

Bj
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.
@+
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Je t'ai envoyé le lien car tu avais la solution!

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

Messages postés
7
Date d'inscription
mardi 3 mars 2015
Statut
Membre
Dernière intervention
15 mars 2015

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 @+
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Tu l'avais bien mis!

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!!!!!
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Errata
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"
Messages postés
7
Date d'inscription
mardi 3 mars 2015
Statut
Membre
Dernière intervention
15 mars 2015
>
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021

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
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
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:

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
Messages postés
7
Date d'inscription
mardi 3 mars 2015
Statut
Membre
Dernière intervention
15 mars 2015

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
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
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

Messages postés
7
Date d'inscription
mardi 3 mars 2015
Statut
Membre
Dernière intervention
15 mars 2015

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
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Désolé je ne connais pas WMS, j'ai juste trouvé cela. Si cela peut-être utile?

https://www.faq-logistique.com/WMS.htm
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
J'ai trouvé aussi cela il y a un fichier à télécharger pour exporter à partir de WMS

http://edndoc.esri.com/arcobjects/9.0/Samples/Metadata/Exporters/WMS_Exporter/WMS_EXPORTER.htm

@+ Le Pivert
Messages postés
7
Date d'inscription
mardi 3 mars 2015
Statut
Membre
Dernière intervention
15 mars 2015
>
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021

merci pour les liens je poursuis mes recherches de mon côté
HD @+