archiver une image

[terpick]

Bonjour, le Forum!

J'archive un onglet avec l'aide de cette macro

Sub archiver_facture()
    Dim NomFeuille As String
    NomFeuille = GetNewName()
    Columns("A:L").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = NomFeuille
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
                         , SkipBlanks:=False, Transpose:=False
    Cells.Select
    ActiveWindow.DisplayGridlines = False
    Range("E16").Select
    Sheets("matrice").Select
    Range("K1").Value = Range("K1").Value + 1
End Sub

J'ai un petit problème:

une image sur la feuille de départ ne apparait pas sur la feuille de destination.

Peut être quelqu'un peux m'expliquer qu'est-ce qu'il se passe?

Merci à vos conseils !

 

[Hippolite]

Re : archiver une image

Bonjour,
Fais un test sans macro, tu verras qu'un collage spécial ne recopie pas l'image, tandis qu'un collage tout bête le fait.
Je te laisse en tirer la concluion.

 

[terpick]

Re : archiver une image

Bonsoir, le Forum, Hippolite!
J'ai bidouillé un peu, ça marche une fois sur deux... Je pense que c'est le début des grands bogues .

A +, bonne soirée