Passage de variable

Résolu
Signaler
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 mai 2009
-
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 mai 2009
-
J'ai un petit peu de mal en ce qui concerne le passage d'une variable qui contiend la date de la dernière modification de l'un de mes fichiers.
Mon problème ést très simple à comprendre, j'ai mis en rouge ce qui je n'arrive pas à faire.

'J'ai tanter de mettre File As Object ou AS Variant mais je dois mal fair quelque chose rien n'avance

 
  
 
Function Anterieur(        ) As Boolean
.
.
.

 Dim Files

    Set Files = folder.Files
   
    Path2 = Me.var2.Text
   
    For Each File In Files
   
    If File.DateLastModified > fichier.DateLastModified Then
     
     
      Anterieur = True

Et ce que j'ai mis en rouge correspond à ce que j'aimerai fair passer en parametre de cette fonction

Mais mon soucie c'est que la variable que je veux mettre dans le anterieur(var) a besoin d'un type et je ne sais pas quoi mettre

Function FindLastFile(Path As String)
.
.
.

 Dim Files
    Set Files = folder.Files
    Dim j
    j = 0
   
    For Each File In Files
   
   
         If existe(File.Name) = True Then
           If Anterieur(               ) = True Then
                Set oFSO = CreateObject("Scripting.FileSystemObject")
                oFl.Copy "C:\Documents and Settings\FSD.DOMMIND\Bureau\Anterieurs" & File.Name, True
            End If
         End If
Next

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
DateLastModified est de type Date

Donc essaie

'Function Anterieur(pDate As Long) As Boolean
Function Anterieur(pDate As Date) As Boolean
Dim Files

    Set Files =  folder.Files
    Path2 = Me.var2.Text
    For Each File In Files
   
         If File.DateLastModified > pDate Then 
                 Anterieur = True
     '...., ----
(Coloration syntaxique automatique par Kenji)

<hr size ="2" width="100%" />@+: Ju£i?n
Pensez: Réponse
Messages postés
79
Date d'inscription
mercredi 30 août 2006
Statut
Membre
Dernière intervention
15 mai 2009

C'est passé super merci, j'ai un autre petit problème mais celui la je vais essayer de me forcer un peu  même si la journée se fait sentir ^^