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

Export (copy) cellules d'une feuille vers un autre classeur

  • Initiateur de la discussion Initiateur de la discussion Riko
  • Date de début Date de début

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 !

Riko

XLDnaute Occasionnel
Bonjour,
je souhaiterais pouvoir exporter (ou copier), le contenu + le format d'une feuille vers un autre classeur excel.
Seul bémol, le contenu des cellules est donné par des formules.
Je voudrais exporter que le résultat de la formule non pas la formule.

J'ai essayer avec "Sheets("mafeuille").Copy mais la formule est copiée.
Merci d'avance pour votre aide.
 
Re : Export (copy) cellules d'une feuille vers un autre classeur

Bonsoir Riko

Après la copie de ta feuille il faut faire un copier/collage spécial de tes cellules
Code:
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues

A+

Edit : oups😉 bonsoir AYB
 
Re : Export (copy) cellules d'une feuille vers un autre classeur

Bonjour,
merci de vos réponses, j'ai compris les manips, il faut que je regardes un peu mieux car j'ai plusieurs choses à copier (lagueur col / formats etc).
@ bientôt sur un autre topic
 
Re : Export (copy) cellules d'une feuille vers un autre classeur

Salut Riko,

il faut que je regardes un peu mieux car j'ai plusieurs choses à copier (lagueur col / formats etc).
Et bien tout ça est copié avec ta feuille !?

Ensuite le code donné ne fait que remplacer les formules par leurs valeurs ...

A+
 
Re : Export (copy) cellules d'une feuille vers un autre classeur

Oui exact mais je n'utilise pas copy car cela me copiait le bouton qui lance ma macro alors voici ce que j'ai fait.
Code:
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Cells.Select
    End With
 
- 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

Réponses
3
Affichages
326
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…