Discussion :

[DiesIrae]

Bonjour

Un classeur Excel travaille avec un 2e classeur qui lui contient toutes les données. Je souhaite donc que quand j'ouvre le 1er classeur, le 2e s'ouvre également, mais aussi que quand je ferme ce classeur, celui contenant les données se ferme également.
Précisons que le classeur des données se voit modifié pendant l'utilisation, mais que ces modifications ne doivent pas être enregistrées à la fermeture.

Côté ouverture, pas de problème :

Code :

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

1
2
3
Private Sub Workbook_Open()
Ouvrir
End Sub

m'exécute la macro ouvrir, qui fait ce que je lui demande

Au niveau de la fermeture, par contre, ça bugue :

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = False
    Windows("fichier données.xlsx").Close SaveChanges:=False
ThisWorkbook.Close SaveChanges:=False
End Sub

me renvoit une erreur d'exécution 9 : l'indice ne correspond pas à la sélection. Et le débugueur me surligne la ligne indiquée en gras dans le code.

Quelqu'un voit où peut se situer le problème ?

D'avance, merci

[Fvandermeulen]

Salut
Essaies en remplaçant Windows par Workbooks.
A+

[DiesIrae]

Même erreur, même surlignage...

[Fvandermeulen]

es tu certain du nom de ce fichier (extention comprise) ?

[DiesIrae]

J'ai fait un c/c, donc oui

Cela dit, avec Workbooks les deux fichiers concernés se ferment bien à la fin. Mais la macro me renvoie quand même une erreur.

En plus de ça, Excel me demande si je veux garder les éléments dans le presse papier quand je quitte. C'est possible de lui faire dire non automatiquement avec la macro ?

[Fvandermeulen]

Cela dit, avec Workbooks les deux fichiers concernés se ferment bien à la fin. Mais la macro me renvoie quand même une erreur.

????

En plus de ça, Excel me demande si je veux garder les éléments dans le presse papier quand je quitte. C'est possible de lui faire dire non automatiquement avec la macro ?

Voici une code de Ucfoutu (j'ai pas testé)

Code :

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

1
2
Application.CommandBars("Clipboard").Controls("&Vider le
Presse-Papiers").Execute