Besoin d'aide pour améliorer un macro copie feuille.

[Albafica]

Bonsoir à tous,

J'actualise actuellement ce macro qui me permets de faire une copie de la page actuelle, et me mets un msg d'erreur si je ne suis pas sur la dernière feuille. La copie s'appelle FeuilX X étant le chiffre de la position de l'onglet de la dite feuille.

J'aimerais aller en plus loin à savoir : que la page copié ne soit pas l'actuelle mais la feuille "FactureType" tout en conservant le message d'erreur et j'aimerais que la feuille qui se copie se nomme "FactureX" et s'incréments toujours de la position ou même de son propre compteur si cela n'est pas trop complexe !

Merci à ceux que qui prendront le temps de m'aider je prends toute aide / piste.

Alba.

Sub copie()
If ActiveSheet.Index <> Sheets.Count Then MsgBox _
"Attention, vous n'êtes pas sur la dernière facture", vbInformation: Exit Sub

Application.ScreenUpdating = False

Cells.Copy
Sheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Paste
ActiveSheet.Range("a1").Select
Application.CutCopyMode = False
ActiveWindow.Zoom = 150
End Sub|

 

[Pierrot93]

Re : Besoin d'aide pour améliorer un macro copie feuille.

Bonjour,

J'aimerais aller en plus loin à savoir : que la page copié ne soit pas l'actuelle mais la feuille "FactureType"

essaye avec cette instruction :

Sheets("FactureType")Cells.Copy

ensuite tu peux peut être faire ainsi :

Sheets.Add(after:=Sheets(Worksheets.Count)).Name = "facture" & Worksheets.Count + 1

bonne journée
@+

 

[Albafica]

Re : Besoin d'aide pour améliorer un macro copie feuille.

Au top ! Merci Pierrot93.

Je test ça vite et reviens vers vous.

 

[Albafica]

Re : Besoin d'aide pour améliorer un macro copie feuille.

Alors je viens de tester : Sheets("FactureType")Cells.Copy sur celle-ci j'ai un erreur de Syntaxe sur l'autre c'est parfait.

Si qqn voit le soucis ?

Merci

 

[Pierrot93]

Re : Besoin d'aide pour améliorer un macro copie feuille.

Bonjour,

Alors je viens de tester : Sheets("FactureType")Cells.Copy sur celle-ci j'ai un erreur de Syntaxe sur l'autre c'est parfait.

Aarf.. autant pour moi il manque un point :

Sheets("FactureType").Cells.Copy

désolé...

bonne journée
@+

 

[Albafica]

Re : Besoin d'aide pour améliorer un macro copie feuille.

C'est juste parfait merci encore Pierrot.