Discussion :

[bibi28]

Bonjour

je voudrais savoir comment rediriger un classeur excell dès la fermeture de celui ci vers un autre classeur excel

En clair:

j'ai un classeur "objet" et un classeur "service", je voudrai que lorsque je ferme le classeur "objet", le classeur "service" s'ouvre automatiquement.

Par avance merci pour vos reponses

bibi28

[Daniel.C]

Bonjour,

Tu peux le faire par macro. Est-ce cela que tu souhaites ?

[bibi28]

Bonjour Daniel

Peux importe soit en macro soit en vba

le plus simple

par avance merci

[Daniel.C]

Dans le module "ThisWorkbook" du classeur "Objet", mets :

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Chemin As String
    Cancel = True
    Chemin = "C:\temp\"
    Workbooks.Open Chemin & "Service.xls"
    ThisWorkbook.Close
End Sub

Tu dois changer "c:\temp" par le chemin du fichier "service". Si tu as un problème pour installer la macro, dis-le.

[bibi28]

bonjour

je teste aujourd hui je serai de retour sur le forum ce soir

merci

bonne journee

bibi28

[bibi28]

hello

j'ai bien mis les les deux chemins a remplacer par mes chemins et cela ne fonction pas il me met "debogage"

cela veut dire quoi

merci a +

[Gestionnaire_rh]

Bonjour,

remplace le code par celui ci:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Chemin As String
 
    Chemin = "C:\temp\"
    Workbooks.Open Filename:=Chemin
    ThisWorkbook.Close
 
End Sub

[Daniel.C]

Il doit s'afficher une erreur. Quel est le message ? Quand tu cliques sur "débogage", quelle est la ligne surlignée en jaune ?

[bibi28]

hello

j ai mis le code: c'est la ligne surligne en jaune, je pense que c'est le chemin je l'ai en toure avec des [ et ] ou " et " mais cela ne fonctionne pas toujours

Workbooks.Open Filename:=Chemin

merci à tous de vos reponses

a +

[Daniel.C]

C'est pas ce que j'ai écrit. J'ai mis :

Code :

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

Workbooks.Open Chemin & "Service.xls"

Vérifie "Chemin" et que ton classeur s'appelle bien "Service.xls". Poste le code tel que tu l'as modifié.