Probleme de refresh, existence d'un fichier crée

Question

Bonjour &#224; tous.
J'utilise un programme qui cr&#233;er un fichier dans un r&#233;pertoire temp pour qui le d&#233;place vers un autre repertoire de destination.


Voil&#224; le code :

             pathDestination = "cheminFichierDestionation.pdf"
            'calcul du chemin fichier dans le repertoire temporaire
            PDFFile = SetPDFPrinter & "rpt_Breakdowns.pdf"
            If Not fs.FileExists(pathDestination ) Then
               si le fichier n'existe pas dans le repertoire temporaire 
               If Not PdfCreated(PDFFile, Len("rpt_Breakdowns.pdf")) Then
                  'on attend jusqu'&#224; ce que le le fichier soit trouv&#233;
                  While Not PdfCreated(PDFFile, Len("rpt_Breakdowns.pdf"))
                   Wend
                   DoCmd.Close acReport, "rpt_Breakdowns", acSaveNo
                   Name PDFFile As path
                End If
            End If



' voil&#224; la fonction qui me permet de cr&#233;er mon fichier dans le r&#233;pertoire temporaire
Public Function PdfCreated(MyFile As String, Longu As Long) As Boolean
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    With Application.FileSearch
        .NewSearch
        .LookIn = fs.GetParentFolderName(fs.getabsolutepathname(MyFile))
        .SearchSubFolders = True
        .fileName = fs.GetFileName(MyFile)
        If .Execute() > 0 Then
            PdfCreated = True
        Else
            PdfCreated = False
        End If
    End With
End Function

Lorsque mon programme sort la boucle "While Not PdfCreated(PDFFile, Len("rpt_Breakdowns.pdf")), il plante en disant que le fichier n'existe pas, alors q'il vient de sortir ce cette boucle qui verifie justement l'existance de ce fichier.

Par contre, lorsque je fais tourner ce programme en mode debug, il ne plante pas. Cela se passe comme si il n'avait pas le temps de verifier l'existence du fichier en question lorque je l'ex&#233;cute normalement (sans debug). J'ai l'impression que l'orsque je l'ex&#233;cute en debug, puisque c'est manuel, &#231;a prend du temps et donc "il a le temps de voir que ce fichier existe. 
Je pense que c'est peutetre un souci de refresh dans l'explorer... 
Si quelqu'un pouvait m'aider, ce serait vraiment bien.
Merci par avance.

NHenry · Answer

Bonjour

Not fs.FileExists(pathDestination )
est true si pathDestination n'existe pas, y a pas un pb l&#224; ?

Il me semble que le param&#232;tre  Longu As Long  n'est pas utilis&#233;.

Met des ByVal quand tu passe des valeurs qui ne seront pas modifi&#233;es.

While Not PdfCreated(PDFFile, Len("rpt_Breakdowns.pdf"))
                   Wend

pr&#233;f&#232;re une boucle du genre :

do until PdfCreated(PDFFile, Len("rpt_Breakdowns.pdf"))
    DoEvents()
    Sleep(10) 'Voir les messages sur le forum &#224; propos de Sleep
loop

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_Prince Ali · Answer

Merci Henry ,

Not fs.FileExists(pathDestination )
est true si le fichier n'existe pas encore, y a pas de pb &#224; ce niveau l&#224;.

En fait, pour etre plus pr&#233;cis, la premi&#232;re utilisation de PdfCreated (dans If Not PdfCreated(PDFFile, Len("rpt_Breakdowns.pdf")) ) me renvoi "vrai" alors que le fichier pdf en question n'EXISTE PAS (j'ai bien verifi&#233; dans le bon r&#233;pertoire). Alors je le force &#224; "faux" &#224; la main pour pouvoir ex&#233;cuter la suite du programme.
A l'oppos&#233;, si le fichier existe, le r&#233;sultat du pemier appel de la fonction est "faux", il ne le voit pas.

Par contre, quand je change d'ordinateur, &#231;a fonctionne normalement.


Si quelqu'un y comprend quelque chose...
 
Merci d&#233;j&#224;.

NHenry · Answer

Bonjour


Pour am&#233;liorer cette partie du code :

    If Not PdfCreated(PDFFile, Len("rpt_Breakdowns.pdf"))

Tu peux virer le 2i&#232;me param&#232;tre celuici n'&#233;tant pas utilis&#233;.



Sinon, filesystemobject je ne connais pas &#224; fond.



&#233;tant actuellement (pendant les vacances) sur une connexion limit&#233; en
temps, je ne peux pas r&#233;pondre mieux. Je conserve le lien pour la
rentr&#233;e.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_Prince Ali · Answer

Bonjour Henry,

Merci pour tes r&#233;ponses.
Le probl&#232;me est rest&#233; le m&#234;me, &#224; savoir que le code ne marche pas sur un pc et quand je change d'ordinateur, &#231;a fonctionne.

C'est peutetre d&#251; &#224; la configuration du syst&#234;me mais l&#224; s'arretent mes comp&#233;tances.

NHenry · Answer

Bonjour

Regarde si ce n'est pas le scripting qui est altérer par exemple. Car si ton code ne marche pas uniquement sur une machine, c'est peut-être un problème de fichiers système.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_Prince Ali · Answer

Salut.

En fait, j'ai résolu le problème; j'ai honte de le dire, mais en faite le fichier existait bel est bien, mais il etait dans un sous repertoir! ( à cause de "SearchSubFolders = True
" dans PdfCreated() ).

En tous cas, tes conseils n'ont pas été vains, ils m'on appris des choses : l'histoire du 2eme paramètre dans PdfCreated(), le " ByVal " pour le paramètre aussi non modifié et le changeent du while en loop avec un sleep().

Merci du temps consacré, c'est sympa.

Probleme de refresh, existence d'un fichier crée

6 réponses

Discussions similaires