Copie d'un fichier vers un autre

[ping29]

Bonjour,

Je souhaite copier les cellules filtrées vers un autre fichier

Voici mon code :

wsDemandes.Range("A1").AutoFilter Field:=26, Criteria1:="<=" & Format(enddateperimee, "mm/dd/yyyy")
wsDemandes.Range("A1").AutoFilter Field:=15, Criteria1:="Enregistrée", Operator:=xlOr, Criteria2:="Prise en Charge"
wsDemandes.Range("A1", "P1000").Copy
wbDemandes.Close False
Sheets.Add
ActiveSheet.Paste

Ca fonctionne à moitié. En effet, il me dit que le presse papier est plein (voir pièce jointe).
De plus, je voudrais garder la mise en page dans la nouvelle feuille.

Merci pour votre aide.

 

[Hulk]

Re : Copie d'un fichier vers un autre

Hello,

Pour vider le presse-papier, voici une solution de @Christophe@

Sub ClearClipboard()

    Dim oDataObject As DataObject

    Set oDataObject = New DataObject

    oDataObject.SetText ""
    oDataObject.PutInClipboard

    Set oDataObject = Nothing

End Sub