Office 2003 vs Office 2010 Résolu/Fermé

Question

Bonjour,

Avec VB d'office 2003 (dont je peux dire que je le possède assez bien), cette commande fonctionne très bien.		

	        With Application.FileSearch	
	            .LookIn = Chem	
	            .Filename = "*.*"	
	            Nbf0 = 0	
	            If .Execute() > 0 Then Nbf0 = .FoundFiles.Count	
	        End With	


Si je travaille avec office 2010 (qui n'est pas "ma tasse de thé"), j'ai une erreur 	

	Erreur d'exécution '445'	
	Cet objet ne gère pas cette action	

	confirmée par ce message quand je pointe la 1ère ligne 	
	Application.Filesearch = <Cet objet ne gère pas cette action>	


J'ai 75 ans, et ce programme n'étant pas pour moi, je ne vais pas apprendre office 2010 tout de suite.		
J'aimerai avoir la solution pour office 2010 et éventuellement, si elle existe, une solution qui fonctionne pour les deux versions.		


Mes remerciement à ceux qui vont plancher pour moi.		
Cordialement.		
                        BBe

cs_Le Pivert · Answer

Bonjour,

Voir ceci:

http://vbadud.blogspot.com/2010/02/office-2010-applicationfilesearch-error.html 

voir aussi les liens fournis sur ce site
 
@+ Le Pivert

thev · Answer

Bonjour,

Sous Office 2010
    Set fd = Application.FileDialog(msoFileDialogFilePicker)    With fd        .InitialFileName = Chem        .Filters.Add "Fichiers", "*.*", 1        If .Show = -1 Then Nbf0 = .SelectedItems.Count   'Clic sur Ok    End With

bbe8127 · Answer

cs_Le Pivert , thev,

merci à vous deux pour vos messages.
Vous m'avez donné la réponse de deux manières différentes, mais je l'ai eu!

Cordialement.
                     BBe

Office 2003 vs Office 2010

3 réponses

Discussions similaires