Microsoft 365 Macro VBA pour copier des feuilles particulières

[driss Kor]

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.

 

[wDog66]

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.

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

 

[driss Kor]

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.

 

[job75]

Bonjour,

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

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+

 

[driss Kor]

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

 

[job75]

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+

 

[driss Kor]

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+

Non elles sont pas protégées !

 

[job75]

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

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

 

[driss Kor]

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.

 

[wDog66]

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

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

A+

 

[driss Kor]

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

👏👏🙏🙏🙏

 

[wDog66]

Re,

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

 

[job75]

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

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.

 

[driss Kor]

ça marche aussi Merci beaucoup.

 

[job75]

ça marche aussi Merci beaucoup.

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