Copier un workbook avec les valeurs de sheets

[maxoverfred]

Quelques questions

J'ai un classeur d'ouvert avec 10 feuilles, 2 d'entre elles doivent être copier dans un nouveau classeur et je dois copier uniquement les valeurs (et non les references et les formules)

Jusqu'ici, j'arrive a copier mes deux feuilles mais je n'arrive pas à lui spécifier qu'il s'agit d'un PasteSpecial avec les valeurs à copier


Quelqu'un peut m'aider ??? Un grand merci


---------------------------------
Voici mon code actuel:

Dim ShArr As Variant
ReDim ShArr(1 To 1)
flag = False
For Each sht In Worksheets
If sht.Name = 'Sheet1' Or sht.Name = 'Sheet2' Then
If sht.Visible = True Then
If flag Then
ReDim Preserve ShArr(1 To UBound(ShArr) + 1)
End If
flag = True
ShArr(UBound(ShArr)) = sht.Name
End If
End If
Next
Set bksrc = ActiveWorkbook
Worksheets(ShArr).Copy
Set bkdest = ActiveWorkbook
bkdest.SaveAs Filename:='toto' & Format(Date, 'mmmm') & '.xls'

 

[myDearFriend!]

Bonsoir maxoverfred,

Ci-dessous, une façon (je crois) d'arriver au résultat souhaité :

Option Explicit
'A COPIER DANS UN MODULE DE CODE GENERAL (EX : MODULE1)
Sub Traitement()
      With ThisWorkbook
            'Sheet1
            If .Sheets('Sheet1').Visible Then
                  Sheets('Sheet1').Copy
                  SupprLiensEtFormules
            End If
            'Sheet2
            If .Sheets('Sheet2').Visible Then
                  If ActiveWorkbook.Name <> .Name Then
                        .Sheets('Sheet2').Copy After:=ActiveWorkbook.Sheets(1)
                  Else
                        .Sheets('Sheet2').Copy
                  End If
                  SupprLiensEtFormules
            End If
      End With
      'Sauvegard nouveau classeur
      ActiveWorkbook.SaveAs Filename:='toto' & Format(Date, 'mmmm') & '.xls'
End Sub

Sub SupprLiensEtFormules()
'Suppression liens et formules
      With ActiveSheet.Cells
            .Copy
            .PasteSpecial Paste:=xlPasteValues
            .Hyperlinks.Delete
      End With
      Application.CutCopyMode = False
End Sub

 

[Maxoverfred]

Merci c'est presque cela, car apparemment il a toujours un problème pour les cels avec #N/A... une solution ??

car en plus de cela je dois garder évidemment le layout de mon tableau

Message édité par: maxoverfred, à: 04/05/2005 09:26