déplacer/copier

[Stéphane]

Bonjour à tous,
J'ai réussi(grace au forum) à automatiser la copie d'une feuille dans un nouveau fichier via une macro, mais lors de l'utilisation de ce nouveau fichier, lors de l'ouverture il me demande si je veux faire le lien avec le fichier original.
Comment éviter cela ? comment éviter de copier la formule tout en laissant les données ?
Merci d'avance
Stef

 

[_Thierry]

Bonsoir Stéphane, le Forum

Pour pour t'aider au miux il aurait été interressant d'avoir sous les yeux le code que tu utilises pour ta copie de feuille.

Voici un exemple qui anihilera toutes liaison ou formules de la feuille active :

Sub CopyValueOnly()
Dim Plage As Range

Set Plage = ActiveSheet.UsedRange

With Plage
    .Copy
    .PasteSpecial xlPasteValues
End With

Range('A1').Select
Application.CutCopyMode = False
End Sub

Bonne soirée
[ol]@+Thierry[/ol]

 

[Stéphane]

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