bonsoir thierry le forum
voici le code original, tout en sachant qu'il est issu de case à cocher qui sélectionnent les pages à copier, ces meme page dont je veux copier les valeurs et non les formules lors de l 'enregistrement :
Private Sub CommandButton1_Click()
'
Dim chemin As Variant
'
'
If EVS2 = False And Dp2 = False And RP2 = False Then 'pas checkbox cochées
MsgBox 'Vous devez selectionner au moins une feuille', vbInformation + vbOKOnly
Exit Sub
ElseIf EVS2 = True And Dp2 = False And RP2 = False Then
Sheets(Array('EVS2')).Select ' selectionne la feuille
Sheets('EVS2').Activate
Sheets(Array('EVS2')).Copy 'la copie
ElseIf EVS2 = False And Dp2 = True And RP2 = False Then
Sheets(Array('DP2')).Select
Sheets('DP2').Activate
Sheets(Array('DP2')).Copy
ElseIf EVS2 = False And Dp2 = False And RP2 = True Then
Sheets(Array('RP2')).Select
Sheets('RP2').Activate
Sheets(Array('RP2')).Copy
ElseIf EVS2 = True And Dp2 = True And RP2 = False Then
Sheets(Array('EVS2', 'DP2')).Select
Sheets('DP2').Activate
Sheets(Array('EVS2', 'DP2')).Copy
ElseIf EVS2 = True And Dp2 = False And RP2 = True Then
Sheets(Array('EVS2', 'RP2')).Select
Sheets('RP2').Activate
Sheets(Array('EVS2', 'RP2')).Copy
ElseIf EVS2 = False And Dp2 = True And RP2 = True Then
Sheets(Array('DP2', 'RP2')).Select
Sheets('RP2').Activate
Sheets(Array('DP2', 'RP2')).Copy
ElseIf EVS2 = True And Dp2 = True And RP2 = True Then
Sheets(Array('EVS2', 'DP2', 'RP2')).Select
Sheets('RP2').Activate
Sheets(Array('EVS2', 'DP2', 'RP2')).Copy
End If
'
chemin = (Range('b18').Value & '_' & Range('b24').Text)
'enregistre sous
ActiveWindow.Application.Dialogs(xlDialogSaveAs).Show (chemin)
ActiveWindow.Close 'ferme le nouveau classeur
Sheets('dpx').Select
Range('b18').Select 'revient sur accueil
End Sub
Merci encore
Stef