Copier coller un onglet et renommer

Le 12/05/2017 à 10:12

Bonjour,

pourriez vous m'aider svp

j'aurais souhaité faire la manipulation suivante :

Copier un onglet, le coller à droite du dernier onglet

renommer cet onglet avec le nom du mois et l'année "MAI-2017" par exemple

Sub copie_feuille()
Application.ScreenUpdating = False
Sheets.Add After:=Worksheets(Worksheets.Count) 'ajouter un onglet après le dernier existant
Sheets(Sheets.Count).Name = MonthName(Month(Date)) 'ajoute le mois comme nom d'onglet
Sheets("Recapitulatif mensuel").Select 'selectionne l'onglet récapitulatif mensuel
Cells.Select 'selectionne les cellules
    Selection.Copy 'copie les cellules selectionnées
    Sheets("mai").Select 'selectionne l'onglet mai (trouver comment selectionner l'onglet qui vient d'etre créer...)
    Cells.Select
    ActiveSheet.Paste 'colle les données
    Range("I10").Select 'se repositionne en I10
End Sub

peux etre que j'aurais du plutot faire un copier coller de l'onglet et renommer apres ?

Le 12/05/2017 à 10:31

Bonjour,

Sub copie_feuille()
    Dim nom$
    nom = UCase(MonthName(Month(Date))) & "-" & Year(Date)
    Application.ScreenUpdating = False
    Worksheets("Recapitulatif mensuel").Copy after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = nom
End Sub

Cordialement.

Le 12/05/2017 à 11:54

Bonjour MFerrand et merci bcp

comment empecher la création de l'onglet si il est déjà existant ?

sinon j'ai un message d'erreur "400" et l'onglet et créer par défaut sous le nom "Recapitulatif mensuel2"

Le 12/05/2017 à 12:06

Essaie ainsi :

Sub copie_feuille()
    Dim nom$
    nom = UCase(MonthName(Month(Date))) & "-" & Year(Date)
    Application.ScreenUpdating = False
    On Error Resume Next
    Worksheets(nom).Activate
    If Err.Number <> 0 Then
        Worksheets("Recapitulatif mensuel").Copy after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = nom
    End If
End Sub

Le 12/05/2017 à 12:12

ah du coup pas de création, nickel

je vais ajouter une msgbox pour informer

merci bcp

passes un bon week end

Le 15/05/2017 à 12:19

Bonjour à tous,

du coup le fichier a bien avancé , il manque juste la partie commentaire qui n'est pas traitée.

Dans l'onglet "saisie", lorsque l'on a un smiley rouge en résultat, il faudrait qu'une box (ou autre) s'affiche pour demander d'écrire un commentaire.

Exemple dans la case E13 on doit mettre un commentaire car le camion est arrivé en retard, comment puis je faire pour qu'à chaque fois que le resultat est nok, donc avec smiley rouge) on me demande de venir noter un commentaire ?

En E13 je dois mettre un commentaire si le camion n'arrive pas dans le créneau prévu ou si il ne part pas dans le créneau prévu.