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

[DiesIrae]

????

La macro me sort erreur d'exécution 9 : l'indice ne correspond pas à la sélection., mais si je fais Fin, les deux fichiers se ferment bien comme je leur ai demandé.
Faut pas me demander pourquoi, hein

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

Je teste ça, merci

[DiesIrae]

Je teste ça, merci

Je l'ai collé là-dedans :

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Clipboard").Controls("&Vider le Presse-Papiers").Execute
    Application.ScreenUpdating = False
    Workbooks("fichier données.xlsx").Close SaveChanges:=False
    ThisWorkbook.Close SaveChanges:=False
End Sub

mais il me sort Erreur d'exécution 5 : Argument ou appel de procédure incorrect.

Je dois pas savoir très bien l'utiliser en fait.

[DiesIrae]

Bon, j'ai remplacé

Code :

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

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

par

Code :

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

    Application.CutCopyMode = False

et il ne me sort plus Erreur d'exécution 5 : Argument ou appel de procédure incorrect.
Problème du presse papier réglé.


Par contre j'ai toujours droit à Erreur d'exécution 9 : l'indice ne correspond pas à la sélection.

Rappel du code en question :

Code :

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

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

Ce qui est étrange, c'est qu'avec cette macro toute conne sur un bouton, je ferme l'autre fichier sans problème.

Code :

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

1
2
3
Sub Fermer_sources()
Workbooks("fichier_données.xlsx").Close SaveChanges:=False
End Sub

Mais si j'appelle cette macro au moment de la fermeture, comme ça :

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CutCopyMode = False
    Application.ScreenUpdating = False
    Fermer_sources
    ThisWorkbook.Close SaveChanges:=False
End Sub

Excel me ressort la blague de l'erreur d'exécution 9, tout en surlignant le Workbooks("fichier_données.xlsx").Close SaveChanges:=False de la macro toute conne qui fonctionne autrement.