Enregistrer une photo

mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   -  
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

8 réponses

Réponse 1 / 8
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

cela revient a faire une copie de fichier d'un repertoire vers un autre.
0
Réponse 2 / 8
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
Réponse 3 / 8
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
Réponse 4 / 8
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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

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

Posez votre question
Réponse 5 / 8
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re, 

CheminDestination = "C:\Documents and Settings\user\Bureau\AppliPers\DossPhoto\" & Importer.filetitle
0
Réponse 6 / 8
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

regardez bien ce que j'ai ecrit ici f894009 - 9 juin 2015 à 16:32 vous trouverez
0
Réponse 7 / 8
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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
Réponse 8 / 8
mohalesage Messages postés 147 Date d'inscription   Statut Membre Dernière intervention   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