Discussion :

[baryn]

Bonjour à tous !

J'ai récupéré un formulaire tout fait de scan du magique Robert Simard, ce grand monsieur, que je souhaiterais adapté à ma situation.

Pour faire bref, le formulaire récupère les périphériques capables de capturer des images, on selectionne, on scan, et ensuite il y a un bouton "enregistrer sous..." qui convertit du .bmp en .jpg, et ouvre une fenêtre pour que l'on détermine le chemin du fichier à enregistrer.

Ce que j'aimerai faire, c'est que l'enregistrement se fasse automatiquement dans un dossier (à définir), que l'on crée un sous dossier nommé avec les variables "Nom" et "Prénom" extraites du formulaire en question, et ensuite que le fichier s'enregistre avec pour nom : "(la date du jour)_01.jpg" (01 étant un numéro auto distribué pour éviter l'écrasement en cas de plusieurs fiches à la même date)

Pensez vous que cela est possible ?

Merci d'avance pour l'attention que vous porterez à mon message.

Cyril

[emulamateur]

Sauf erreur, les scanners sous driver WIA ne sont pas reconnus, seulement ceux en mode twain, non ?

[baryn]

Et bien euh, bonne question... Le fichier test fourni dans l'archive s'appelle EzTwain, surement un indice :p Mais en tout cas ca me suffit pour le moment, mon scanner étant détecté et fonctionnel. C'est un frein à ce que je souhaite faire ?

[Dolphy35]

Salut,

Il suffit de modifier la partie du code qui enregistre. Là où tu ouvre la boîte de dialogue tu remplace par le chemin souhaité.

Pour la création du fichier tu peux utiliser mkDir, en testant bien si il n’existe pas avant.

@+

[baryn]

Merci pour ta réponse.

Donc d'après toi, je devrais modifier cette partie ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim SelectSaveFile As String
SelectSaveFile = GetOpenFile("c:\", "Enregistrer l'image")

Et y intégrer mon chemin de manière fixe.

Par contre, je ne vois pas comment récupérer mes variables issues de ma table concernant le nom et prenom... Avec OpenArg ?

Je vais aller chercher quelques tutos sur la fonction mkdir egalement ^^

[Dolphy35]

Salut,

Tout à fait. il suffit de charger le chemin dans cette variable : SelectSaveFile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SelectSaveFile = "C:\DossierVoulu\"

Ensuite il faut que tu teste si le chemin existe, voici une fonction que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function RepExiste(strPath As String) As Boolean
'---------------------------------------------------------------------------------------
' Procédure : RepExiste
' Auteur    : Morgan
' Date      : 07/11/2010
' Détail    : teste l'existence d'un dossier
'---------------------------------------------------------------------------------------
'
' déclarations des variables
    Dim strName As String
 
    ' initialisation du retour de la fonction
    RepExiste = False
 
    ' test de l'existence du dossier
    If (strName = Dir(strPath, vbDirectory)) = vbEmpty Then
        ' le dossier existe
        RepExiste = True
    Else
        ' le dossier n'existe pas
        RepExiste = False
    End If
 
    ' sortie de la fonction
    Exit Function
 
End Function

Tu colle ce code dans un module et pour l'appeler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RepExiste(SelectSaveFile)

Cela te renvoi True si il existe et False si non.

Maintenant tu dois construire ton chemin, si les infos sont contenues dans une table tu peux récupérer les informations avec les fonctions de domaines DlookUp() si la base est en locale et non utilisée en réseau sinon regarde le tuto de Tofalu Cours sur la DAO

@+

[baryn]

Super, merci beaucoup pour cette base solide.

Maintenant il faut que je gère l'appel du Nom et Prénom correspondant, que je ne pourrais récupérer avec Dlookup je pense, puisque c'est pasl un champ fixe que je cherche, mais le champ correspondant à la fiche ouverte au moment du scan (je ne sais pas si j'ai été bien clair..)

Par ailleurs, est-il possible de récupérer le champ date de naissance et de l'inclure sans les "/" au nom de fichier à enregistrer ?

Cela donnerait :

Chaque image sera enregistrées dans un dossier commun, contenant un sous dossier par patient formatés comme cela : "Nom_Prenom_01011900 (la date de naissance étant ici le 01/01/1900).

Ensuite, à l'intérieur de chaque dossier, on sauvegarde chaque fichier image par Nom_Prenom_01012000 (01/01/2000 etant la date de la visite)

Je m'en melange les pinceaux...

[Chrysostome]

Bonjour, j'aimerais savoir où tu as trouvé la source du "magique Robert Simard". Il y a longtemps, j'avais développé sous Access XP une appli avec eztw32.dll. Mais hélas, lors du passage vers Windows 7 Family, il n'a plus voulu fonctionner.
Si vous aviez quelques pistes à me communiquer, ce serait formidable pour moi qui approche à grands pas de ma retraite, et n'ai pas trop envie de me replonger dans de la programmation "profonde"!
Merci de vos réponses éclairées.

[Christophe]

Chrysostome,

Si ça marche sur 7 c'est que la dll ne doit pas être présente ou qu'elle est incompatible. Tu es en 32 ou 64 bits ?

Sinon essayes en mode compatibilité XP.