Bonjour, j'ai un souci pour copier coller sur des feuilles variables.
J'ai un devis avec des feuilles "sous détail 1", "sous détail 2", selon les besoins d'une commande etc...
J'arrive à ajouter les feuilles, à copier la feuille devis mais c'est pour coller que je bloque je n'arrive pas à déclarer les variables correctement.
Voici le code que j'utilise :
Ce code est probablement truffé d'erreurs mais à 8h du mat j'ai pas les yeux en face des trous...
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 ExportCodeFeuille () Worksheets("Devis").Protect userinterfaceonly:=True Dim wAdd As Worksheet wAdd = Worksheets("Détail" + Str(Sheets.Count - 4)).Name Sheets.Add.Name = "Détail" + Str(Sheets.Count - 4) ActiveSheet.Move After:=Sheets("Devis") Sheets("Devis").Select Cells.Select Selection.Copy wAdd.Select ActiveSheet.Paste Application.CutCopyMode = False
Il accepte pas la ligne
l'indice n'appartient pas à la sélection. Si quelqu'un a une idée je suis preneur
Code : Sélectionner tout - Visualiser dans une fenêtre à part wAdd = Worksheets("Détail" + Str(Sheets.Count - 4)).Name
merci d'avance.
Partager