enregister puis fermer un classeur avec MACRO

[lesims1000]

bonjour,
j'ai fait un classeur excel et je voudrais pouvoir l'enregistrer puis le fermer et pour finir ouvrir un nouveau classeur qui peut ou non être déjà ouvertle tous en cliquant sur une macro.


cordialement, Marc.

 

[mromain]

Re : enregister puis fermer un classeur avec MACRO

bonjour lesims,

voici un code qui devrai te satisfaire:

ActiveWorkbook.Close True

a+

 

[mth]

Re : enregister puis fermer un classeur avec MACRO

Bonjour,

Quitte à cliquer sur un bouton, tu fermes ton fichier, et il s'enregistre tout seul avant de se fermer, ça irait comme ça ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ActiveWorkbook.Save
End Sub

@ +

mth

Edit: 🙂 re mromain, décidément je te poursuis aujourd'hui !! 🙂

EDIT 2: Réponse plus adaptée .... 😡 la question a changé en cours de route ....

 

[lesims1000]

Re : enregister puis fermer un classeur avec MACRO

merki !!😀😉

 

[mromain]

Re : enregister puis fermer un classeur avec MACRO

bonjour lesims, mth 🙂

si tu veux sauver/fermer le "fichier A" et ouvrir le "fichier B" à partir d'une macro du "fichier A" je te propose ce code :
- d'abord ouvrir l'autre fichier
- puis fermer le fichier courant

Dim fileName As String, filePath As String, wbkOpen As Workbook

'##### Variables à adapter #######
filePath = "E:\aMiki\XLS"
fileName = "test biblio.xls"
'##################################

On Error Resume Next
Set wbkOpen = Application.Workbooks(fileName)
If Err.Number = 9 Then Set wbkOpen = Application.Workbooks.Open(filePath & "\" & fileName)
Err.Clear
On Error GoTo 0

ThisWorkbook.Close True

il faut d'abord ouvrir le fichier, car au moment du "ThisWorkbook.Close True", la macro s'arrête et n'exécute pas le code situé après (normal vu que le classeur est fermé).

a+

 

[lesims1000]

Re : enregister puis fermer un classeur avec MACRO

merci MROMAIN !!

derniere chose, mon classeur comporte 4 feuilles différents;
j'aimerais que quant j'enregistre mon fichier sa revienne automatiquement sur la 1er feuille du classeur.

vous n'auriez pas un petit code pour sa ???

 

[mromain]

Re : enregister puis fermer un classeur avec MACRO

bonjour lesims1000,

avant de fermer le classeur, mettre
ThisWorkbook.Sheets(1).Select
a+

 

[lesims1000]

Re : enregister puis fermer un classeur avec MACRO

merci ! c'est tous bon