Discussion :

[Kropernic]

J'ai un autre soucis.... En fait, je reprends un truc qui a été fait par qqn d'autre et je dois bien avouer que le vba, j'aime pas ^^.

En fait, il fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
        With Application.FileSearch
            .NewSearch
            .LookIn = lenomdurépertoire
            .FileType = msoFileTypeExcelWorkbooks
            .Execute
            For I = 1 To .FoundFiles.Count
                Workbooks.Open Filename:=.FoundFiles(I), UpdateLinks:=False, ReadOnly:=True, Password:="[CENSURE:aie:]"

Et je reçois une jolie erreur sur la méthode Open.
Le numéro de l'erreur est 5 et voici le texte :

Argument ou appel de procédure incorrect.

J'ai été voir l'aide de la méthode open et quelques exemples, ça m'a l'air correct...

Je sèche

Help

Griftou.

[ouskel'n'or]

J'ai testé ton code mais n'ai pas rencontré d'erreur
Enregistre ton classeur, ferme tout et relance Excel... à tout hasard

[Kropernic]

Non déjà fait...

Je soupçonne que ce soit lié au répertoire que j'accède.

Pcq'avec un autre, je n'ai pas l'erreur...

Je vais investiguer.

Merci quand même.

[ouskel'n'or]

Précise juste une chose : L'erreur se produit pour le premier classeur ?
Si oui, alors soit tu n'as rien dans ton répertoire, soit ton 1er fichier est inaccessible. Pour cette dernière hypothèse, ce peut être un fichier verrouillé par ton anti-virus. Auquel cas tu mets une gestion d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
On error resume next
'ton code d'ouverture
'...
'...
On error goto 0

Tu peux toujours tester ça, ça ne fera pas de dégats

[Kropernic]

Voici des précisions ^^.

- Le répertoire n'est pas vide
- L'erreur se produit pour le premier fichier
- J'ai essayant en ne laissant que le nom du fichier en paramètre (le ".FoundFiles" donc) et ça l'ouvre bien, ça me demande le mot de passe, si je veux mettre à jour les liens et tout. Mais après ça, il plante

D'où ma totale incompréhension puisque le document est bien ouvert !

J'vais voir si je ne peux pas "tricher" en mettant une gestion d'erreur qui fera en fait la suite du traitement... Mais bon, pas vraiment envie de faire ça, c'est crade comme méthode.

Griftou.

[ouskel'n'or]

Non, réserve la gestion d'erreur pour l'ouverture du classeur, pas pour le reste de ton code. Si le fichier est verrouillé par l'anti-virus, l'erreur est systématique, d'où ma suggestion.
Pour moi, ton erreur vient du code qui suit, pas de l'ouverture du fichier.
Où ton mot de passe n'est pas le bon...
Mais regarde tout de même l'argument WriteResPassword dans l'aide en ligne

WriteResPassword Argument de type Variant facultatif. Chaîne qui contient le mot de passe requis pour écrire dans un classeur protégé en écriture. Si vous ne spécifiez pas cet argument et si le classeur requiert un mot de passe, l'utilisateur est invité à entrer ce mot de passe.

Bon app'