Bonjour,

J’ai besoin de mettre un complément à mon code VBA que j’ai déjà dans un fichier qui archive la feuille sur un partage réseau
J’ai besoin de rajouter un commende qui permet de lancer l’impression ensuite archivé la feuille dans le partage ci-dessous le code qui j’ai de l’archivage :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Archivage()
 
n = Range("D12")
m = Range("D1")
    Sheets("Débriefing").Select
    Sheets("Débriefing").Copy
    Selection.Copy
    Sheets("Débriefing").Select
    Sheets("Débriefing").Name = Range("D12")
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "\\Af-fes-fs-01\commun\Commun SAI\Fiche de débriefing Hebdo\10- Octobre\ " & m & n & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub