please help me

Question

bonjour 

je travail actuellement avec une machine qui prend des pieces en photo.
Le logiciel de cet appareil enregistre ces photos dans un dossier que je ne peux pas choisir et sous un nom que je ne peux pas choisir, du type :
"C1 date heure" ex: C1 _ 15/04/2008 _ 13h53minutes33secondes

je dois automatiser ceci pour obtenir un rapport prérempli avec la photo de la pièce en étude.
Pour ceci il faut que la dernière photo prise soit celle qui figure sur le nouveau rapport mais comment faire???

dans l'attente d'un coup de pouce...

Renfield · Answer

la date de modif des fichiers doit logiquement coïncider...

parcoures tous tes fichiers et mémorise le nom  /date+heure du fichier le plus récent... (bête algo Min/Max)

a la sortie de ta boucle, tu auras le nom du fichier le plus récent

tonito55 · Answer

oui la date coincide.
je n'ai que quelques notions en C et la je ne vois pas comment faire j'ecrie dans visual basic?
j'ai bien pensé à faire une boucle qui compare chaque date entre elle pour garder la plus recente photo mais je ne c'est pas la commande pour sortir puis comparer les dates.
j'ai également cherché sur internet une commande qui reprend toujours la dernière sauvegarde...en vain!
ensuite serai t'il possible d'insérer cette photo automatiquement dans un document word dans un cadre prévu à cet effet.
merci

Renfield · Answer

code nécessaire ici:

http://www.vbfrance.com/codes/SAUVEGARDE-LOCALE_46041.aspx

tonito55 · Answer

merci ça pourrai beaucoup m'aider mais je ne sais pas où retaper ce programme.
comment l'executer?

Renfield · Answer

dans VB2005 .... 
n'est-ce pas ce que tu utilises ?

(tu as posté dans la catégorie :  Thèmes / VB.NET et VB 2005 / ) ...

tonito55 · Answer

bah!j'ai excel 2003...

Renfield · Answer

ok, donc tu feras gaffe à la section que tu utilises, a l'avenir, j'espere...

utilises Dir$ et FileDateTime
ces deux fonctions doivent te permettre de trouver le fichier le plus récent...

tonito55 · Answer

oui dsl!
le programme précédent n'est donc plus valable?!
sinon le XML sur excel pourrait il m'aider?(je ne sais pas trop ce que c'est)

Renfield · Answer

non, le code ne pourra t'ete d'aucune utilité...
le XML non plus.

ne veux tu vraiment pas faire l'effort ? (je t'ai dit, Dir$ et FileDateTime)

Private Function GetLatestFile(ByVal vsFolder As String, Optional ByRef vsFilter As String = "*") As String
Dim sFileName As String
Dim dLatest As Date
    If Right$(vsFolder, 1) <> "" Then
        vsFolder = vsFolder & ""
    End If
    sFileName = Dir$(vsFolder & vsFilter)
    Do While LenB(sFileName)
        If LenB(GetLatestFile) = 0 Or dLatest < FileDateTime(vsFolder & sFileName) Then
            GetLatestFile = sFileName
            dLatest = FileDateTime(vsFolder & sFileName)
        End If
        sFileName = Dir$()
    Loop
End Function


tu lui donne le repertoire en question, un filtre éventuel et hop, il te renvoie le nom du fichier le plus récent

Renfield · Answer

code posté sur Codyx:

http://www.codyx.org/snippet_recuperer-nom-fichier-plus-recent_579.aspx

tonito55 · Answer

ce n'est pas un probleme d'effort!!!
on m'a demandé de faire quelque chose de ce gout la mais je ne connait rien et j'orai été incapable de faire ce que tu vien de poster.
c'est quoi un filtre?
le repertoire va bien au endroit "" ?
est que je peux imposer l'endroit où ma photo va apparaitre sur mon fichier word ou excel et en quelle taille?
merci beaucoup pour ta patience envers un gros noob

Renfield · Answer

ca cherche ou tu veux.
ca ajoute "" si besoin 
le filtre,  t'en occupe pas, c'est optionel (valeur par default: "*")
ca permet de dire *.jpg, par exemple, pour ne regarder que les jpg...

le fichier word, c'est encore une autre affaire.

tonito55 · Answer

ok pour le filtre.
je remplace bien \ par mon adresse?
quand je l'execute rien ne se passe...
qu'entends tu par une autre affaire?c'est compliqué?impossible?
lorsque ton programme va renvoyer le titre de la dernière photo par la suite je souhaiterais qu'il l'ouvre dans un cadre prévu a cet effet qui lui se situe dans un fichier word ou excel

Renfield · Answer

non, le repertoire est a spécifier dans les parametres d'appel de la fonction...

sFichier = GetLatestFile("C:\la	u\mets	onepertoire")

... si au moins un fichier existe...
If sFichier<>"" Then
... chargement de l'image "C:\la	u\mets	onepertoire" & sFichier
End If

tonito55 · Answer

ok je sui
mais j'ai une erreur: "attendu numero de ligne, ou etiquette ou instruction ou fin d'instruction" au niveau du chargement de l'image. j'ai essayé des trucs, en vain!
par la suite tu crois que je pourrai comme placer une sorte de lien qui insererait ma photo dans une case de excel?
tu a peux etre du travail?!
bon apétit

tonito55 · Answer

c'est bon j'arrive en ouvrant une msgbox il me donne bien la derniere photo.
je te remerci encore.
si tu pouvais maintenant me dire comment placer cette fameuse dernière image à sa place dans excel?

Renfield · Answer

"a sa place" euh, c'est quoi sa place ?

dans le classeur ? dans un UserForm ? ...

tonito55 · Answer

userform?
en gros imagine un CV et en haut à droite un cadre avec rien dedans mais c'est ici que la photo doit aller...
ou un document avec un emplacement photo entouré de texte la photo à placer est la dernière sauvegardée.(donc celle que me donne le prog précédent)

Là où ça se complique c'est qu'elle est plus grosse que le cadre qui lui est attribué...

je suis preneur de toutes possibilitées pouvant faire avancer ce programme...

Renfield · Answer

repose une nouvelle question, là, sinon, on dérive.

dit que tu cherches a charger une image perso dans un document word

Please help me

19 réponses

Votre réponse