Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 VBA copie feuille et colle sans Objet (Shape-Image)

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

CGU2022.

XLDnaute Junior
Bonjour a tous...
Tout d'abord je suis très content d'être inscrit sur "Excel Downloads", vous m'êtes d'une très grande aide et mes sauveurs.. 👍👍👍

Mon problème du jour:
J'ai une macro qui me copie une feuille (cette feuille est assez lourde en vba images).
Elle copie donc cette feuille, crée un nouveau fichier et colle.. pas de problème tout cela marche.
Mon souci: Je ne veux pas coller: les images, objets et divers
Seulement les valeurs et la mise en forme...

Avez vous une idée ?


Public Sub Macro1()
Dim CC As Workbook 'déclare la variable CC (Classeur Copié)
Dim F As Worksheet 'déclare la variable CC (Classeur Copié)

'crée un nouveau classeur avec l'onglet Facture et le dernier onglet
ActiveSheet.Copy '''''''''''Sheets(Array("Facture ", Sheets(Sheets.Count).Name)).Copy 2feuilles
Set CC = ActiveWorkbook 'définit la classeur copié CC
Set F = ActiveSheet

F.Select 'sélectionne l'onglet F
Cells.Select
Cells.Copy 'copie toutes les cellules

Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

F.Range("A1").Select 'sélectionne la cellule A1

F.Select 'sélectionne l'onglet F (facultatif)
Application.CutCopyMode = False 'supprime le clignotement lié à la copie
End Sub
 
Solution
Bonsoir

VB: 
Public Sub Macro1()
Dim CC As Workbook 'déclare la variable CC (Classeur Copié)
Dim F As Worksheet 'déclare la variable CC (Feuille Classeur Copié)

'crée un nouveau classeur avec l'onglet Facture et le dernier onglet
Dim C As Workbook  'déclare la variable C (Classeur Source)
Dim CF As Worksheet 'déclare la variable CF (Feuille Classeur Source)
Set C = ActiveWorkbook
Set CF = C.Worksheets(ActiveSheet.Name)
    CF.Unprotect "MotDePasse" ' Le mot de passe de la feuille (Feuille Classeur Source) : exemple : "MotDePasse"
    CF.Copy ' Copier cette Feuille dans un nouveau classeur
Set CC = ActiveWorkbook 'définit le classeur copié CC
Set F = CC.Worksheets(ActiveSheet.Name) 'définit la feuille copié F
    F.DrawingObjects.Delete...
Trier par date Trier par votes
Bonjour,

VB: 
Public Sub Macro1()
Dim CC As Workbook 'déclare la variable CC (Classeur Copié)
Dim F As Worksheet 'déclare la variable CC (Classeur Copié)

'crée un nouveau classeur avec l'onglet Facture et le dernier onglet
Sheets(ActiveSheet.Name).Copy ' Copier cette Feuille dans un nouveau classeur
Set CC = ActiveWorkbook 'définit le classeur copié CC
Set F = CC.Worksheets(ActiveSheet.Name) 'définit la feuille copié F
    F.DrawingObjects.Delete 'Supprime tous : les images, objets et divers de la feuille copié F
End Sub
 
Vote positif 0 Vote négatif
Bonjour CGU, bonjour le forum,

Essaie avec mon code modifié :
VB: 
Public Sub Macro2()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variabvle CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim OJ As Shape 'déclare la variable OJ (ObJet)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set CS = ThisWorkbook 'définit la classeur source CS
Set OS = CS.ActiveSheet 'définit l'onglet source
OS.Copy 'copie l'onglet source dans un classeur vierge
Set CD = ActiveWorkbook 'définit la classeur destination
Set OD = CD.Worksheets(1) 'définit l'onglet destination
OD.Cells.Copy 'copie les cellules de l'onglet OD
OD.Range("A1").PasteSpecial xlPasteValues 'colle les valeurs dans A1 de l'onglet OD
Application.CutCopyMode = False 'supprime le clignotement lié à la copie
For Each OJ In OD.Shapes 'boucles sur tous les objects OJ de l'onglet OD
    OJ.Delete 'supprime l'objet
Next OJ 'prochain objet de la boucle
OD.Range("A1").Select 'sélectionne la cellule A1
End Sub
 
Vote positif 0 Vote négatif
Merci vos deux solutions fonctionnent sur un fichier test....

Mais J'ai oublier de mentionner que dans mon fichier de travail la feuille à copier est protégée par mdp
et que la copie ne doit pas prendre les macro et verrouiller la nouvelle feuille.
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir

VB: 
Public Sub Macro1()
Dim CC As Workbook 'déclare la variable CC (Classeur Copié)
Dim F As Worksheet 'déclare la variable CC (Feuille Classeur Copié)

'crée un nouveau classeur avec l'onglet Facture et le dernier onglet
Dim C As Workbook  'déclare la variable C (Classeur Source)
Dim CF As Worksheet 'déclare la variable CF (Feuille Classeur Source)
Set C = ActiveWorkbook
Set CF = C.Worksheets(ActiveSheet.Name)
    CF.Unprotect "MotDePasse" ' Le mot de passe de la feuille (Feuille Classeur Source) : exemple : "MotDePasse"
    CF.Copy ' Copier cette Feuille dans un nouveau classeur
Set CC = ActiveWorkbook 'définit le classeur copié CC
Set F = CC.Worksheets(ActiveSheet.Name) 'définit la feuille copié F
    F.DrawingObjects.Delete 'Supprime tous : les images, objets et divers de la feuille copié F
CF.Protect "MotDePasse"  ' Le mot de passe de la feuille (Feuille Classeur Source) : exemple : "MotDePasse"
' Enregistre le classeur sans VBA
ActiveWorkbook.SaveAs Filename:= _
C.Parent.DefaultFilePath & "\" & CF.Name & "test.xlsx" _
, FileFormat:=xlWorkbookDefault, CreateBackup:=False
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
👍 👍 👍 👍
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
1 K
kiki29
D
  • Question Question
XL 2016 Button copier coller cellules indépendantes VBA autre feuille
Réponses
7
Affichages
1 K
vgendron
F
  • Résolu(e)
XL 2016 Copier coller VBA
Réponses
2
Affichages
2 K
FeeZ
F
O
  • Question Question
XL 2016 Problème de copier coller VBA
Réponses
4
Affichages
2 K
cp4
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
C
  • Question Question
XL 2016 Code VBA copier une valeur sur une plage de données dont les cellules de début et fin varient
Réponses
2
Affichages
4 K
CD38
C
M
  • Question Question
Macro pour copier/coller une shape vers une autre feuille
Réponses
4
Affichages
5 K
Staple1600
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
  • Question Question
Enregistrer une feuille dans un autre classeur
Réponses
8
Affichages
2 K
PAPA WALKER
S
  • Question Question
XL 2010 Aide modification Code VBA
Réponses
11
Affichages
2 K
Shpountz
S
M
  • Question Question
XL 2013 (VBA) Modifier mise en forme d'une cellule d'une autre feuille
Réponses
0
Affichages
870
mestrod
M
A
  • Question Question
Problème dans le code d'une macro pour copier coller des valeurs
Réponses
6
Affichages
2 K
Papou-net
  • Question Question
Petit soucis dans ma macro
Réponses
4
Affichages
944
karakoman1
M
  • Question Question
[RESOLU] VBA EXCEL - Problème d'exécution de boucle et collage valeur formule
Réponses
2
Affichages
9 K
Minh
M
C
  • Question Question
vba copier cellules sans ouvrir fichiers
Réponses
2
Affichages
7 K
cidkad
C
B
  • Question Question
Alléger un code VBA + Exporter feuille
Réponses
2
Affichages
2 K
butagaz38
B
  • Question Question
copier/coller sélection + objets en vba dans nouveau classeur
Réponses
4
Affichages
15 K
JerCaz
  • Question Question
Vba - copier des données d'une autre feuille dans quitter la feuille active
Réponses
3
Affichages
5 K
Sofhy
G
  • Question Question
Copier/coller feuille via macro et la renommer avant enregistrement
Réponses
1
Affichages
2 K
PMO2
P
G
  • Question Question
Améliorer Créer nouveau classeur et copier/coller données
Réponses
6
Affichages
1 K
gerson94
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…