Microsoft 365 Macro VBA pour copier des feuilles particulières

wDog66

XLDnaute Impliqué

• 22 Avril 2025

• #2

driss Kor à dit:

Bonjour,

Je travail sur un fichier excel et je voudrais par vba créer une copie des deux feuilles "Acceuil et Détail" sur un nouveau classeur et remplacer les formules par leur valeur sur ces nouvelles feuilles avant de l'envoyer
Plage de formule a remplacer par leur valeur [ feuille Acceuil C8:J13 ], [ feuille détail C6:I38 ].

Si quelqu'un peut m'aider ça serai génial.

Cliquez pour agrandir...

Bonjour,
Il suffit pour ça d'utiliser l'enregistreur de macros 🙄
A+

 

Vote positif 0 Vote négatif

D

driss Kor

XLDnaute Nouveau

• 22 Avril 2025

• #3

Merci wDog66, ce n'est pratique car aprés avoir créer une copie le fait de copier les plages et les coller en valeur ne marche pas.
Y t il une autre solution svp.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Avril 2025

• #4

Bonjour,

Ecrivez correctement "Accueil" SVP et exécutez cette macro :

VB:

Sub Copier()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("Accueil", "Détail")).Copy 'nouveau document
With ActiveWorkbook
    For Each w In .Worksheets
        w.UsedRange = w.UsedRange.Value 'supprime les formules
    Next
    .SaveAs ThisWorkbook.Path & "\Copie.xlsx", FileFormat:=51 'enregistrement
    .Close False
End With
End Sub

En effet il y a des choses que l'enregistreur ne ferait pas.

A+

 

Pièces jointes

• Test VBA.xlsm

  23.9 KB · Affichages: 14

Vote positif 0 Vote négatif

D

driss Kor

XLDnaute Nouveau

• 23 Avril 2025

• #5

Re-bonjour,
Merci Job75 pour ce code
J'ai essayé ce code mais ça bloque sur "UsedRange" peut être parceque j'ai beaucoup de feuilles.

------------------------------------------------------
Sub Copy_Sheets()

Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("Home Global", "Per Manager", "DetailsReport", "APDetailsReport", "FollowUpReport", "STAR", "LSReport", "CoachReport", "AuditReport")).Copy 'nouveau document
With ActiveWorkbook
For Each w In .Worksheets
w.UsedRange = w.UsedRange.Value 'supprime les formules
Next
.SaveAs ThisWorkbook.Path & "\OnePageReport.xlsx", FileFormat:=51 'enregistrement
.Close False
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Avril 2025

• #6

Bonjour driss Kor,

Si des feuilles sont protégées bien sûr il y a bug, je ne vois pas d'autres raisons.

A+

 

Vote positif 0 Vote négatif

D

driss Kor

XLDnaute Nouveau

• 24 Avril 2025

• #7

job75 à dit:

Bonjour driss Kor,

Si des feuilles sont protégées bien sûr il y a bug, je ne vois pas d'autres raisons.

A+

Cliquez pour agrandir...

Non elles sont pas protégées !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2025

• #8

Alors c'est dû à quoi ? Sans fichier je ne vois pas.

Au moins dites-nous quel est le message d'erreur.

 

Vote positif 0 Vote négatif

D

driss Kor

XLDnaute Nouveau

• 24 Avril 2025

• #9

Bonjour Job75,


Voici le message d'erreur, les feuilles sont sous forme de Tableau, ça termine le copier puisque toutes les feuilles ont été déplacée vers le nouveau classeur mais seulement les 3 premières feuilles que la macro réussie à mettre les valeurs à la place des formules.
Je ne peux pas partager le fichier vu que se sont des données liées à au travail.

 

Dernière édition: 24 Avril 2025

Vote positif 0 Vote négatif

wDog66

XLDnaute Impliqué

• 24 Avril 2025

• #10

Bonjour à vous 2
Si je puis me permettre, pourquoi ne pas utiliser 🤔

VB:

    For Each w In .Worksheets
      w.Cells.Copy
      w.Cells.PasteSpecial xlPasteValues
    Next

A+

 

Vote positif 0 Vote négatif

Solution

D

driss Kor

XLDnaute Nouveau

• 24 Avril 2025

• #11

Merci wDog66, ça a marché
Merci Job75 pour le temps accordé

👏👏🙏🙏🙏

 

Vote positif 0 Vote négatif

wDog66

XLDnaute Impliqué

• 24 Avril 2025

• #12

Re,

Voilà pourquoi j'évite toujours l'ancienne école avec les "UsedRange" 😜

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2025

• #13

Pour en avoir le cœur net essayez quand même :

VB:

For Each w In .Worksheets
    With w.UsedRange
        .Value = .Value 'supprime les formules
    End With
Next

Si ça fonctionne cela prouvera que le problème venait de la modification du UsedRange quand on le lit.

 

Vote positif 0 Vote négatif

D

driss Kor

XLDnaute Nouveau

• 24 Avril 2025

• #14

ça marche aussi Merci beaucoup.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2025

• #15

driss Kor à dit:

ça marche aussi Merci beaucoup.

Cliquez pour agrandir...

Donc il suffit de prendre des précautions pour que l'ancienne école UsedRange fonctionne 😊

 

Vote positif 0 Vote négatif