Bonjour à tous,
j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi
sous EXCEL.
j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela
met pratiquement 2mn pour passer de .Execute à la ligne suivante.
Comment faire pour réduire ce temps ?
Sub cherche ()
With Application.FileSearch
.NewSearch
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
.LookIn = "C:\temp\tempo"
.Execute
TotalFiles = .FoundFiles.Count
If TotalFiles = 0 Then
MsgBox ("There are no files in the folder!" & _
"Please type another folder to list.")
'GoTo Folder
End If
End With
End Sub
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
Oliv' <(supprimerceci) que je salut a écrit dans
Bonjour à tous, j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi sous EXCEL. j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela met pratiquement 2mn pour passer de .Execute à la ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche () With Application.FileSearch .NewSearch .FileName = "*.*" .FileType = msoFileTypeAllFiles .LookIn = "C:temptempo" .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") 'GoTo Folder End If End With End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou presque au fait c'est sur OFFICE 2003. !
Oliv' <(supprimerceci)catteau@ricour-assurances.fr> que je salut a écrit
dans eWGe3C3aFHA.2420@TK2MSFTNGP15.phx.gbl
Bonjour à tous,
j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le
fait aussi sous EXCEL.
j'ai un répertoire avec 1 document lorsque j'execute le code suivant
cela met pratiquement 2mn pour passer de .Execute à la ligne suivante.
Comment faire pour réduire ce temps ?
Sub cherche ()
With Application.FileSearch
.NewSearch
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
.LookIn = "C:temptempo"
.Execute
TotalFiles = .FoundFiles.Count
If TotalFiles = 0 Then
MsgBox ("There are no files in the folder!" & _
"Please type another folder to list.")
'GoTo Folder
End If
End With
End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou
presque
au fait c'est sur OFFICE 2003. !
Bonjour à tous, j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi sous EXCEL. j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela met pratiquement 2mn pour passer de .Execute à la ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche () With Application.FileSearch .NewSearch .FileName = "*.*" .FileType = msoFileTypeAllFiles .LookIn = "C:temptempo" .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") 'GoTo Folder End If End With End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou presque au fait c'est sur OFFICE 2003. !
Oliv'
Oliv' <(supprimerceci) que je salut a écrit dans %
Oliv' <(supprimerceci) que je salut a écrit dans
Bonjour à tous, j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi sous EXCEL. j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela met pratiquement 2mn pour passer de .Execute à la ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche () With Application.FileSearch .NewSearch .FileName = "*.*" .FileType = msoFileTypeAllFiles .LookIn = "C:temptempo" .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") 'GoTo Folder End If End With End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou presque au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui ! j'ai désactivé le service d'indexation et ca marche nickel merci de vous êtes interessé.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv' <(supprimerceci)catteau@ricour-assurances.fr> que je salut a écrit
dans %23PmxwH3aFHA.760@TK2MSFTNGP10.phx.gbl
Oliv' <(supprimerceci)catteau@ricour-assurances.fr> que je salut a
écrit dans eWGe3C3aFHA.2420@TK2MSFTNGP15.phx.gbl
Bonjour à tous,
j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le
fait aussi sous EXCEL.
j'ai un répertoire avec 1 document lorsque j'execute le code suivant
cela met pratiquement 2mn pour passer de .Execute à la ligne
suivante. Comment faire pour réduire ce temps ?
Sub cherche ()
With Application.FileSearch
.NewSearch
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
.LookIn = "C:temptempo"
.Execute
TotalFiles = .FoundFiles.Count
If TotalFiles = 0 Then
MsgBox ("There are no files in the folder!" & _
"Please type another folder to list.")
'GoTo Folder
End If
End With
End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est
instantané ou presque
au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui ! j'ai
désactivé le service d'indexation et ca marche nickel
merci de vous êtes interessé.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv' <(supprimerceci) que je salut a écrit dans %
Oliv' <(supprimerceci) que je salut a écrit dans
Bonjour à tous, j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi sous EXCEL. j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela met pratiquement 2mn pour passer de .Execute à la ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche () With Application.FileSearch .NewSearch .FileName = "*.*" .FileType = msoFileTypeAllFiles .LookIn = "C:temptempo" .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") 'GoTo Folder End If End With End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou presque au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui ! j'ai désactivé le service d'indexation et ca marche nickel merci de vous êtes interessé.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonsoir à tous, T'es trop rapide pour moi Oliv, en tout cas merci de ta reflexion tout haut ;-). Merci d'avoir lu jusque là.
"Oliv'" <(supprimerceci) a écrit dans le message de news: %
Oliv' <(supprimerceci) que je salut a écrit dans %
Oliv' <(supprimerceci) que je salut a écrit dans
Bonjour à tous, j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi sous EXCEL. j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela met pratiquement 2mn pour passer de .Execute à la ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche () With Application.FileSearch .NewSearch .FileName = "*.*" .FileType = msoFileTypeAllFiles .LookIn = "C:temptempo" .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") 'GoTo Folder End If End With End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou presque au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui ! j'ai désactivé le service d'indexation et ca marche nickel merci de vous êtes interessé.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonsoir à tous,
T'es trop rapide pour moi Oliv, en tout cas merci de ta reflexion tout haut ;-).
Merci d'avoir lu jusque là.
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le message de news: %23x6alP3aFHA.3132@TK2MSFTNGP09.phx.gbl...
Oliv' <(supprimerceci)catteau@ricour-assurances.fr> que je salut a écrit dans %23PmxwH3aFHA.760@TK2MSFTNGP10.phx.gbl
Oliv' <(supprimerceci)catteau@ricour-assurances.fr> que je salut a
écrit dans eWGe3C3aFHA.2420@TK2MSFTNGP15.phx.gbl
Bonjour à tous,
j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le
fait aussi sous EXCEL.
j'ai un répertoire avec 1 document lorsque j'execute le code suivant
cela met pratiquement 2mn pour passer de .Execute à la ligne
suivante. Comment faire pour réduire ce temps ?
Sub cherche ()
With Application.FileSearch
.NewSearch
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
.LookIn = "C:temptempo"
.Execute
TotalFiles = .FoundFiles.Count
If TotalFiles = 0 Then
MsgBox ("There are no files in the folder!" & _
"Please type another folder to list.")
'GoTo Folder
End If
End With
End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est
instantané ou presque
au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui ! j'ai désactivé le service d'indexation et ca marche nickel
merci de vous êtes interessé.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonsoir à tous, T'es trop rapide pour moi Oliv, en tout cas merci de ta reflexion tout haut ;-). Merci d'avoir lu jusque là.
"Oliv'" <(supprimerceci) a écrit dans le message de news: %
Oliv' <(supprimerceci) que je salut a écrit dans %
Oliv' <(supprimerceci) que je salut a écrit dans
Bonjour à tous, j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi sous EXCEL. j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela met pratiquement 2mn pour passer de .Execute à la ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche () With Application.FileSearch .NewSearch .FileName = "*.*" .FileType = msoFileTypeAllFiles .LookIn = "C:temptempo" .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") 'GoTo Folder End If End With End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou presque au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui ! j'ai désactivé le service d'indexation et ca marche nickel merci de vous êtes interessé.
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv'
@pollo que je salut a écrit dans %
Bonsoir à tous, T'es trop rapide pour moi Oliv, en tout cas merci de ta reflexion tout haut ;-). Merci d'avoir lu jusque là.
Merci, je ne sais pas si c'est le fait de vouloir exposer clairement le pb sur le forum qui fait que la réponse est également plus claire !! Mais j'avais quand même passé quelques heures, avant de le tester sur un autre poste, a essayé d'optimiser ce code à le modifier dans tous les sens, ... Oliv'
"Oliv'" <(supprimerceci) a écrit dans le message de news: %
Oliv' <(supprimerceci) que je salut a écrit dans %
Oliv' <(supprimerceci) que je salut a écrit dans
Bonjour à tous, j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi sous EXCEL. j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela met pratiquement 2mn pour passer de .Execute à la ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche () With Application.FileSearch .NewSearch .FileName = "*.*" .FileType = msoFileTypeAllFiles .LookIn = "C:temptempo" .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") 'GoTo Folder End If End With End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou presque au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui ! j'ai désactivé le service d'indexation et ca marche nickel merci de vous êtes interessé. -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@pollo <Multipass.MultipassMultipassACHALER@PASlaposte.net> que je salut a
écrit dans %23tZgfU4aFHA.724@TK2MSFTNGP12.phx.gbl
Bonsoir à tous,
T'es trop rapide pour moi Oliv, en tout cas merci de ta reflexion
tout haut ;-). Merci d'avoir lu jusque là.
Merci, je ne sais pas si c'est le fait de vouloir exposer clairement le pb
sur le forum qui fait que la réponse est également plus claire !!
Mais j'avais quand même passé quelques heures, avant de le tester sur un
autre poste, a essayé d'optimiser ce code à le modifier dans tous les sens,
...
Oliv'
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: %23x6alP3aFHA.3132@TK2MSFTNGP09.phx.gbl...
Oliv' <(supprimerceci)catteau@ricour-assurances.fr> que je salut a
écrit dans %23PmxwH3aFHA.760@TK2MSFTNGP10.phx.gbl
Oliv' <(supprimerceci)catteau@ricour-assurances.fr> que je salut a
écrit dans eWGe3C3aFHA.2420@TK2MSFTNGP15.phx.gbl
Bonjour à tous,
j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le
fait aussi sous EXCEL.
j'ai un répertoire avec 1 document lorsque j'execute le code
suivant cela met pratiquement 2mn pour passer de .Execute à la
ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche ()
With Application.FileSearch
.NewSearch
.FileName = "*.*"
.FileType = msoFileTypeAllFiles
.LookIn = "C:temptempo"
.Execute
TotalFiles = .FoundFiles.Count
If TotalFiles = 0 Then
MsgBox ("There are no files in the folder!" & _
"Please type another folder to list.")
'GoTo Folder
End If
End With
End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est
instantané ou presque
au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui !
j'ai désactivé le service d'indexation et ca marche nickel merci de
vous êtes interessé. --
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonsoir à tous, T'es trop rapide pour moi Oliv, en tout cas merci de ta reflexion tout haut ;-). Merci d'avoir lu jusque là.
Merci, je ne sais pas si c'est le fait de vouloir exposer clairement le pb sur le forum qui fait que la réponse est également plus claire !! Mais j'avais quand même passé quelques heures, avant de le tester sur un autre poste, a essayé d'optimiser ce code à le modifier dans tous les sens, ... Oliv'
"Oliv'" <(supprimerceci) a écrit dans le message de news: %
Oliv' <(supprimerceci) que je salut a écrit dans %
Oliv' <(supprimerceci) que je salut a écrit dans
Bonjour à tous, j'ai un ti souci avec la fonction FileSearch sous WORD mais ca le fait aussi sous EXCEL. j'ai un répertoire avec 1 document lorsque j'execute le code suivant cela met pratiquement 2mn pour passer de .Execute à la ligne suivante. Comment faire pour réduire ce temps ?
Sub cherche () With Application.FileSearch .NewSearch .FileName = "*.*" .FileType = msoFileTypeAllFiles .LookIn = "C:temptempo" .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") 'GoTo Folder End If End With End Sub
Ca doit venir de ma config XPsp2 car sur un autre poste c'est instantané ou presque au fait c'est sur OFFICE 2003. !
Ayé j'ai trouvé c'est dans les options de recherche de XP oui oui ! j'ai désactivé le service d'indexation et ca marche nickel merci de vous êtes interessé. -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Geo
Bonjour Oliv'
Merci, je ne sais pas si c'est le fait de vouloir exposer clairement le pb sur le forum qui fait que la réponse est également plus claire
Oui c'est souvent le cas, on relève la tête du guidon et on prend le temps d'analyser la pb pour l'exposer. Mais si tu as d'autres problèmes et leur solution, n'hésite pas à en faire part au forum :-)
--
A+
Bonjour Oliv'
Merci, je ne sais pas si c'est le fait de vouloir exposer clairement
le pb sur le forum qui fait que la réponse est également plus claire
Oui c'est souvent le cas, on relève la tête du guidon et on prend le temps
d'analyser la pb pour l'exposer.
Mais si tu as d'autres problèmes et leur solution, n'hésite pas à en faire
part au forum :-)
Merci, je ne sais pas si c'est le fait de vouloir exposer clairement le pb sur le forum qui fait que la réponse est également plus claire
Oui c'est souvent le cas, on relève la tête du guidon et on prend le temps d'analyser la pb pour l'exposer. Mais si tu as d'autres problèmes et leur solution, n'hésite pas à en faire part au forum :-)
