XL 2013 fermer et ouvrir des classeurs

chaelie2015

XLDnaute Accro
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.

VB:
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+
 
Dernière édition:

Gégé-45550

XLDnaute Accro
Bonjour,
forçé et contraint par TooFatBoy qui est pourtant bien plus fort que moi ;), je propose l'écriture suivante :
VB:
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,
 

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400