Enregistrement 2 fichiers suivant 1 bouton

Bonjour,

Je travaille sur 2 fichiers excel, sur le 1 er fichier (fiche auto contrôle TEST SAUV A35534) j'ai un bouton qui me permet d'enregistrer ce fichier en prenant la valeur de la cellule J5.

J'ai un 2ème fichier (CNOMO) qui permet de traiter les données du 1 er fichier et j'aimerai qu'en cliquant sur le bouton enregistrer je puisse d'une part enregistrer le 1er fichier sous le nom de la cellule J5 et enregistrer le second (sous le même nom d'origine).

J'espère avoir été assez clair.

Voici le code me permettant de sauvegarder le 1er fichier sous le nom de la cellule J5:

Private Sub cmd_Enregistrement_OF_Click()
        If Range("J5") <> "" Then
            'a vous de mettre le chemin correct
            chemin = "C:\Users\thomas\Desktop\pilotage tableaux excel\A35534"
            'sauvegarde en xlsm
           ActiveWorkbook.SaveAs Filename:=chemin & "\" & Range("I5") & Range("J5") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            MsgBox "fiche sauvegargée et archivée !"
            MsgBox "veuillez sauvegarder le fichier CNOMO avant de le fermer"
        Else
            MsgBox "Attention: il faut un numéro d'OF"
        End If
End Sub

Je vois pas comment intégrer l'enregistrement du second fichier.

Voici les fichiers, le mot de passe pour rentrer sur la fiche d'auto contrôle est "seb".

Merci d'avance.

up

Modifie ton code ainsi :

            'sauvegarde en xlsm
           ActiveWorkbook.SaveAs Filename:=chemin & "\" & Range("I5") & Range("J5") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            MsgBox "fiche sauvegargée et archivée !"
            'MsgBox "veuillez sauvegarder le fichier CNOMO avant de le fermer"
            Windows("CNOMO.xlsx").Activate
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Filename:=chemin &"\" & "CNOMO.xlsx"
        Else
            MsgBox "Attention: il faut un numéro d'OF"
        End If

Et si tu veux en même temps fermer le fichier CNOMO :

            'sauvegarde en xlsm
           ActiveWorkbook.SaveAs Filename:=chemin & Range("I5") & Range("J5") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            MsgBox "fiche sauvegargée et archivée !"
            'MsgBox "veuillez sauvegarder le fichier CNOMO avant de le fermer"
            Windows("CNOMO.xlsx").Activate
           ActiveWorkbook.Close True
        Else
            MsgBox "Attention: il faut un numéro d'OF"
        End If

OK ?

Bye !

Merci beaucoup !