Discussion :

[sharox]

Bonjour a tous !

Cela fait un moment que je ne suis pas venu sur ce forum car j'arrivais a me débrouiller mais a , je ne sais pas du tout comment faire.

Je voudrais ouvrir un fichier Excel avec un autre donc j'ai codé tout bien, tout propre
avant l'ouverture il recherche si le fichier existe et si il est ouvert ou pas
mais le problème c'est que c'est un fichier avec un code d'ouverture, ce qui fait que quand tu veux ouvrir il y a un pop-up qui apparait qui demande le code et dans cette fenêtre il y a aussi le bouton annuler

Quand je click sur annuler cela me met donc une erreur, et je voudrais gérer cette erreur svp
Merci de votre aide

[Jean-Philippe André]

Salut,

pour désactiver les évènements comme workbook_open, tu peux passer par une ligne comme

Code :

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

Application.EnableEvents = False

que tu réactiveras une fois tes manipulations faites :

Code :

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

Application.EnableEvents = True

[sharox]

Bonjour et merci pour ta réponse, mais malheureusement ce n'et pas ce que je recherche

je veux que le classeur s'ouvre mais, une fois le pop-up actif,
l'utilisateur peux appuyer sur plusieurs bouton dont "annuler"
et quand justement l'utilisateur appuie sur annuler, cela me met une erreur et je voudrais pouvoir la géré.

Merci

[Nico Chg]

Bonjour

Essaie un truc du genre :

Code :

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

1
2
3
4
5
6
7
Dim WB as workbook
WB = Application.GetOpenFilename("Text file (*.txt), *.txt")
if WB = False then
  'Do some stuff
Else
  'Continuer code
End if

[sharox]

Bonjour et Merci

Mais non ce n'est pas cela non plus,
Dans le code que j'ai mis en place, le fichier s'ouvre tout seul ( sur l'appuie d'un bouton)
et quand tu ouvres un fichier protégé par un MDP, alors il demande le mot de passe, et ici tu peux mettre annuler, mais que je met annuler cela me met un msg d'erreur car le fichier n'a pas pu s'ouvrir
et c'est ce message que je voudrais intercepter, et si ce message est intercepté alors il arrête le programme, sinon le programme continu

Merci

[Jean-Philippe André]

Peux tu nous donner ta ligne VBA qui ouvre le fichier en question stp ?

[sharox]

Code :

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

1
2
Workbooks.Open Filename:= _
        (Chemin & Dossier) ' Ouvre le classeur

[Marc-L]

Bonjour, deux solutions :

• soit affecter une variable objet à l'ouverture du classeur et ensuite la tester par Is Nothing

• soit utiliser une fonction ou encore la simple fonction de formules de calculs ESTREF …

__________________________________________________________________________________________

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

[sharox]

Merci beaucoup a tous
j'ai fait ma petite sauce par rapport a ce que vous m'avez donnée

Merci et bonne continuation

[Marc-L]

Ne pas observer la consigne ci-dessous est s'exposer la prochaine fois à ne pas obtenir satisfaction !

__________________________________________________________________________________________

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