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

Résolu/Fermé

HD62 Messages postés 7 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 15 mars 2015 - 3 mars 2015 à 18:06
HD62 Messages postés 7 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 15 mars 2015 - 15 mars 2015 à 19:53

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

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
Copier une vidéo youtube - Guide
Windows 7 vers windows 10 - Guide
Super copier - Télécharger - Gestion de fichiers

6 réponses

Réponse 1 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
4 mars 2015 à 08:56

Bonjour,

Voir ceci:

https://grenier.self-access.com/access/formulaires/formulaires-images/banque-dimages-copier-les-images-dans-un-dossier/

HD62 Messages postés 7 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 15 mars 2015
8 mars 2015 à 00:05

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.
@+

Réponse 2 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
8 mars 2015 à 08:02

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

HD62 Messages postés 7 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 15 mars 2015
8 mars 2015 à 12:27

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 @+

Réponse 3 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
8 mars 2015 à 13:33

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!!!!!

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
8 mars 2015 à 13:35

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"

HD62 Messages postés 7 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 15 mars 2015 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
8 mars 2015 à 18:49

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

Réponse 4 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
9 mars 2015 à 07:51

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

HD62 Messages postés 7 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 15 mars 2015
9 mars 2015 à 22:23

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
10 mars 2015 à 08:05

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

HD62 Messages postés 7 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 15 mars 2015
11 mars 2015 à 17:34

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

Réponse 6 / 6

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 mars 2015 à 07:57

Désolé je ne connais pas WMS, j'ai juste trouvé cela. Si cela peut-être utile?

https://www.faq-logistique.com/WMS.htm

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
12 mars 2015 à 14:48

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

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

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

Dessiner avec son clavier et avec des lettres

Suppression listes déroulantes

liste de noms par ordre alphabétique

Formule magique excel??????

Discussions similaires

Newsletters