USF charger une image et enregistrée

[creolia]

Bonsoir à tous

j'ai un dossier (diplome) qui comporte plusieur sous dossier nomée formation 1 à Formation71


je recherche une solution pour charger une images en .JPG présent dans C:le visualiser dans Image1 le renomer et l'enregistrée dans l'un des sous dossiers

comment pourais je faire pour y arrivée svp merci

à bientot

 

[jeanpierre]

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

 

[MuscatMimi]

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

 

[creolia]

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

 

[creolia]

Re : USF charger une image et enregistrée

Re bonsoir

j'ai trouver ceci

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

 

[Fred0o]

Re : USF charger une image et enregistrée

Bonsoir creolia,

Tu peux essayer en modifiant le code comme ceci :

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+

 

[creolia]

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

 

[creolia]

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

 

[MuscatMimi]

Re : USF charger une image et enregistrée

re creolia

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

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

 

[creolia]

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

 

[creolia]

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

 

[creolia]

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

 

[MuscatMimi]

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

 

[creolia]

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

 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