Discussion :

[NikoTosic]

Bonjour,

Je souhaiterais copier une feuille1 Excel pour la coller sur une feuille2.

J'arrive à copier-coller les cellules mais les images n'arrivent pas sur la feuille2.

Y a-t-il un moyen de copier une feuille en incluant les éléments "flottants" tels que les images ?

J'ai cherché dans ce forum mais il est question de copier une image seule.

Merci d'avance.

Cordialement,

NikoTosic.

[Invité]

Bonjour,

Si vous copiez l'ensemble de la feuille 1 comme votre message semble l'indiquer, il est sans doute plus simple de dupliquer la feuille 1, de renommer la copie en supprimant préalablement la feuille 2 le cas échéant.

Cordialement.

[NikoTosic]

Bonjour,

Merci pour votre réponse.

J'ai pensé à la duplication. Seulement, la "feuille2" est une sorte d'archive accueillant autant de "feuille1" que possible.

En gros, en cliquant sur un bouton, les éléments de la "feuille1" se placeraient en dessous des éléments déjà présents dans "feuille2".

Je ne sais pas trop si c'est clair.

Merci d'avance,

NikoTosic.

[Marc-L]

Bonjour,

au lieu de copier les cellules, copier les lignes …




_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Invité]

En gros, en cliquant sur un bouton, les éléments de la "feuille1" se placeraient en dessous des éléments déjà présents dans "feuille2".

Vous devriez mettre votre code en ligne.

Cordialement.

[patricktoulon]

Bonjour

en effet je vois ton soucis
quand on utilise la formule (copie XXXX..... "destination=") les shapes et autres objects ne sont pas copiés

malheureusement et contre mon principe premier on utilisera des selects
un exemple qui fonctionne :

il te faut adapter le range a copier
si la copie ne doit pas se retrouver en colonne A il te faudra aussi adapter la recherche de derlig au lieu de 1 tu mettra l'index de colonne qui te convient
tu fera de même pour la cellule ou se pose

Code :

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

1
2
3
4
5
6
7
8
9
Sub copie_to()
   Sheets(1).Range("A4:D15").Copy ' on copy la plage du sheet de départ
    With Sheets("Feuil2") 'avec le sheets de destination
    .Select ' on le select (copie destination) ne prend pas les shapes 
    derlig = Cells(Rows.Count, 1).End(xlUp).Row + 1 ' on trouve la derniere ligne utilisée en colonne A et on ajoute 1
    Cells(derlig, 1).Select ' on se pose sur cette ligne
    .Paste 'on colle
End With
End Sub

[NikoTosic]

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
Worksheets("Synthèse_AM").Select
 
Cells.Select
Selection.Copy
 
For Each f In Workbooks
    If f.Name = "Archives Manutention.xls" Then estOuvert = True
Next
    If estOuvert = False Then
    Workbooks.Open ("\\Atlas.edf.fr\co\dpit-up-havre\Mission-RH.105\Etat-major.001\GPEC\GPEC Qualitative\ADP_2015\Archives Manutention.xls")
    End If
    Workbooks("Archives Manutention.xls").Worksheets("2014").Activate
    Workbooks("Archives Manutention.xls").Worksheets("2014").Select
    Range("A1").Select
    Selection.PasteSpecial
 
If estOuvert = False Then
    Workbooks("Archives Manutention.xls").Close savechanges:=True
    Else
    Workbooks("Archives Manutention.xls").Save
    End If
    estOuvert = False
Workbooks("ADP_AM1.xlsm").Activate
Range("A1").Select
 
MsgBox ("Fiche archivée !")

Je précise que le fichier archive est dans un autre classeur.

La feuille active au début est celui avec images et graphiques, d'où ma question.

Merci d'avance.

[patricktoulon]

re
quand tu utilise un paste special il faut l'argumenter sinon c'est choux blanc

un exemple correspondant au plus prêt

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
16
17
18
19
20
Sub test2()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Worksheets("Synthèse_AM").Cells.Copy
For Each f In Workbooks
    If f.Name = "Archives Manutention.xls" Then
        Workbooks("Archives Manutention.xls").Worksheets("2014").Activate
        Workbooks("Archives Manutention.xls").Worksheets("2014").Select
        Exit For
    Else
        Workbooks.Open ("\\Atlas.edf.fr\co\dpit-up-havre\Mission-RH.105\Etat-major.001\GPEC\GPEC Qualitative\ADP_2015\Archives Manutention.xls")
        Worksheets("2014").Select
        Exit For
    Next
    With ActiveSheet
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row +1
        .Cells(derlig, 1).Select
        .Paste
    End With
End Sub

[NikoTosic]

Merci beaucoup patricktoulon.

Ca marche bien.

[patricktoulon]

petit detail a savoir

paste special ne prend pas en charge les objects sauf les commentaire cellules
un paste simple ne fait pas de distinction il prend tout

[NikoTosic]

Merci,

Je comprends mieux certaines erreurs liées à PasteSpecial.