ouverture fichier excel avant et pendant

[lagodille]

bonjour à toutes et à tous,
suite aux conseils avisés des spécialistes du forum, j'ai voulu modifier mes deux procédures de la manière suivante :

1 - lorsque l'on ouvre le fichier toto.xls, si un fichier *.xls est déjà ouvert (sauf exception pour le fichier exemple.xls), un message dit "on ne peut ouvrir ce fichier toto.xls car un autre est déjà ouvert" (sauf pour exemple.xls) et referme toto.xls.

2 - lorque toto.xls est ouvert, si l'on essaye d'ouvrir un autre fichier *.xls (sauf exception pour le fichier titi.xls), un message dit "vous ne pouvez ouvrir un autre fichier xls " (sauf pour titi.xls).


Private Sub Workbook_Open()

If Workbooks.Count > 1 Then
MsgBox "bonjour ! " & Chr(13) & " " & Chr(13) & " ; " & Chr(13) & " on ne peut ouvrir ce fichier toto.xls " & Chr(13) & " merci de votre compréhension. ", vbExclamation, T
ThisWorkbook.Close
Exit Sub
End If
End Sub

nota :il manque l'exception exemple.xls

et

Private Sub Workbook_Deactivate()

For i = 1 To Workbooks.Count
If Workbooks(i).Name <> ThisWorkbook.Name Then
MsgBox "bonjour ! " & Chr(13) & " " & Chr(13) & " "vous ne pouvez ouvrir un autre fichier xls "; " & Chr(13) & " " & Chr(13) & " merci de votre compréhension. ", vbExclamation, T
Workbooks(i).Close
End If
Next

End Sub

nota :il manque l'exception titi.xls

si je place les place séparement ca fonctionne pour un cas mais si je les mets ensemble ca ne fonctionne pas correctement.

j'espère avoir été explicite car je suis proche du néophyte.
alors, si quelqu'un peut me corriger, parfaire mes deux procédures, et m'expliquer le pourquoi du comment ce serait sympa merci🙁

 

[skoobi]

Re : ouverture fichier excel avant et pendant

Bonjour,

si je place les place séparement ca fonctionne pour un cas mais si je les mets ensemble ca ne fonctionne pas correctement.

Pourrais-tu détailler un peu plus stp?

 

[lagodille]

Re : ouverture fichier excel avant et pendant

bonsoir,bonsoir
si j'utilise la première toute seule ca fonctionne bien pour le cas considéré; si j'utilise la deuxième toute seule ca fonctionne bien pour le deuxième cas considéré et si je les met toutes les deux du premier cas je passe systématiquement au deuxième dans le sens ou je vais avoir les deux messages qui s'affichent alors que ce n'est pas mon souhait surtout qu'après je retourne sur Private Sub Workbook_Open avec une erreur sur v.
bref ensemble les deux procédures me sort une erreur.

 

[lagodille]

Re : ouverture fichier excel avant et pendant

bonsoir,bonsoir
si j'utilise la première toute seule ca fonctionne bien pour le cas considéré; si j'utilise la deuxième toute seule ca fonctionne bien pour le deuxième cas considéré et si je les met toutes les deux du premier cas je passe systématiquement au deuxième dans le sens ou je vais avoir les deux messages qui s'affichent alors que ce n'est pas mon souhait surtout qu'après je retourne sur Private Sub Workbook_Open avec une erreur sur v.
bref ensemble les deux procédures me sort une erreur.

corrections

Si j'utilise la première procédure toute seule ca fonctionne bien pour le cas considéré; si j'utilise la deuxième procédure toute seule ca fonctionne bien pour le deuxième cas considéré et si je les mets toutes les deux; je vais avoir les deux messages qui s'affichent l'un derrière l'autre alors que ce n'est pas mon souhait surtout qu'après le programme retourne sur Private Sub Workbook_Open avec une erreur sur ThisWorkbook.Close
Bref si j'ai déjà lancé un fichier excel et que j'ouvre le fichier toto.xls,le fait d'avoir placé ces deux procédures me sort une erreur après avoir affiché les deux messages.[/QUOTE]
Apparemment pose problème pour les experts du forum
merci quand meme🙁

 

[lagodille]

Re : ouverture fichier excel avant et pendant

bonjour à toutes et à tous
je demande votre aide car depuis la demande de skoobi, je n'ai pas eu de réponse à mon problème.
Comme apparemment je m'explique mal, je joints mon fichier Cijoint.fr - Service gratuit de dépôt de fichiers
pour que ce soit plus clair.
j'en suis arrivé au stade suivant :
A - J'ouvre au prealable un fichier excel truc.xls puis j'ouvre mon fichier toto.xls; Si j'utilise que la procédure qui se trouve dans Workbook_Open (j'enlève la procédure qui se trouve dans Workbook_Deactivate), ca fonctionne bien.
B - j'ouvre mon fichier toto tout seul puis après j'ouvre mon fichier truc.xls; si j'utilise que la procédure qui se trouve dans Workbook_Deactivate ((j'enlève la procédure qui se trouve dans Workbook_Open), ca fonctionne bien
C - je laisse les deux procedure actives, j'ouvre mon fichier truc.xls puis j'ouvre mon fichier toto.xls et là je passe par les deux procédure alors que je ne voudrais que afficher le message "VEUILLEZ, S'IL VOUS PLAIT, FERMER TOUT AUTRE FICHIER EXCEL AVANT D'OUVRIR CELUI-CI" et fermer mon fichier toto.
D - enfin comme je l'ai dit dans mon premier post je voudrais une exception pour le fichier exemple et titi mais je n'arrive pas à poser correctement ses conditions supplémentaires.
J'espère qu'une bonne ame me viendra en aide 🙁
bonne journée
cdlt

 

[skoobi]

Re : ouverture fichier excel avant et pendant

Bonjour,
Si j'ai bien compris, dans l'exemple joint:
Le fichier "lagodille" s'ouvrira uniquement si aucun autre fichier n'est ouvert ou si le fichier "titi" est ouvert.
Quand le fichier "lagodille" est ouvert, aucun autre fichier ne pourra être ouvert à part "titi".

 

[lagodille]

Re : ouverture fichier excel avant et pendant

bonsoir,
merci skoobi tu m'enlèves une belle épine du pied car je tournais en rond .
encore merci et bonne soirée