M
maxoverfred
Guest
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'
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'