Ouvrir un classeur à la fermeture d'un autre

Fermé
Asteromoon - 25 mai 2011 à 22:04
Bonjour,

en rôdant sur divers forum, je réussi tant bien que mal à "programmer" ce dont j'ai besoin, en fait je ne fait qu'adapter des codes déjà existants.

Mais venons-en au faits :

J'ai un formulaire vierge qui s'auto-nome, s'auto-sauve et s'auto-ferme. A la fermeture de ce dernier j'aimerais ouvrir automatiquement le prochain formulaire (vierge).

Jusque là j'arrive soit à fermer le premier formulaire mais pas à ouvrir le second (étant donné que la macro s'est aussi fermée), soit à ouvrir le second et le fermer instantanément (car ma macro ferme le formulaire actif).

Mon code :
________________________________________________________________________

Sub Sauver()

Dim Nom As String
Nom = Range("E5") & ".xls"

If Range("E5") = "" Then MsgBox "Entrar um código de produtor", 48: Range("E5").Select: Exit Sub
If MsgBox("Quer salvar o documento com o nome " & Nom & " ?", 4) = 6 Then
On Error Resume Next
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Nom 'Enregistre dans le même dossier
If Err Then MsgBox "Le nom proposé contient des caractères interdits", 48: Range("E5").Select


End If

End Sub
________________________________________________________________________


Sub Ouvrirclasseur()

Workbooks.Open Filename:= _
"F:\Travail\Brésil\Certification\Sistema centralizado de datos\Banco de Dados- Excel\BD.xlsm"

End Sub
________________________________________________________________________


Sub FermerClasseur()

ActiveWorkbook.Close

End Sub
________________________________________________________________________

Sub sauvefface()

Call Sauver

If Range("E5") <> 0 Then

Call Ouvrirclasseur
Call FermerClasseur

End If
End Sub
________________________________________________________________________


Cette dernière macro réunissant les 3 premières est affectée à un bouton d'action. Indépendamment les 3 codes fonctionnent

C'est du bricolage mais ça marche... presque :)


en vous remerciant d'avance pour votre aide


Asteromoon


A voir également: