Discussion :

[mah.ngaz]

Bonjour,

J'aimerais coder une macro VBA qui copie en valeurs toutes les feuilles d'un classeur Excel ouvert, puis les sauvegarde sous un nom choisi par l'utilisateur.

L'idée étant d'obtenir un classeur parfaitement identique si ce n'est queles liens qui existaient entre les feuilles (dans le classeur d'origine) soient rompues et que l'on ait que des valeurs.

Je ne sais pas si cela est confus ou très clair
Merci d'avance pour votre aide.

[Guiiand]

Bonjour,

A copier dans un module du classeur en question.

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
Sub ValeurValeur()
 
Dim Wb As Workbook
Dim MaPlage As Range
 
Set Wb = ThisWorkbook
 
For Each Sh In Wb.Worksheets
    Set MaPlage = Sh.UsedRange
        MaPlage.Value = MaPlage.Value
Next
 
Application.Dialogs(xlDialogSaveAs).Show
 
End Sub

[mah.ngaz]

Merci beaucoup,

ca marche parfaitement.