Menu

Office 2003 vs Office 2010 [Résolu]

bbe8127 21 Messages postés mercredi 15 octobre 2008Date d'inscription 28 janvier 2018 Dernière intervention - 12 nov. 2017 à 10:14 - Dernière réponse : bbe8127 21 Messages postés mercredi 15 octobre 2008Date d'inscription 28 janvier 2018 Dernière intervention
- 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
Afficher la suite 

4 réponses

Répondre au sujet
cs_Le Pivert 4910 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 17 février 2018 Dernière intervention - Modifié par cs_Le Pivert le 12/11/2017 à 11:01
0
Utile
1
Bonjour,

Voir ceci:

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

voir aussi les liens fournis sur ce site

@+ Le Pivert
bbe8127 21 Messages postés mercredi 15 octobre 2008Date d'inscription 28 janvier 2018 Dernière intervention - 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
Commenter la réponse de cs_Le Pivert
thev 1696 Messages postés lundi 7 avril 2008Date d'inscription 6 janvier 2018 Dernière intervention - Modifié par thev le 12/11/2017 à 12:55
0
Utile
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

 
Commenter la réponse de thev
bbe8127 21 Messages postés mercredi 15 octobre 2008Date d'inscription 28 janvier 2018 Dernière intervention - 13 nov. 2017 à 15:53
0
Utile
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
Commenter la réponse de bbe8127