Enregistrement 2 fichiers suivant 1 bouton

[delouest]

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.

 

[Guest]

Re : Enregistrement 2 fichiers suivant 1 bouton

bonjour,

Il suffit d'appeler la méthode .Save sur le second Fichier:

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
           On Error Resume Next 'au cas où le fichier ne serait pas ouvert
           Workbooks("CNOMO.xlsx").Save
           On Error GoTo 0
             MsgBox "les deux fichiers sont enregistrés"
         Else
             MsgBox "Attention: il faut un numéro d'OF"
         End If
 End Sub

A+