Signaler

Office 2003 vs Office 2010 [Résolu]

Posez votre question bbe8127 19Messages postés mercredi 15 octobre 2008Date d'inscription 13 novembre 2017 Dernière intervention - Dernière réponse le 13 nov. 2017 à 15:53 par bbe8127
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
Utile
+0
plus moins
Bonjour,

Voir ceci:

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

voir aussi les liens fournis sur ce site

bbe8127 19Messages postés mercredi 15 octobre 2008Date d'inscription 13 novembre 2017 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
Répondre
Donnez votre avis
Utile
+0
plus moins
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

Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !