Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
With ChercheFichier
Bonjour,le code ci-dessous ouvre sous Excel tous les fichiers d'un repertoire.J'ai essayé d'apadper ce code sous VB mais j'ai une erreure avec.FoundFiles
Comment faire ?...Public Sub OuvreFichier()Dim ChercheFichier As FileSearch, compteur As LongSet ChercheFichier > Application.FileSearchWith ChercheFichier.LookIn = CurDir.FileName = "Res*".FileType = msoFileTypeExcelWorkbooks.SearchSubFolders = True.ExecuteFor compteur = 1 To .FoundFiles.CountWorkbooks.Open .FoundFiles(compteur)NextEnd WithEnd Sub
Bonjour, le code ci-dessous ouvre sous Excel tous les fichiers d'un repertoire. J'ai essayé d'apadper ce code sous VB mais j'ai une erreure avec .FoundFiles
Comment faire ?... Public Sub OuvreFichier() Dim ChercheFichier As FileSearch, compteur As LongSet ChercheFichier > Application.FileSearch With ChercheFichier .LookIn = CurDir .FileName = "Res*" .FileType = msoFileTypeExcelWorkbooks .SearchSubFolders = True .Execute For compteur = 1 To .FoundFiles.Count Workbooks.Open .FoundFiles(compteur) Next End With End Sub
Si tu es certainPardon ;-)
BonjourSi tu es certaine d'avoir des fichiers dans le repertoire, alors ajoute.NewSearch juste aprèsWith ChercheFichierCordialementPascal"Christian" a écrit dans le message news:Bonjour,le code ci-dessous ouvre sous Excel tous les fichiers d'un repertoire.J'ai essayé d'apadper ce code sous VB mais j'ai une erreure avec.FoundFilesComment faire ?...Public Sub OuvreFichier()Dim ChercheFichier As FileSearch, compteur As LongSet ChercheFichier > > Application.FileSearchWith ChercheFichier.LookIn = CurDir.FileName = "Res*".FileType = msoFileTypeExcelWorkbooks.SearchSubFolders = True.ExecuteFor compteur = 1 To .FoundFiles.CountWorkbooks.Open .FoundFiles(compteur)NextEnd WithEnd Sub
Comment faire ?...Public Sub OuvreFichier()Dim ChercheFichier As FileSearch, compteur As LongSet ChercheFichier > > Application.FileSearchWith ChercheFichier.LookIn = CurDir.FileName = "Res*".FileType = msoFileTypeExcelWorkbooks.SearchSubFolders = True.ExecuteFor compteur = 1 To .FoundFiles.CountWorkbooks.Open .FoundFiles(compteur)NextEnd WithEnd Sub
Si tu es certain Pardon ;-)
Bonjour Si tu es certaine d'avoir des fichiers dans le repertoire, alors ajoute .NewSearch juste après With ChercheFichier Cordialement Pascal "Christian" <christian.neu@tele2.fr> a écrit dans le message news: ejkPb8bdFHA.2696@TK2MSFTNGP09.phx.gbl... Bonjour, le code ci-dessous ouvre sous Excel tous les fichiers d'un repertoire. J'ai essayé d'apadper ce code sous VB mais j'ai une erreure avec .FoundFiles Comment faire ?... Public Sub OuvreFichier() Dim ChercheFichier As FileSearch, compteur As LongSet ChercheFichier > > Application.FileSearch With ChercheFichier .LookIn = CurDir .FileName = "Res*" .FileType = msoFileTypeExcelWorkbooks .SearchSubFolders = True .Execute For compteur = 1 To .FoundFiles.Count Workbooks.Open .FoundFiles(compteur) Next End With End Sub
Comment faire ?... Public Sub OuvreFichier() Dim ChercheFichier As FileSearch, compteur As LongSet ChercheFichier > > Application.FileSearch With ChercheFichier .LookIn = CurDir .FileName = "Res*" .FileType = msoFileTypeExcelWorkbooks .SearchSubFolders = True .Execute For compteur = 1 To .FoundFiles.Count Workbooks.Open .FoundFiles(compteur) Next End With End Sub
