Sujet Précédent Sujet Suivant

Office 2003 vs Office 2010

Résolu/Fermé
bbe8127 Messages postés 24 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 juin 2020 - 12 nov. 2017 à 10:14
bbe8127 Messages postés 24 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 juin 2020 - 13 nov. 2017 à 15:53
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 12 nov. 2017 à 11:01
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 24 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 juin 2020
12 nov. 2017 à 11:08
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 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
Modifié le 12 nov. 2017 à 12:55
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 24 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 juin 2020
13 nov. 2017 à 15:53
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