Discussion :

[sharox]

Bonjour a tous,

J'ai crée une macro qui ouvre un classeur tout vas bien,
Le classeur que j'ouvre est protégé par un mot de passe bizarre car quand je met :

Code :

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

1
2
    Workbooks.Open Filename:= _
        (Chemin & "\" & Dossier) ', Password:="poiuytreza"

Le classeur ne s'ouvre pas du tout ^^ mais d'un côté ca me va, le soucis n'est pas la
le soucis c'est que pour entré la code ca m'ouvre une boite de dialogue avec un champ de texte ( ou je rentre le code)
et 3 autre boutons :
le bouton OK ( pour valider le code)
le bouton Annuler
le bouton lecture seul

Le problème est survient quand j'appuie sur annuler, je peux pas ouvrir mon classeur et cela me met une erreure dans mon code et je voudrais pas que cette erreur survienne

Voila merci

[parmi]

Si tu dois l'ouvrir pour modification, enlève l'apostrophe devant ton mot de passe

Code :

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

1
2
Workbooks.Open Filename:= _
        (Chemin & "\" & Dossier), Password:="poiuytreza"

Par contre, si tu n'as pas à le modifier, tu peux l'ouvrir en mode lecture seule et tu n'auras pas ce message

Code :

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

1
2
Workbooks.Open Filename:= _
        (Chemin & "\" & Dossier), ReadOnly:=True

Mais peut-être que j'ai mal compris le problème...(?)

[sharox]

Bonjour et Mercie de ton aide

Effectivement tu ne répond pas a ma question,

Pour l'apostrophe, c'est normal car je ne veux pas que un utilisateur lambda rentre dans le classeur comme si de rien n'était.
Ensuite le classeur doit être modifier donc pas de lecture seul.

Mais ma question est en fait
quand je lance ma macro pour l'ouvrir et qua j'arrive au moment ou je dois rentrer le MDP et que par exemple je ne veux plus rentrer dedans ,je fait annuler en toute logique
et bha si je fait ca alors que c'est ma macro qui a lancer l'ouverture du classeur, cela me met un message d'alerte ou d'erreur qui provient de VB et je voudrais enlever ce message

Voila j'espère avoir mieux expliqué..

[letudiant68]

Bonjour, pour ignorer une erreur tu peux utiliser un

Code :

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

On Error Resume Next

avant la ligne posant problème.

[Marc-L]

Bonjour, bonjour !

Comme cela On Error … n'est vraiment pas terrible, peut masquer un autre problème;
mieux vaut l'externaliser dans une fonction testant si un classeur est ouvert …

Exemple ici !

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[parmi]

Par contre, même si le fichier existe, s'il décide de ne pas l'ouvrir en annulant, ça va causer une erreur.
Le On Error Resume Next peut avoir sa place mais ne pas oublier de remettre l'état de l'erreur à 0 tout de suite après.

Code :

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

1
2
3
4
On Error Resume Next
Workbooks.Open Filename:= _
        (Chemin & "\" & Dossier)
On Error Goto 0

Mais je ne vois pas pourquoi créer une macro pour ouvrir un fichier si on ne veut pas l'ouvrir finalement...