Office 2003 vs Office 2010
Résolu
bbe8127
Messages postés
28
Statut
Membre
-
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
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
3 réponses
-
Bonjour,
Voir ceci:
http://vbadud.blogspot.com/2010/02/office-2010-applicationfilesearch-error.html
voir aussi les liens fournis sur ce site
@+ Le Pivert -
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
-
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
