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'

[Kropernic]

Pq l'antivirus bloquerait-il se fichier ? Il s'agit d'un simple fichier excel.
Je peux l'ouvrir de manière classique sans aucun problème.

Autrement, l'argument WriteResPassword ne fonctionne pas... J'ai testé en remplaçant l'argument Password par celui là mais alors, excel me demande le mot de passe car le classeur est protégé.

[ouskel'n'or]

Pq l'antivirus bloquerait-il se fichier ?
Je peux l'ouvrir de manière classique sans aucun problème.

Ce n'était qu'une hypothèse.
Si ton fichier s'ouvre, c'est que ton pb n'est pas là. Quelle version d'Excel as-tu ?

[Kropernic]

Microsoft® Office Excel 2003 (11.8211.8202) SP3

Voilà ce qu'il y a dans le about ^^

[ouskel'n'or]

Ok. Alors regarde s'il n'y a pas une macro Open dans Thisworkbook du classeur en question...
A tout hasard...
Bonne soirée

[Kropernic]

Alors dans le classeur qui ouvre à partir duquel je veux ouvrir tous les autres non. Par contre dans ceux qui se font ouvrir, oui.

En quoi cela intervient-il ?

Griftou.

[ouskel'n'or]

En quoi cela intervient-il ?

En cela que si la macro qui sert à l'ouvrir se poursuit tu as deux macros qui se croisent les genoux quand tu ouvres un classeur qui a une macro en auto_Open.
Teste ça et dis-nous ce qu'il se passe

Code :

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

1
2
3
4
5
6
           Application.enableEvents = false
           For I = 1 To .FoundFiles.Count
                Workbooks.Open Filename:=.FoundFiles(I), UpdateLinks:=False, ReadOnly
                '...... ton code si tu en as
           Next
           Application.enableEvents = True

A+

[Kropernic]

Ah en effet, c'était bien ça.

Bon, j'vais m'attaque à l'erreur suivant du coup ^^ Il n'arrive pas à trouver la macro que je lui demande d'exécuter ^^

Je vais donc revenir sur l'autre topic ^^.

Merci beaucoup !!!!

Griftou.