chris6999
XLDnaute Impliqué
Bonsoir
Je fais encore appel à votre aide car je n'ai pas eu de succès dans mon dernier post et j'espère avoir plus de chance ce soir.
Je cherche à afficher un message d'alerte (et sortie de la macro) lorsque la système ne parvient pas à trouver le chemin ou le fichier recherché.
Je précise que le chemin est récupéré dans la cellule F9 de ma feuille active et que le fichier recherché est identifié à partir des 8 premiers caractères.
Merci d'avance pour votre aide
Cordialement
Dim ChercheFichier As FileSearch
Dim Chemin As String
Dim I As Integer
Dim debut
Dim ouvr
Chemin = ThisWorkbook.Sheets("MENU").Range("F9").Value
'dossier = ThisWorkbook.Sheets("MENU").Range("l9").Value
'On Error Resume Next
Set ChercheFichier = Application.FileSearch
Chemin = ThisWorkbook.Sheets("MENU").Range("F9").Value
With ChercheFichier
.NewSearch
.Filename = "*.txt"
.LookIn = Chemin
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For I = 1 To .Count
debut = Left(Dir(.Item(I)), 8)
If debut = "toto.t00" Then
Workbooks.Open (Chemin & Dir(.Item(I)))
Cells.SpecialCells(xlCellTypeConstants, 23).Select
selection.Copy
Je fais encore appel à votre aide car je n'ai pas eu de succès dans mon dernier post et j'espère avoir plus de chance ce soir.
Je cherche à afficher un message d'alerte (et sortie de la macro) lorsque la système ne parvient pas à trouver le chemin ou le fichier recherché.
Je précise que le chemin est récupéré dans la cellule F9 de ma feuille active et que le fichier recherché est identifié à partir des 8 premiers caractères.
Merci d'avance pour votre aide
Cordialement
Dim ChercheFichier As FileSearch
Dim Chemin As String
Dim I As Integer
Dim debut
Dim ouvr
Chemin = ThisWorkbook.Sheets("MENU").Range("F9").Value
'dossier = ThisWorkbook.Sheets("MENU").Range("l9").Value
'On Error Resume Next
Set ChercheFichier = Application.FileSearch
Chemin = ThisWorkbook.Sheets("MENU").Range("F9").Value
With ChercheFichier
.NewSearch
.Filename = "*.txt"
.LookIn = Chemin
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For I = 1 To .Count
debut = Left(Dir(.Item(I)), 8)
If debut = "toto.t00" Then
Workbooks.Open (Chemin & Dir(.Item(I)))
Cells.SpecialCells(xlCellTypeConstants, 23).Select
selection.Copy