A voir également:
- Vba rechercher un fichier dans un dossier
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Fichier bin - Guide
- Fichier rar - Guide
- Dossier appdata - Guide
4 réponses
Bonjour,
Exemple type :
Lupin
Exemple type :
Sub ChercheFichier()
Const Chemin = "C:\Documents local\EXCEL"
Dim NomChercher As String
Dim oFs As Variant
Dim NomFichier As String
Dim I As Integer
Set oFs = Application.FileSearch
'Capturer ici le nom du fichier inscrit dans le formulaire
'NomChercher = Chemin & "\" & MonFormulaire.MonTextBox.Value
NomChercher = "C:\Documents local\EXCEL\Calendrier.xls"
With oFs
.LookIn = Chemin
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
'MsgBox "Il y a " & .FoundFiles.Count & " fichier(s) de trouvé."
For I = 1 To .FoundFiles.Count
NomFichier = .FoundFiles(I)
If (UCase(NomFichier) = UCase(NomChercher)) Then
MsgBox NomFichier
End If
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
MsgBox "Fin de recherche"
End Sub
'
Lupin
bonjour
En fait, tu as pris ce code sur un autre sujet et il ne correspond pas du tout à la solution d'école de Lupin.A, (que je salue amicalement).
Par contre si tu mettais les instructions dans l'ordre cela fonctionnerait beaucoup mieux :
En fait, tu as pris ce code sur un autre sujet et il ne correspond pas du tout à la solution d'école de Lupin.A, (que je salue amicalement).
Par contre si tu mettais les instructions dans l'ordre cela fonctionnerait beaucoup mieux :
Exit Do ' sortie procédure End If fichier = Dir() ' recherche fichier suivant Loop et non End If Exit Do ' sortie procédure Loop fichier = Dir() ' recherche fichier suivant
Bonjour à tous,
(spécialement à gbinforme)
Il est toujours très difficile de cibler avec précision les besoins.
De plus, il est toujours bon dans un apprentissage de partir
d'un code existant et de le modifier selon ses besoins.
Amicalement.
Lupin
(spécialement à gbinforme)
Il est toujours très difficile de cibler avec précision les besoins.
De plus, il est toujours bon dans un apprentissage de partir
d'un code existant et de le modifier selon ses besoins.
Amicalement.
Lupin
en fait j'ai un peu le même problème
j'ai fait un code qui cherche les fichiers xls d'un dossier pour le copier/coller/sauvegarder dans un autre dossier. mon pb est que je n'arrive pas à parcourir tout mon dossier. dés que ma recherche a atteint le bas du dossier, je garde toujours le même fichier en mémoire, donc ca ne fait pas ce que je souhaite.
j'ai essayé d'initialiser mon chemin, le fichier mais sans succés.
voici mon code :
Dim nouveau As Variant
Dim cherche As String
Dim fichier As String
Dim Chemin As String
Dim tmp As Integer
Chemin = "chemin complet" ' répertoire
nouveau = "chemin complet bis" ' nouveau répertoire
fichier = Dir(Chemin & "\*.xls") ' recherche premier
chaine = renseignement_tranche.TextBox1.Value
Do
If LCase(Mid(fichier, 1, 2)) = LCase(Mid(chaine, 1, 2)) Then
Workbooks.Open Chemin & fichier ' fichier ouvert et demande du nouveau nom
nouveau = Application.GetSaveAsFilename(nouveau, fileFilter:="classeurs (*.xls), *.xls", Title:="Saisissez votre nouveau nom")
If nouveau <> False Then ' fichier saisi ?
ActiveWorkbook.SaveAs nouveau ' sauvegarde nouveau
MsgBox "Sauvé sous " & nouveau ' message
ActiveWorkbook.Close ' fermeture
Else
MsgBox "Classeur non sauvegardé"
End If
End If
Exit Do ' sortie procédure
Loop
fichier = Dir() ' recherche fichier suivant
est ce que vous pourriez m'éclaircir sur ce pb svp ?
merci
en gros quelques petits rajouts sur le code de Lupin en fonction de ce que vous souhaitez faire!