Salut tout le monde,
est-ce que quelqu'un peut me dire ce qui ne va pas dans le code ci-dessous, en bref je recherche le fichier le plus recent dans un repertoire puis j'essaie de recuperer des infos contenues dans ce fichier. Je bloque a la derniere ligne, je pense que l'avant derniere ligne de code est fausse. J'ai cherche dans plusieurs anciens posts du forum mais je n'ai pas retrouve de methode similaire a celle que j'utilise, je devine qu'elle n'est pas la plus appropriee
Sub comment()
Dim blah As FileSearch
Dim directory As String
Dim i As Integer, iNewest As Integer
directory = "S:\Portfolio Execution\SWP\House account analysis"
Set blah = Application.FileSearch
With Application.FileSearch
.NewSearch
.Filename = "*.*"
.LookIn = directory
.LastModified = msoLastModifiedAnyTime
.Execute msoSortByLastModified, msoSortOrderAscending
End With
If blah.FoundFiles.Count > 0 Then MsgBox blah.FoundFiles(1)
previouscommentsfile = blah.FoundFiles(1)
MsgBox previouscommentsfile
lastline3 = Application.Workbooks(previouscommentsfile).Sheets("output").Range("A65536").End(xlUp).Row
MsgBox lastline3
est-ce que quelqu'un peut me dire ce qui ne va pas dans le code ci-dessous, en bref je recherche le fichier le plus recent dans un repertoire puis j'essaie de recuperer des infos contenues dans ce fichier. Je bloque a la derniere ligne, je pense que l'avant derniere ligne de code est fausse. J'ai cherche dans plusieurs anciens posts du forum mais je n'ai pas retrouve de methode similaire a celle que j'utilise, je devine qu'elle n'est pas la plus appropriee
Sub comment()
Dim blah As FileSearch
Dim directory As String
Dim i As Integer, iNewest As Integer
directory = "S:\Portfolio Execution\SWP\House account analysis"
Set blah = Application.FileSearch
With Application.FileSearch
.NewSearch
.Filename = "*.*"
.LookIn = directory
.LastModified = msoLastModifiedAnyTime
.Execute msoSortByLastModified, msoSortOrderAscending
End With
If blah.FoundFiles.Count > 0 Then MsgBox blah.FoundFiles(1)
previouscommentsfile = blah.FoundFiles(1)
MsgBox previouscommentsfile
lastline3 = Application.Workbooks(previouscommentsfile).Sheets("output").Range("A65536").End(xlUp).Row
MsgBox lastline3