Formule pour copier des bordures d'un fichier a un autre..
Je dessine avec le crayon ''tracé un trait'' et j'aimerais que ce dessin soit reproduit d'un fichier a un autre.
Merci de votre attention
feuille de calcul.
Public Sub CopyForme() Dim forme As Object For Each forme In ActiveSheet.Shapes ActiveSheet.Shapes.Range(Array(forme.Name)).Select 'pour avoir le nom de la forme Selection.Copy Sheets("Feuil2").Paste 'copy sur la feuille 2 Next End Sub
