XL 2013 fermer et ouvrir des classeurs

[chaelie2015]

Bonjour FORUM
Je cherche a compléter ce code qui ferme un classeur et ouvre un autre classeur (qui est définit) en même temps
NB: ces deux sont enregistrés dans le même répertoire.

If MsgBox("Un nouveau fichier a été créé,nommé :" & Chr(10) & Chr(10) & [AL4] & Chr(10) & Chr(10) & "Etes-vous certain de vouloir quiter ce classeur ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Dim wb As Workbook
        For Each wb In Workbooks 'boucle sur tous les classeurs ouverts
        wb.Close True 'fermeture du classeur avec sauvegarde
        Next
        Application.Quit
       
    End If

A+

 

[Gégé-45550]

Bonjour,
forçé et contraint par TooFatBoy qui est pourtant bien plus fort que moi 😉, je propose l'écriture suivante :

Sub Save_As()
Application.DisplayAlerts = False 'si le fichier a déjà été créé
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & [AL4].Value, 52 '52 = extension .xlsm'

    If MsgBox("Un nouveau fichier a été créé,nommé :" & NOM_NOUVEAU_CLASSEUR & Chr(10) & Chr(10) & [AL4] & Chr(10) & Chr(10) & "Etes-vous certain de vouloir quiter ce classeur ?", vbYesNo, "Demande de confirmation") = vbYes Then
       
        Dim Nouveau_Fichier as workbook
        Dim Nom_Nouveau_Fichier as String
        Dim wb As Workbook
        For Each wb In Workbooks 'boucle sur tous les classeurs ouverts
        wb.Close True 'fermeture du classeur avec sauvegarde
        Next
        Set Nouveau_Fichier = Workbooks.Open("Burx Type.xlsm")

        Nom_Nouveau_Fichier=Nouveau_Fichier.Name        'Facultatif
    End If

End Sub

Vu que je n'au pas pris le temps de vérifier dans Excel, il est possible qu'il soit nécessaire d'inscrire le chemin d'accès complet au fichier Burx Type.xlsm.
La ligne deviendrait alors Set Nouveau_Fichier = Workbooks.Open(chemin_acces & "\" & "Burx Type.xlsm")
Cordialement,

 

[TooFatBoy]

forçé et contraint par @TooFatBoy

Oui, mon message était quelque peu péremptoire... Je l'ai donc modifié. 😉

 

[Gégé-45550]

Bonjour,
Faute de retour du demandeur (il paraît que c'est d'usage, par correction), j'arrête de suivre ce fil et ne répondrai plus à aucune demande de ce membre.

 

[TooFatBoy]

Faute de retour du demandeur (il paraît que c'est d'usage, par correction), j'arrête de suivre ce fil et ne répondrai plus à aucune demande de ce membre.

C'est à cause du décalage horaire entre la France et la Belgique : il y a 24 heures de décalage. 😉