USF charger une image et enregistrée

jeanpierre

Nous a quitté

Repose en paix

• 28 Mars 2010

• #2

Re : USF charger une image et enregistrée

Bonjour creolia,

Sujet très souvent abordé, donc une petite RECHERCHE (en haut à droite sous ton pseudo) doit solutionner....

Déjà les cinq discussions similaires en bas de ce fil....

Bonne fin d'après-midi.

Jean-Pierre

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 28 Mars 2010

• #3

Re : USF charger une image et enregistrée

Bonjour creolia

Je te joint ce petit fichier issu du site suivant
VeriTi V 3, le site des amis d'Excel et OOo

pas trop le temps de te faire le Bouton "Enregistrer Les Images" dans un Dossier Précis

J'espére que cela t'avancera un peu, a toi de l'adapter a tes besoins

Cordialement

Oups, bonjour jeanPierre, réponse simultannée a ce fil

 

Pièces jointes

• Nouveau Dossier compressé.zip

  98.2 KB · Affichages: 39
• Nouveau Dossier compressé.zip

  98.2 KB · Affichages: 38
• Nouveau Dossier compressé.zip

  98.2 KB · Affichages: 36

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 28 Mars 2010

• #4

Re : USF charger une image et enregistrée

Merci jeanpierre pour ta réponse mais t'inquiete avant de poser la question je recherche et meme apres l'avoir poser je recherche

charger je sais fort une image je sais fort bien le faire grace à la recherche mais renomer et enregistré j'ai beau chercher sur google et ici meme grace à rechercher tu sais juste en dessous de mon pseudo et ben niet


en tous cas grand merci à vaucluse immo pour ton fichier sa repond effectivement en partis à mon probleme

à bientot je continue à chercher pour enregistré à un endroit précis

dans rechercher en dessous de mon pseudo à bientot

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 28 Mars 2010

• #5

Re : USF charger une image et enregistrée

Re bonsoir

j'ai trouver ceci

Code:

Dim NomImage As String, Reponse
  If TextBoxNom.Text = "" Then Exit Sub
  NomImage = ThisWorkbook.Path & "\" & TextBoxNom & ".bmp"
  If Dir(NomImage) <> "" Then
    Reponse = MsgBox(TextBoxNom & ".bmp" & " existe déjà. L'écraser ?", _
      vbYesNo + vbCritical, "Sauvegarde")
    If Reponse = vbNo Then Exit Sub
  End If
  SavePicture Image1.Picture, NomImage

sa fonctionne mais il m'enregistre que dans la racine du classeur

comment changer ceci pour le mettre dans le dossier c:/image

et me laisser choisir ensuite le sous dossier merci pour votre aide

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 28 Mars 2010

• #6

Re : USF charger une image et enregistrée

Bonsoir creolia,

Tu peux essayer en modifiant le code comme ceci :

Code:

Dim NomImage As String, Reponse
  If TextBoxNom.Text = "" Then Exit Sub
  NomImage = [COLOR=red][B]"C:\image\"[/B][/COLOR] & TextBoxNom & ".bmp"
  If Dir(NomImage) <> "" Then
    Reponse = MsgBox(TextBoxNom & ".bmp" & " existe déjà. L'écraser ?", _
      vbYesNo + vbCritical, "Sauvegarde")
    If Reponse = vbNo Then Exit Sub
  End If
  SavePicture Image1.Picture, NomImage

A+

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 28 Mars 2010

• #7

Re : USF charger une image et enregistrée

Fred0o

merci pour ta reponse

malheureusement sa fonctionne pas ni il me propose le dossier ni il enregistre

merci tous de meme

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 28 Mars 2010

• #8

Re : USF charger une image et enregistrée

j'ai adapter le fichier de immo vaucluse

en ajoutant le bouton enregistrée

voir ficchier joint

 

Pièces jointes

• Afficher Images dans UserForm.xls

  37.5 KB · Affichages: 159
• Afficher Images dans UserForm.xls

  37.5 KB · Affichages: 159
• Afficher Images dans UserForm.xls

  37.5 KB · Affichages: 162

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 28 Mars 2010

• #9

Re : USF charger une image et enregistrée

re creolia

tiens je viens de te faire le Btn sauvegarder Image avec le code
freedo

Code:

Private Sub CommandButton1_Click()
Dim NomImage As String, Reponse
  If TextBNomImage.Text = "" Then Exit Sub
 'NomImage = "F:\Mes Documents Cat\Formation logiciels\Excel\Afficher Images & Afficher depuis Dossier Images\" & TextBNomImage & ".jpg"
    NomImage = ThisWorkbook.Path & "\" & TextBNomImage & ".jpg"'<<==Change le Nom du chemin éventullement

  If Dir(NomImage) <> "" Then
    Reponse = MsgBox(TextBoxNom & ".bmp" & " existe déjà. L'écraser ?", _
      vbYesNo + vbCritical, "Sauvegarde")
    If Reponse = vbNo Then Exit Sub
  End If
  SavePicture ImgAffichee.Picture, NomImage
End Sub

tes photos seront placées dans le dossier de ton fichier
ou alors change de Chemin
a plus

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 28 Mars 2010

• #10

Re : USF charger une image et enregistrée

merci pour ton aide mais pourrais je choisir dans quelle sous dossier je sauvegarderais

comme je l'ai précisez le chemin fixe c'est jusqu'à /DIPLOME/ aprés il faut que je puisse choisir entre formation1 ou frormation2 ou ect...

merci pour ta réponse

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 29 Mars 2010

• #11

Re : USF charger une image et enregistrée

re bonsoir bon j'ai tester et je pige rien de la modification

ou dois je changer le chemin d'aces

enfin voila je suis débutant et la je comprend pas trop

merci d'avance

 

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 29 Mars 2010

• #12

Re : USF charger une image et enregistrée

re j'ai évoluer il me copie bien dans l'adresse mais il va tous me les copier à cette endroit il me reste plus qu'a trouver comment faire pour que je choisisses

dans quelle sous dossier copier

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 29 Mars 2010

• #13

Re : USF charger une image et enregistrée

salut creolia

Tu dis ,je ne comprends rien, essai de comprendre les Codes que l'on te fourni
tu sais j'ai commencé comme toi, en sachant rien
même maintenent, j'en apprends toujours ,aprés déja 4 années
J'ai travailler pour toi
Voici de quoi te satisfaire
Bonne journée
Cordialement

 

Pièces jointes

• Enregistrer sous & Création d'un Dossier.xls

  42.5 KB · Affichages: 63

Dernière édition: 29 Mars 2010

Vote positif 0 Vote négatif

C

creolia

XLDnaute Impliqué

• 29 Mars 2010

• #14

Re : USF charger une image et enregistrée

Bonjour vaucluse IMMO

merci pour ton fichier mais c'est bon j'ai essayer comprendre le code donnée précédemment

et j'ai meme reussi à faire mieux que mes attente

pour le chemin d'accée j'ai fais ceci

Code:

 NomImage = "D:\a\" & ComboBox1 & "\" & TextBNomImage & ".jpg"

combobox1 me donneras le nom du sous répertoire pour sélectionnée quelle formation choisir

et même réussi à adapter le renommer automatiquement par le candidat concernée

en fais un vrais petit bijoux grâce a vos conseil et à ma compréhension

merci encore et à bientôt

 

Vote positif 0 Vote négatif