Copie feuille et la renommer et imprimer sous condition

Bonjour,

J'ai pris un code qui est posté sur le forum par Banzai,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim Nom As String

Dim NomUtil As String

Dim Compteur As Integer

If Not Intersect(Range("C7"), Target) Is Nothing And Target.Count = 1 Then

If Target = "" Then Exit Sub

Nom = Format(Range("c7"), "dd-mm")

NomUtil = Nom

Do While FeuilleExiste(NomUtil) = True

Compteur = Compteur + 1

NomUtil = Nom + " - " & Format(Compteur, "00")

Loop

Sh.Name = NomUtil

End If

End Sub

il fonctionne bien pour les feuilles existante, je voulais savoir si je peux l'adapter a mon cas et j'auaris besoin d'aide S'il vous plais

1 je souhaite a chaque fois que je copie une nouvelle feuille l'onglet prendra la date automatiquement renseigné en C7 ou une nouvelle date que je saisie ; j'ai utilisé le code ActiveSheet.Copy after:=ActiveSheet via un bouton mais ca marche pas visiblement pour moi.

Ensuite Je veux imprimer une feuille masquée dans le meme dossier, via le bouton imprimer en utilisant ce code

Sub Rectangle4_QuandClic()

Application.Dialogs(xlDialogPrinterSetup).Show

Sheets("IMPRESSION").Visible = True

Sheets("IMPRESSION").Activate

Sheets("IMPRESSION").PrintOut

Sheets("IMPRESSION").Visible = False

End Sub

des feuilles deja copié auparavant en transferant C11 et F10 de la feuille selectionnee vers c5 et c9 vers la feuille Impression et ainsi de suite.

Je vous joint l'exemple détaillé.

En vous remerciant d'avance

Bonjour tout le monde,

J'ai eu de l'aide pour la premiere partie grace a Mercatog sur un autre forum, mais j'ai encore un souci pour la deuxieme partie j'ai essayé ce code pour imprimer la feuille masquée a partir de n'importe quelle feuille du fichier, j'arrive a imprimer mais ca copie pas les cellule..

Sub Rectangle4_QuandClic()

Selection.Copy

Sheets("IMPRESSION").Select

Range("B9").Select

ActiveSheet.Paste

Sheets("12-12").Select

Range("F10").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("IMPRESSION").Select

Range("C9").Select

ActiveSheet.Paste

Application.Dialogs(xlDialogPrinterSetup).Show

Sheets("IMPRESSION").Visible = True

Sheets("IMPRESSION").Activate

Sheets("IMPRESSION").PrintOut

Sheets("IMPRESSION").Visible = False

End Sub

Quelqu'un peut m'aider S'il vous plait

A vous lire et merci d'avance

Bonsoir

Vérifies si c'est cela que tu recherches

Sub Rectangle4_QuandClic()

  Application.ScreenUpdating = False
  With Sheets("Impression")
    .Range("C5") = Range("C11")
    .Range("C9") = Range("F10")
    .Visible = xlSheetVisible
    .PrintPreview       ' Pour avoir aperçu avant impression
    ' Ou
    '.PrintOut           ' Pour impression directe
    .Visible = xlSheetHidden
  End With
End Sub

Bonjour,

Merci banzai c'est exactement ce que je veux !!

Au revoir