ouverture nouveau xls et fermture ancien

[seb33]

Bonjour,

est-il possible, lorsque mon usf du classeur1 demande l'ouverture du classeur2, d'ouvrir ce classeur2 (bon ca ok pas de soucis), mais aussi de fermer le classeur1?

 

[Banzai64]

Re : ouverture nouveau xls et fermture ancien

Bonjour

Pas sur mais pas sur

Application.quit

 

[jeanpierre]

Re : ouverture nouveau xls et fermture ancien

Bonjour seb33 et banzai,

Pas sûr non plus, car je n'utilise pas cette monstruosité, mais Application.quit va tout fermer, non ?

Bon dimanche

 

[seb33]

Re : ouverture nouveau xls et fermture ancien

bonjour, merci pour vos réponses, voici le code que j'ai donc mis:
Private Sub CommandButton1_Click()
Shell "explorer " & Range("A1").Value, vbMaximizedFocus
Application.Quit

End Sub

sur une textbox, j'ai rentré le nom du fichier (j'automatiserai ca plus tard) et en cliquant sur le bouton, j'ouvre le second fichier.

en fait, ca ouvre le second fichier, puis ca ferme les 2 et ca rouvre seul le second fichier. c'est un peu bizarre, mais puisque ca fonctionne, ca me va (je ne suis pas très regaragnt sur la vitesse d'excé).

 

[seb33]

Re : ouverture nouveau xls et fermture ancien

désolé, j'ai oublié une question qui va avec:

je souhaiterai, sur un fichier excel, qu'à l'ouverture le fichier recense tous les fichiers excel du répertoire (qui correspondront aux références clients) et qui me permettront sur la boite de dialogue à une liste de choix d'ouverture).

est-ce possible?

 

[pierrejean]

Re : ouverture nouveau xls et fermture ancien

bonjour seb Banzai jeanpierre

une solution supposant un bouton sur usf1 et a adapter eventuellement

Private Sub CommandButton1_Click()
MonNom = ThisWorkbook.Name
Workbooks.Open Filename:="........\Classeur2test.xls"
Workbooks(MonNom).Close SaveChanges:=True
End Sub

 

[pierrejean]

Re : ouverture nouveau xls et fermture ancien

Re

on peut completer ainsi

Private Sub CommandButton1_Click()
MonNom = ThisWorkbook.Name
Workbooks.Open Filename:="........\Classeur2test.xls"
Workbooks(MonNom).Close SaveChanges:=True
Application.Dialogs(xlDialogOpen).Show
end sub

 

[seb33]

Re : ouverture nouveau xls et fermture ancien

désolé pour les remerciants tardifs, je testais...
c'est nickel

encore merci
seb

 

[Bernard34]

Re : ouverture nouveau xls et fermture ancien

Re

on peut completer ainsi

Private Sub CommandButton1_Click()
MonNom = ThisWorkbook.Name
Workbooks.Open Filename:="........\Classeur2test.xls"
Workbooks(MonNom).Close SaveChanges:=True
Application.Dialogs(xlDialogOpen).Show
end sub

Bonsoir,
J'ai découvert ce site il y a quelques jours et j'y apprends plein de choses. Vos conseils me permettent de rationaliser mes développements VBA.
Lorsque le fichier se ferme (et cela fonctionne impécablement bien) comment éviter le message concernant la conservation du presse-papier? Merci

 

[tirex28]

Re : ouverture nouveau xls et fermture ancien

Bonsoir,

Lorsque le fichier se ferme (et cela fonctionne impécablement bien) comment éviter le message concernant la conservation du presse-papier? Merci

Vide le presse-papier avant de fermer le fichier.

Application.CutCopyMode = False

Cordialement,

Tirex28/