VBA rechercher un fichier dans un répoertoire
Fermé
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
-
16 mai 2007 à 11:25
XxVeg3tAxX - 9 mai 2016 à 17:14
XxVeg3tAxX - 9 mai 2016 à 17:14
A voir également:
- Vba rechercher un fichier dans un dossier
- Rechercher ou entrer l'adresse - Guide
- Le fichier à télécharger est la nouvelle note de service de votre entreprise. importez ce fichier dans le bon dossier sur l'espace pix cloud. donnez à ce fichier les mêmes droits d'accès que les autres notes de service. ✓ - Forum Windows
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
4 réponses
Utilisateur anonyme
16 mai 2007 à 14:09
16 mai 2007 à 14:09
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
2 avril 2008 à 08:25
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
2 avril 2008 à 09:43
en gros quelques petits rajouts sur le code de Lupin en fonction de ce que vous souhaitez faire!