Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ouverture/fermeture automatique de classeurs

ouverture/fermeture automatique de classeurs

4 réponses
Avatar
ruiz
bonjour,
j'ai un classeur principal (tjs ouvert) et je souhterai l'ouverture et la
fermeture automatique de 4 autres classeurs.
A1=CONCATENER(G1;"1")
B1=CONCATENER(G1;"2")
C1=CONCATENER(G1;"3")
D1=CONCATENER(G1;"4")
E1=CONCATENER(G1;"5")
G1=policier, aventure etc..au choix.
quand je rentre 'policier' en G1, je souhaite l'ouverture automatique des 4
fichiers excel només policier 1,2,3 et 4.
et si je rentre 'aventure' en G1, il faut cela cela ferme dabord les 4
fichiers policier et cela ouvre les 4 fichiers excel aventure1,2,3 et 4..
c'est possible ça ?
merci de vos exemples..
ruiz
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Dans le code de la feuille, tu mets :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$1" Then Exit Sub
On Error Resume Next
If Genre <> "" Then
For i = 1 To 4
Workbooks(Genre & i & ".xls").Close False
Next i
End If
On Error GoTo 0
Genre = Target.Value
For i = 1 To 4
Workbooks.Open Genre & i & ".xls"
Next i
End Sub

Dans le code de "thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Genre <> "" Then
For i = 1 To 4
Workbooks(Genre & i & ".xls").Close False
Next i
End If
End Sub

et dans un module :

Public Genre As String

(non testé)
Cordialement.
Daniel
"ruiz" a écrit dans le message de news:

bonjour,
j'ai un classeur principal (tjs ouvert) et je souhterai l'ouverture et la
fermeture automatique de 4 autres classeurs.
A1=CONCATENER(G1;"1")
B1=CONCATENER(G1;"2")
C1=CONCATENER(G1;"3")
D1=CONCATENER(G1;"4")
E1=CONCATENER(G1;"5")
G1=policier, aventure etc..au choix.
quand je rentre 'policier' en G1, je souhaite l'ouverture automatique des
4
fichiers excel només policier 1,2,3 et 4.
et si je rentre 'aventure' en G1, il faut cela cela ferme dabord les 4
fichiers policier et cela ouvre les 4 fichiers excel aventure1,2,3 et 4..
c'est possible ça ?
merci de vos exemples..
ruiz


Avatar
ruiz
je vais essayer tout ça,
je te remercie


Bonjour.
Dans le code de la feuille, tu mets :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$1" Then Exit Sub
On Error Resume Next
If Genre <> "" Then
For i = 1 To 4
Workbooks(Genre & i & ".xls").Close False
Next i
End If
On Error GoTo 0
Genre = Target.Value
For i = 1 To 4
Workbooks.Open Genre & i & ".xls"
Next i
End Sub

Dans le code de "thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Genre <> "" Then
For i = 1 To 4
Workbooks(Genre & i & ".xls").Close False
Next i
End If
End Sub

et dans un module :

Public Genre As String

(non testé)
Cordialement.
Daniel
"ruiz" a écrit dans le message de news:

bonjour,
j'ai un classeur principal (tjs ouvert) et je souhterai l'ouverture et la
fermeture automatique de 4 autres classeurs.
A1=CONCATENER(G1;"1")
B1=CONCATENER(G1;"2")
C1=CONCATENER(G1;"3")
D1=CONCATENER(G1;"4")
E1=CONCATENER(G1;"5")
G1=policier, aventure etc..au choix.
quand je rentre 'policier' en G1, je souhaite l'ouverture automatique des
4
fichiers excel només policier 1,2,3 et 4.
et si je rentre 'aventure' en G1, il faut cela cela ferme dabord les 4
fichiers policier et cela ouvre les 4 fichiers excel aventure1,2,3 et 4..
c'est possible ça ?
merci de vos exemples..
ruiz







Avatar
ruiz
ok ça marche pour l'ouverture !

mais quand je change g1 ça ne ferme pas les 4 deja ouverts avant d'ouvrir
les nouveaux..

"Daniel" wrote:

Bonjour.
Dans le code de la feuille, tu mets :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$1" Then Exit Sub
On Error Resume Next
If Genre <> "" Then
For i = 1 To 4
Workbooks(Genre & i & ".xls").Close False
Next i
End If
On Error GoTo 0
Genre = Target.Value
For i = 1 To 4
Workbooks.Open Genre & i & ".xls"
Next i
End Sub

Dans le code de "thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Genre <> "" Then
For i = 1 To 4
Workbooks(Genre & i & ".xls").Close False
Next i
End If
End Sub

et dans un module :

Public Genre As String

(non testé)
Cordialement.
Daniel
"ruiz" a écrit dans le message de news:

bonjour,
j'ai un classeur principal (tjs ouvert) et je souhterai l'ouverture et la
fermeture automatique de 4 autres classeurs.
A1=CONCATENER(G1;"1")
B1=CONCATENER(G1;"2")
C1=CONCATENER(G1;"3")
D1=CONCATENER(G1;"4")
E1=CONCATENER(G1;"5")
G1=policier, aventure etc..au choix.
quand je rentre 'policier' en G1, je souhaite l'ouverture automatique des
4
fichiers excel només policier 1,2,3 et 4.
et si je rentre 'aventure' en G1, il faut cela cela ferme dabord les 4
fichiers policier et cela ouvre les 4 fichiers excel aventure1,2,3 et 4..
c'est possible ça ?
merci de vos exemples..
ruiz







Avatar
Daniel
Ca fonctionne pourtant chez moi. Peux-tu mettre ton classeur sur
www.cjoint.com ?
Daniel
"ruiz" a écrit dans le message de news:

ok ça marche pour l'ouverture !

mais quand je change g1 ça ne ferme pas les 4 deja ouverts avant d'ouvrir
les nouveaux..

"Daniel" wrote:

Bonjour.
Dans le code de la feuille, tu mets :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$1" Then Exit Sub
On Error Resume Next
If Genre <> "" Then
For i = 1 To 4
Workbooks(Genre & i & ".xls").Close False
Next i
End If
On Error GoTo 0
Genre = Target.Value
For i = 1 To 4
Workbooks.Open Genre & i & ".xls"
Next i
End Sub

Dans le code de "thisworkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Genre <> "" Then
For i = 1 To 4
Workbooks(Genre & i & ".xls").Close False
Next i
End If
End Sub

et dans un module :

Public Genre As String

(non testé)
Cordialement.
Daniel
"ruiz" a écrit dans le message de news:

bonjour,
j'ai un classeur principal (tjs ouvert) et je souhterai l'ouverture et
la
fermeture automatique de 4 autres classeurs.
A1=CONCATENER(G1;"1")
B1=CONCATENER(G1;"2")
C1=CONCATENER(G1;"3")
D1=CONCATENER(G1;"4")
E1=CONCATENER(G1;"5")
G1=policier, aventure etc..au choix.
quand je rentre 'policier' en G1, je souhaite l'ouverture automatique
des
4
fichiers excel només policier 1,2,3 et 4.
et si je rentre 'aventure' en G1, il faut cela cela ferme dabord les 4
fichiers policier et cela ouvre les 4 fichiers excel aventure1,2,3 et
4..
c'est possible ça ?
merci de vos exemples..
ruiz