ouvrir les fichiers les plus recents copié dans un dossier

[midou_casa]

Bonjour tout le monde,

voilà je suis à mon premier message,j'ai un travail qui consiste extraire des info à partir des fichiers excel....j'ai navigué un peu ....je dirai que j'ai un peu reussi.
toutefois ,je dois mettre les info dans un nouveau fichiers excel,ces info vont se succeder l'une sous l'autre..MAIS dans l'ordre de succession ,ils doivent garder l'odre respecté dans le dossier.😱

 

[kjin]

Re : ouvrir les fichiers les plus recents copié dans un dossier

bonjour,
Soit, mais avec si peu d'info, quoi fait on ?!

Edit : non c'est ton 2eme message, le premier resté sans réponse pour la même raison d'ailleurs
A+
kjin

 

[midou_casa]

Re : ouvrir les fichiers les plus recents copié dans un dossier

merci kJIN d'avoir repondu,je m'explique,avec une macro VBA j'ouvre un à les fichier d'un dossier ,j'extrait les info puis le fichier est fermé et on ouvre celui qui suit.....mais dans l'ouverture de ces fichiers il ne repectent pas l'ordre des fichiers dans le dossier(contenant ces fichiers).

 

[mromain]

Re : ouvrir les fichiers les plus recents copié dans un dossier

bonjour midou_casa, kjin,

comment sont-ils triés (dans le dossier) ?
on peut par exemple, en VBA, faire un tri alphabétique des classeurs sélectionner avant de les ouvrir.

a+

 

[midou_casa]

Re : ouvrir les fichiers les plus recents copié dans un dossier

bjr mromain,moi je veux les trier selon le premier fichiers copier(et non pas créer) dans le dossier(contenant ces meme fichiers)...j'avoue que c'est delicat comme cas!!!!

 

[mromain]

Re : ouvrir les fichiers les plus recents copié dans un dossier

re bonjour,

voici une macro qui trie un tableau de fichiers (leur path) en fonction de leur date de création.
rque: chez moi, lorsque je copier un fichier, la date de création de la copie est bien modifiée (à aujourd'hui)

Sub TrierParDateCreation(fichiers)
Dim myFso As Object, myFile As Object, tabDateCreation() As Date
Dim i As Integer, j As Integer, tmpDate As Date, tmpFichier As String
ReDim TrierParDateCreation(LBound(fichiers) To UBound(fichiers))
ReDim tabDateCreation(LBound(fichiers) To UBound(fichiers))
Set myFso = CreateObject("Scripting.FileSystemObject")
For i = LBound(fichiers) To UBound(fichiers)
    Set myFile = myFso.GetFile(fichiers(i))
    tabDateCreation(i) = myFile.DateCreated
Next i
For i = LBound(fichiers) To UBound(fichiers)
    For j = LBound(fichiers) To UBound(fichiers) - 1
        If tabDateCreation(j) > tabDateCreation(j + 1) Then
            tmpDate = tabDateCreation(j + 1)
            tmpFichier = fichiers(j + 1)
            tabDateCreation(j + 1) = tabDateCreation(j)
            fichiers(j + 1) = fichiers(j)
            tabDateCreation(j) = tmpDate
            fichiers(j) = tmpFichier
        End If
    Next j
Next i
End Sub

ce qui donnerai une macro du genre :

Sub test()
Dim fichiers
fichiers = Application.GetOpenFilename("Fichiers Excel, *.xls;*.xlsx;*.xlsm", , "Sélectionner les fichiers", , True)
'ici, les fichiers ne sont pas triés par date de création
TrierParDateCreation fichiers
'ici, les fichiers sont triés par date de création
'For i = LBound(fichiers) To UBound(fichiers)
'    Workbooks.Open fichier(i)
'    ...
'    ...
'Next i
End Sub

a+

 

[midou_casa]

Re : ouvrir les fichiers les plus recents copié dans un dossier

ok mromain,merci bien ,je tenterai ce bout de code et je vous donnerai des news...

a+