Lancer une impression feuille via VBA

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:

---

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

---

Salut, l'enregistreur de macros te fournira un embryon de code. Le code que tu fournis parait boiteux et contient des surabondances inutiles.

Histoire de nettoyer ton code de ce qui est inutile :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Archivage() With Sheets("Débriefing") .Name = .Range("D12") End With 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

---

Ca devrait faire exactement la même chose que ton code.

Personnellement, j'aurais volontier aussi supprimé la ligne ActiveWindow.Close qui me semble dangereuse.

Pour ce qui est de l'impression, il suffit d'appliquer la méthode PrintOut à l'objet Worksheet que tu veux imprimer ou à ActiveWorkbook si tu veux imprimer le classeur entier (tu ne le précises pas dans la question).
Regarde la syntaxe de cette méthode dans l'aide VBA intégrée à Excel.
Tu peux aussi regarder ça : http://silkyroad.developpez.com/VBA/...lcul/#LII-A-19

bonjour
merci bcq pour le nettoyage de mon code j'ai rajouter le code ci dessous pour lancer l'impression mais ca marche toujours pas :

Code:

---

Worksheets("Débriefing").PrintOut

---

merci d'avance

Premièrement, as-tu regardé la syntaxe de la méthode PrintOut dans l'aide VBA d'Excel ?
Balancer comme ça du code dans son programme sans même savoir exactement ce que ça fait ni comment ça s'utilise, c'est rarement une bonne idée.

Citation:

---

j'ai rajouter le code ci dessous pour lancer l'impression mais ca marche toujours pas :

---

Tu demandes à ton code d'imprimer une feuille en lui donnant un nom que tu as changé juste avant.
Tu n'as pas l'impression qu'il y a une bizarrerie là-dedans ?

bonjour j'ai trouver une solution tres simple il faut just ajouter le code ci dessous a la fin du code et ca marche

Code:

---

ActiveSheet.PrintOut

---

mon but moi d'imprimer la feuille sur la quel je suis.
merci de votre aide et pour les informations donné.