Créer une feuille Excel et y copier les données d'une autre

Résolu/Fermé
titikio Messages postés 3 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 26 mars 2013 - 24 janv. 2013 à 16:07
baladur13 Messages postés 43113 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 4 octobre 2022 - 28 janv. 2013 à 10:24
Bonjour,

Je souhaiterais connaître le code me permettant de créer une nouvelle feuille dans Excel, en la nommant avec le contenu de la cellule B3 de ma feuille d'origine.
La valeur de la cellule B3 sera la combinaison entre la date du jour et un nombre à 4 chiffres.

Ensuite, une fois cette feuille créée, je souhaiterait copier toutes les données de ma feuille d'origine et les coller dans la nouvelle feuille.

Tout ceci dans le but de faire une sauvegarde journalière de l'activité de mes collaborateurs.

6 réponses

eriiic Messages postés 24453 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 4 octobre 2022 7 136
25 janv. 2013 à 13:31
Bonjour,

Effectivement, je n'avais pas assez testé, sorry.
Voilà qui doit être mieux.
Sub DupliquerFeuille()
    Dim sh As Worksheet, sh2 As Worksheet
    Set sh = ActiveSheet
    For Each sh2 In Worksheets
        If sh2.Name = [B3] Then
            Sheets([B3].Value).Activate
            If MsgBox("Feuille " & [B3] & " existante. La supprimer ?", vbCritical + vbYesNo) = vbNo Then
                sh.Activate
                Exit Sub
            Else
                Application.DisplayAlerts = False
                Sheets([B3].Value).Delete
                Application.DisplayAlerts = True
                Exit For
            End If
        End If
    Next sh2
    sh.Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = [B3]
    sh.Activate
End Sub 

https://www.cjoint.com/c/CAznFbeGn5n

eric
1
via55 Messages postés 13889 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 4 octobre 2022 2 490
24 janv. 2013 à 21:45
Bonjour,

Il faut te servir de l'enregistreur de macro

Onglet Developpeur Enregistrer une macro

Tu fais toutes tes manipulations puis tu arrêtes l'enregistrement et tu va voir dans Macros le code (Pas à pas détaillé)

Tu peux ensuite appeler la macro Macros Exécuter

ou créer un bouton qui lancera la macro quand on clique dessus
0
Roberto 1959 Messages postés 24 Date d'inscription samedi 19 janvier 2013 Statut Membre Dernière intervention 27 février 2013
24 janv. 2013 à 21:46
Bonjour,
Pourquoi ne pas faire une sauvegarde dans un autre classeur, soit en faisant "fichier enregistrer sous" soit en utilisant un petit logiciel de sauvegarde.
Si tu perds ton fichier ou s'il est endommagé tu pourras ainsi le récupérer.
Cordialement
0
eriiic Messages postés 24453 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 4 octobre 2022 7 136
24 janv. 2013 à 23:57
Bonsoir,

Agit sur la feuille active :
Sub DupliquerFeuille()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    On Error GoTo suite
    Sheets([B3]).Activate
    On Error GoTo 0
    If MsgBox("Feuille " & [B3] & " existante. La supprimer ?", vbCritical + vbYesNo) = vbNo Then
        Exit Sub
    End If
    Application.DisplayAlerts = False
    Sheets([B3]).Delete
    Application.DisplayAlerts = True
suite:
    On Error GoTo 0
    sh.Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = [B3]
    sh.Activate
End Sub

Si la feuille est existante la macro te l'affiche, te propose de la supprimer pour continuer ou abandonner.
Attention aux caractères interdits dans B3 (/ par exemple).

eric
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
titikio Messages postés 3 Date d'inscription jeudi 24 janvier 2013 Statut Membre Dernière intervention 26 mars 2013
25 janv. 2013 à 08:22
Bonjour à tous,

Eriiic, ta macro duplique bien la feuille active, mais ne la nomme pas avec le contenu de la cellule B3 .
De plus, j'ai un message d'erreur 1004, qui me dit qu'il est impossible de renommer une feuille comme une autre.
0
Bonjour Eriiic,

C'est exactement ça qu'il me fallait.

Merci pour ton aide précieuse.

Titikio
0
baladur13 Messages postés 43113 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 4 octobre 2022 13 144
28 janv. 2013 à 10:24
0