Bonjour
excusez moi de vous deranger mais jai un petit probleme
voila jaimerais avoir une macro pour pouvoir aller chercher un fichier
enregistrer dans mes document, les fichiers sont dates jaimerais donc
recuperer le dernier fichier en date
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
ici , le répertoire s'appelle C:tototata et le critère est la date de dernière modification du fichier.
Set fso = CreateObject("Scripting.FileSystemObject") Set fold = fso.GetFolder("C:tototata") lastadate = 0 For Each fileinfolder In fold.Files If CLng(fileinfolder.DateLastModified) >= lastadate Then Filename = fileinfolder.Name Next Workbooks.Open fold & "" & Filename
A+
wrote:
Bonjour excusez moi de vous deranger mais jai un petit probleme
voila jaimerais avoir une macro pour pouvoir aller chercher un fichier enregistrer dans mes document, les fichiers sont dates jaimerais donc recuperer le dernier fichier en date
merci davance
cdt
Bonjour,
ici , le répertoire s'appelle C:tototata et le critère est la date
de dernière modification du fichier.
Set fso = CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder("C:tototata")
lastadate = 0
For Each fileinfolder In fold.Files
If CLng(fileinfolder.DateLastModified) >= lastadate Then Filename =
fileinfolder.Name
Next
Workbooks.Open fold & "" & Filename
A+
yassin.essiassi@gmail.com wrote:
Bonjour
excusez moi de vous deranger mais jai un petit probleme
voila jaimerais avoir une macro pour pouvoir aller chercher un fichier
enregistrer dans mes document, les fichiers sont dates jaimerais donc
recuperer le dernier fichier en date
ici , le répertoire s'appelle C:tototata et le critère est la date de dernière modification du fichier.
Set fso = CreateObject("Scripting.FileSystemObject") Set fold = fso.GetFolder("C:tototata") lastadate = 0 For Each fileinfolder In fold.Files If CLng(fileinfolder.DateLastModified) >= lastadate Then Filename = fileinfolder.Name Next Workbooks.Open fold & "" & Filename
A+
wrote:
Bonjour excusez moi de vous deranger mais jai un petit probleme
voila jaimerais avoir une macro pour pouvoir aller chercher un fichier enregistrer dans mes document, les fichiers sont dates jaimerais donc recuperer le dernier fichier en date
merci davance
cdt
anonymousA
Oups, c'est mieux comme cà
Set fso = CreateObject("Scripting.FileSystemObject") Set fold = fso.GetFolder("E:DONNEESkig985MES DOCUMENTSPersonnelINTERNETINTERNET EXCEL et ACCESSFICHIERS XLS vers XLA et FICHIERS D AIDE") lastadate = 0 For Each fileinfolder In fold.Files If CLng(fileinfolder.DateLastModified) >= lastadate Then lastadate = CLng(fileinfolder.DateLastModified) Filename = fileinfolder.Name End If Next Workbooks.Open fold & "" & Filename
A+
anonymousA wrote:
Bonjour,
ici , le répertoire s'appelle C:tototata et le critère est la date de dernière modification du fichier.
Set fso = CreateObject("Scripting.FileSystemObject") Set fold = fso.GetFolder("C:tototata") lastadate = 0 For Each fileinfolder In fold.Files If CLng(fileinfolder.DateLastModified) >= lastadate Then Filename = fileinfolder.Name Next Workbooks.Open fold & "" & Filename
A+
wrote:
Bonjour excusez moi de vous deranger mais jai un petit probleme
voila jaimerais avoir une macro pour pouvoir aller chercher un fichier enregistrer dans mes document, les fichiers sont dates jaimerais donc recuperer le dernier fichier en date
merci davance
cdt
Oups, c'est mieux comme cà
Set fso = CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder("E:DONNEESkig985MES
DOCUMENTSPersonnelINTERNETINTERNET EXCEL et ACCESSFICHIERS XLS vers
XLA et FICHIERS D AIDE")
lastadate = 0
For Each fileinfolder In fold.Files
If CLng(fileinfolder.DateLastModified) >= lastadate Then
lastadate = CLng(fileinfolder.DateLastModified)
Filename = fileinfolder.Name
End If
Next
Workbooks.Open fold & "" & Filename
A+
anonymousA wrote:
Bonjour,
ici , le répertoire s'appelle C:tototata et le critère est la date
de dernière modification du fichier.
Set fso = CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder("C:tototata")
lastadate = 0
For Each fileinfolder In fold.Files
If CLng(fileinfolder.DateLastModified) >= lastadate Then Filename =
fileinfolder.Name
Next
Workbooks.Open fold & "" & Filename
A+
yassin.essiassi@gmail.com wrote:
Bonjour
excusez moi de vous deranger mais jai un petit probleme
voila jaimerais avoir une macro pour pouvoir aller chercher un fichier
enregistrer dans mes document, les fichiers sont dates jaimerais donc
recuperer le dernier fichier en date
Set fso = CreateObject("Scripting.FileSystemObject") Set fold = fso.GetFolder("E:DONNEESkig985MES DOCUMENTSPersonnelINTERNETINTERNET EXCEL et ACCESSFICHIERS XLS vers XLA et FICHIERS D AIDE") lastadate = 0 For Each fileinfolder In fold.Files If CLng(fileinfolder.DateLastModified) >= lastadate Then lastadate = CLng(fileinfolder.DateLastModified) Filename = fileinfolder.Name End If Next Workbooks.Open fold & "" & Filename
A+
anonymousA wrote:
Bonjour,
ici , le répertoire s'appelle C:tototata et le critère est la date de dernière modification du fichier.
Set fso = CreateObject("Scripting.FileSystemObject") Set fold = fso.GetFolder("C:tototata") lastadate = 0 For Each fileinfolder In fold.Files If CLng(fileinfolder.DateLastModified) >= lastadate Then Filename = fileinfolder.Name Next Workbooks.Open fold & "" & Filename
A+
wrote:
Bonjour excusez moi de vous deranger mais jai un petit probleme
voila jaimerais avoir une macro pour pouvoir aller chercher un fichier enregistrer dans mes document, les fichiers sont dates jaimerais donc recuperer le dernier fichier en date
