Enregistrer une photo

mohalesage Messages postés 162 Statut Membre -  
mohalesage Messages postés 162 Statut Membre -
Bonjour,

Je vous informe que je travaille sur VB6 ; avec Access 2007; avec ADO

je tente d'enregistrer une photo ( extension jpg ) importée d'un dossier de photo localisé sur le bureu, dans un autre Dossier appelé (DossPhoto) situé dans le dossier où se trouve la base des données.
Seulement ma tentation n'a pas réussie

mon code 

Private sub cmdImporter()

'la boite de dialogue est désigné par ImporterPhoto

'cmdImporter est le boutton de commande

'ImageM est le nom de la zone image

on error goto Oks:

ImporterPhoto.ShowOpen

ImageM=LoadPicture(ImporterPhoto.FileName)

Oks

end sub


le chemin du Dossier PhotoM est c:\Documents and Settings\User\Bureau\BDPersonnes\DossPhoto

Pour enregister cette photo ( je ne veux enregister le chemin mais la photo ) qui s'affiche sur ImageM, dans le dossier DossPhoto
je me suis trouvé bloqué au bout du couloir

Vos suggestions sont les bienvenues

et merci d'avance

8 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    cela revient a faire une copie de fichier d'un repertoire vers un autre.
    0
  2. mohalesage Messages postés 162 Statut Membre 1
     
    Bonjour

    merci pour votre réponse

    pour essayer, j'ai fais :

    ' Créer un bouton de commande nommé cmdSelection
    avec le code suivant : 

    sub Private_cmdSelection ()

    on error goto Oks:

    'Impoter est le nom de la boite de dialogue

    Impoter.ShowOpen

    'ImageM est le nom de la zone Image

    ImageM = LoadPicture(Importer.Filename)

    'CheminSource est declaré dans General  comme String

    CheminSource=Impoter.Filename

    Oks:

    end sub



    avec ce Code la photo s'affiche sur ImageM

    'Créer un Bouton de commade nommé cmdCopier
    avec le code suivant 

    sub Private_cmdCopier ()

    on error goto Oks:

    'CheminDestination est declaré dans General comme String

    CheminDestination = "C:\Documents and Settings\user\Bureau\AppliPers\DossPhoto"

    'Pour copier 

    CopyFile cheminSource , CheminDestination

    Oks:

    end sub


    avec ce code rien ne se copie dans le DossPhoto

    et si j'enleve

    on error goto Oks:

    Oks:

    le VB6 me renvoie le message

    " Impossible de trouver le chemin d'acces

    Arrivé à ce point je ne comprends rien

    Merci pour votre aide à trouver la solution
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    1/ manque le nom du fichier dans la destination:

    ex:
     CommonDialog1.FileTitle


    2/ CopyFile n'est pas pour du VB6.0 c'est FileCopy

    3/ importer ou impoter !!!!!!!!!!!!!!!!!!!!!!!!!!!!
    0
  4. mohalesage Messages postés 162 Statut Membre 1
     
    Re Bonjour

    pour le premier point , je n'ai pas bien compris
    à mon sens le nom du fichier dans la destination est ...\DossPhoto

    Pour le deuxième point, c'est erreur de ma part
    c'est FileCopy que j'ai utilisé

    pour le Troisième point c'est une erreur de frappe

    CheminSource = Importer.Filename

    Je continue à être bloqué
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      à mon sens le nom du fichier dans la destination est ...\DossPhoto
      Non c'est le chemin du dossier, le fichier c'est un .jpg ou autre que vous trouvez dans: 
      Importer.FileTitle
      0

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

    Posez votre question
  6. mohalesage Messages postés 162 Statut Membre 1
     
    Re Bonjour

    vous avez raison.
    avec importer.filetitle , le VB me donne le nom de la photo avec
    l'extension .jpg , car j'ai pu visualiser ce resultat par la création d'un label

    et j'ai ecris

    label1= importer.filetitle

    mon problème c'est comment écrire le code juste pour copier la photo
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re, 

      CheminDestination = "C:\Documents and Settings\user\Bureau\AppliPers\DossPhoto\" & Importer.filetitle
      0
  7. mohalesage Messages postés 162 Statut Membre 1
     
    Re Bonjour

    je suis toujours dans l'impass

    voilà mes codes 

    sub Private_cmdSelection ()

    on error goto Oks:

    'CommonDialogue est nommé ici " Importer"

    'zone réservée à l'image est nommé "ImageM"

    'CheminSource ( Declarée comme string ) est le chemin de l'origine de la Photo

    CheminSource=loadPicture(Importer.FileNme)

    'Variable ImagPhoto est déclarée dans Général comme Image

    ImagPhoto=Importer.FileTitle

    Oks

    end sub


    Sub Private_cmdCopier ()

    'CheminSource1 est declarée comme variable

    CheminSource1 = CheminSource & ImagPhoto

    'CheminDestination est déclarée comme String

    CheminDestination="C:\Documents and Settings\user\Bureau\AppliPers\DossPhoto" & ImagPhoto

    'Pour copier j'ai ce code

    FileCopy CheminSource1 , CheminDestination

    end sub


    Il me manque quelque chose que je n'arrive pas à déceler
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      regardez bien ce que j'ai ecrit ici f894009 - 9 juin 2015 à 16:32 vous trouverez
      0
  8. mohalesage Messages postés 162 Statut Membre 1
     
    Re Bonjour

    J'ai corrigé la CheminDestination comme vous me l'aviez suggérer. Mais toujours ce message "Chemin d'accès introuvable"

    Peut être problème de type. Je ne sais pas exactement
    0
  9. mohalesage Messages postés 162 Statut Membre 1
     
    Re

    Enfin, j'ai réussi ma tentative. Voilà mon code 

    Sub Private_cmdCopier ()

    on error resume next

    FileCopy CheminSource, "C:\Documents and Settings\user\Bureau\AppliPers\DossPhoto\" & Importer.FileTitle

    if Err then

    msgbox"Erreur"

    end if

    end sub


    Toute ma reconnaissance
    0