Bonjour,
Deja merci à ceux qui liront ce message de désespoir. En gros j'utilise une macro assez fat qui utilise la bien nommé feu-fonction "ClassFileSearch". Feu-fonction car comme vous le savez tous elle n'existe plus sous 2007 donc sous 2010.
Ma macro fonctionnait très bien sous 2003 puis passé sous 2010, "HIC"...je vous passe donc les détail j'ai suivi les instructions de ce site et d'autres en installant les macros complémentaires...et j'ai un petit soucis pour traduire une partie de mon code (certaine méthodes et propriété ayant changé de nom ou disparu dans le clone pour 2010 de class file search:
"Set RecFichier = ClFileSearch.Nouvelle_recherche
With RecFichier
.FolderPath = MyPath
.Filename = sFeuille & "*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute(SortBy:=msoSortByLastModified, sortorder:=msoSortOrderDescending) > 0 Then
sMyName = Mid(.FoundFiles(1), Len(MyPath) + 1)
End If
End With"
Jusqu'a la selection du répertoire de recherche pas de soucis, c'est après que cela ne fonctionne plus.
Quelqu'un aurait il une idée ?
Merci d'avance !
Deja merci à ceux qui liront ce message de désespoir. En gros j'utilise une macro assez fat qui utilise la bien nommé feu-fonction "ClassFileSearch". Feu-fonction car comme vous le savez tous elle n'existe plus sous 2007 donc sous 2010.
Ma macro fonctionnait très bien sous 2003 puis passé sous 2010, "HIC"...je vous passe donc les détail j'ai suivi les instructions de ce site et d'autres en installant les macros complémentaires...et j'ai un petit soucis pour traduire une partie de mon code (certaine méthodes et propriété ayant changé de nom ou disparu dans le clone pour 2010 de class file search:
"Set RecFichier = ClFileSearch.Nouvelle_recherche
With RecFichier
.FolderPath = MyPath
.Filename = sFeuille & "*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute(SortBy:=msoSortByLastModified, sortorder:=msoSortOrderDescending) > 0 Then
sMyName = Mid(.FoundFiles(1), Len(MyPath) + 1)
End If
End With"
Jusqu'a la selection du répertoire de recherche pas de soucis, c'est après que cela ne fonctionne plus.
Quelqu'un aurait il une idée ?
Merci d'avance !
