Fermer un fichier et ouvrir un autre

job75

XLDnaute Barbatruc

• 20 Novembre 2015

• #2

Re : Fermer un fichier et ouvrir un autre

Bonsoir RONIBO,

Code:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Workbooks.Open ThisWorkbook.Path & "\2.xlsm" 'adapter éventuellement le chemin
ThisWorkbook.Close True
End Sub

A+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 20 Novembre 2015

• #3

Re : Fermer un fichier et ouvrir un autre

Bonsoir Job75,

Merci pour le code qui fonctionne

Par contre j'ai un truc qui cloche dans ma tête, pourquoi USF de mon premier fichier apparaît sur le fond d'écran de mon deuxième fichier ?

A+

PS : Clic sur le deuxième icône de mon USF (Le E de pôle emploi)

Fichier N°1 = Accueil
Fichier N°2 = Gestion de pôle emploi

 

Pièces jointes

• Job75.zip

  88.4 KB · Affichages: 32
• Job75.zip

  88.4 KB · Affichages: 39

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Novembre 2015

• #4

Re : Fermer un fichier et ouvrir un autre

Re,

Code:

Me.Hide

A+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 20 Novembre 2015

• #5

Re : Fermer un fichier et ouvrir un autre

Re,

C'est vrai que je suis bête, du coup ça corrigé mon problème par contre je n'arrive pas à utiliser ceci :

'Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' Application.DisplayAlerts = False
' Application.Quit
'End Sub

Cliquez pour agrandir...

Il me dit que le chemin est pas bon bizarrement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Novembre 2015

• #6

Re : Fermer un fichier et ouvrir un autre

Re,

Cela n'a plus rien à voir avec l'objet de ce fil.

A+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 20 Novembre 2015

• #7

Re : Fermer un fichier et ouvrir un autre

D'accord merci beaucoup

 

Vote positif 0 Vote négatif