Discussion :

[a.ouguerzam]

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

[kiki29]

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

[Menhir]

Histoire de nettoyer ton code de ce qui est inutile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a.ouguerzam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Débriefing").PrintOut

merci d'avance

[Menhir]

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.

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 ?

[a.ouguerzam]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PrintOut

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