Discussion :

[DerJul]

Bonjour

Voilà je cherche comment faire pour copier ma première feuille excel (qui est ma feuille de prévision pour des clients ) dans une autre feuille excel pour la sauvegarder.
En effet je fais une prévision/ an et je remets ensuite "à 0" cette fiche dédiée à un client unique mais je souhaite conserver une trace des années précédentes.

J'ai essayer de le faire avec une macro simplifiée où j'enregistrais mes actions (copier la feuille, créer une nouvelle feuille, coller avec la bonne dimension des colonnes) mais cela ne fonctionne pas

Toute aide est la bienvenue ^^

DerJul

[rjamin]

Bonjour,
Voilà une macro enregistrée pour faire une copie d'une feuille appellée test et sa copie ser a test(2)

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Sheets("test").Select
    Sheets("test").Copy Before:=Sheets(1)
End Sub

[DerJul]

Merci de votre réponse cela fonctionne mais je voudrais également automatiser le renommage de la nouvelle feuille crée en "sauvegarde 1".."sauvegarde 2" etc.

Comment puis-je le faire ?

[GuyXL]

Bonjour DerJul, Rjamin,

Une proposition :

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 Macro1()
Dim i%, j%, b%
    Sheets("test").Copy Before:=Sheets(1)
    Do
        j = j + 1
        b = False
        For i = 1 To Worksheets.Count
            If Worksheets(i).Name = "sauvegarde " & j Then
                b = True
                Exit For
            End If
        Next i
    Loop Until Not b
    ActiveSheet.Name = "sauvegarde " & j
End Sub

Cordialement

R

[rjamin]

Re,

Je constate que GuyxL a été plus rapide que moi et sa proposition devrait vous convenir.
Bon travail

[DerJul]

MERCI ! Cela fonctionne très bien ^^

Dernière petite question, j'ai associé cette macro à un bouton "sauvegarde" et j'aimerai qu'en cliquant dessus cela fasse exactement ce que vous m'avez envoyé mais me laisse / me ramène tout de suite sur la 1ère feuille (pour éviter d'écraser la sauvegarde sans faire attention..)

[DerJul]

En fait c'était simple j'avais oublié d'écrire Range devant ma ligne

Merci de votre aide à tous les deux,

topic résolu


(J'ai d'autres questions à poser je vais ouvrir un autre topic)

édit : http://www.developpez.net/forums/d11...u/#post6092071