Macro fin de saisie et enregistrement d'un fichier

[oenolivier]

Bonsoir à tous,

Je me trouve devant un gros problème que je n'arrive pas à résoudre malgré différents essais et recherches sur le net 😕

Je souhaite faire une macro qui enregistre un tableau de saisie excel sous un nouveau nom donc un nouveau fichier. Une fois cet enregistrement effectué, je souhaiterai revenir à mon tableau initial qui doit apparaitre vierge pour effectuer une nouvelle saisie.

Voilà la macro que j'ai créée mais à la fin de l'opération, mon fichier original qui doit rester vierge disparait de l'écran et je dois l'ouvrir manuellement.

Sub Findesaisie()
'
' Findesaisie Macro
' Macro enregistrée le 15/05/2008 par
'
Dim monfichier As String
monfichier = InputBox("Nom du dossier:", "Nouveau dossier créé", "SimulMSA-DefaultName")
ActiveWorkbook.SaveAs Filename:=monfichier
ActiveWorkbook.Close

Workbooks.Open Filename:="C:\Program Files\SimulMSA\SimulMSA.xls"
ActiveWorkbook.Open

End Sub

Où se situe le problème et est-ce que quelqu'un peut m'aider ?

Un grand merci par avance 😉

 

[ninbihan]

Re : Macro fin de saisie et enregistrement d'un fichier

Bonsoir,

Peut être ainsi ?

Sub Findesaisie()
'
' Findesaisie Macro
' Macro enregistrée le 15/05/2008 par 
'
Dim monfichier As String
monfichier = InputBox("Nom du dossier:", "Nouveau dossier créé", "SimulMSA-DefaultName")
ActiveWorkbook.SaveAs Filename:=monfichier
Workbooks.Open Filename:="C:\Program Files\SimulMSA\SimulMSA.xls"
Workbook(monfichier).Close

End Sub

A tester,

Bonne soirée,

Ninbihan

 

[oenolivier]

Re : Macro fin de saisie et enregistrement d'un fichier

Bonsoir,

Peut être ainsi ?

Sub Findesaisie()
'
' Findesaisie Macro
' Macro enregistrée le 15/05/2008 par 
'
Dim monfichier As String
monfichier = InputBox("Nom du dossier:", "Nouveau dossier créé", "SimulMSA-DefaultName")
ActiveWorkbook.SaveAs Filename:=monfichier
Workbooks.Open Filename:="C:\Program Files\SimulMSA\SimulMSA.xls"
Workbook(monfichier).Close

End Sub

A tester,

Bonne soirée,

Ninbihan

Bonjour,

Merci de ta proposition mais elle ne fonctionne pas : "erreur de compilation Sub ou Function non définie" 🙁 😕

 

[Pierrot93]

Re : Macro fin de saisie et enregistrement d'un fichier

Bonjour Olivier, Ninbihan

une autre solution comme ceci, à tester dans ton projet :

Sub test()
Dim wb As Workbook, f As String, monfichier As String
Set wb = ThisWorkbook
f = ThisWorkbook.FullName
monfichier = InputBox("Nom du dossier:", "Nouveau dossier créé", "SimulMSA-DefaultName")
With wb
    .SaveAs Filename:=monfichier & ".xls"
    Workbooks.Open f
    .Close
End With
End Sub

bonne journée
@

 

[mutzik]

Re : Macro fin de saisie et enregistrement d'un fichier

bonjour à tous,

Pierrot, sauf erreur de ma part (sinon bonjour le zop qui doit être plein de poussière, depuis que personne ne vient plus ...)
il faudrait mettre :
Workbooks.Open f au lieu de Workbooks.Open wb

bonne journée à tous

 

[Pierrot93]

Re : Macro fin de saisie et enregistrement d'un fichier

Re, bonjour Bertrand

Aarf, bien sur tu as raison, merci d'avoir rectifié, j'ai édité ma réponse, passe une bonne journée.

@+

 

[oenolivier]

Re : Macro fin de saisie et enregistrement d'un fichier

Merci pour votre aide