Office 2003 vs Office 2010

Résolu
bbe8127 Messages postés 28 Statut Membre -  
bbe8127 Messages postés 28 Statut Membre -
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
A voir également:

3 réponses

Réponse 1 / 3
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Voir ceci:

http://vbadud.blogspot.com/2010/02/office-2010-applicationfilesearch-error.html

voir aussi les liens fournis sur ce site

@+ Le Pivert
0
bbe8127 Messages postés 28 Statut Membre
 
Merci pour ta réponse rapide.
Je viens d'y jeter un coup d'oeil, elle semble assez détaillée.
Je m'absente aujourd'hui.
Je te rappelle dès que j'ai résolu (je n'en doute pas) mon problème.
Cordialement.
BBe
0
Réponse 2 / 3
thev Messages postés 1989 Date d'inscription   Statut Membre Dernière intervention   717
 
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

 
0
Réponse 3 / 3
bbe8127 Messages postés 28 Statut Membre
 
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
0