Bonjour,
Je fais appel à vous car j'ai commencé d'élaborer une macro qui recopie certaines colonnes d'un fichier vers un autre fichier et cela fonctionne très bien.
En plus, je souhaite ajouter une condition à cette recopie, c'est à dire qu'il faudrait que la recopie ne se fasse qu'à condition qu'une date comprise entre le 01/01/2014 et le 31/12/2014 soit saisie dans les colonnes S ou T.
Voici la macro actuelle à compléter.
Merci pour votre aide
Je fais appel à vous car j'ai commencé d'élaborer une macro qui recopie certaines colonnes d'un fichier vers un autre fichier et cela fonctionne très bien.
En plus, je souhaite ajouter une condition à cette recopie, c'est à dire qu'il faudrait que la recopie ne se fasse qu'à condition qu'une date comprise entre le 01/01/2014 et le 31/12/2014 soit saisie dans les colonnes S ou T.
Voici la macro actuelle à compléter.
Merci pour votre aide
Sub collage()
'
'
Workbooks.Open "\\chemin d'accès\résutat macro PP.xlsx"
Sheets("suivi obs").Unprotect Password:="motdepasse"
With Workbooks("test sd.xls").Sheets("TABLEAU SUIVI")
If .AutoFilterMode Then
.Cells.AutoFilter
End If
End With
' copie les cellules masquées
Sheets("suivi obs").Range("a1:g400").Copy Workbooks("résutat macro PP.xlsx").Sheets("suivi obs").Range("A1")
Workbooks("test sd.xls").Sheets("TABLEAU SUIVI").Range("d1:h400").Copy _
Destination:=Workbooks("résutat macro PP.xlsx").Sheets("suivi obs").Range("a1:e400")
Workbooks("test sd.xls").Sheets("TABLEAU SUIVI").Range("s1:t400").Copy _
Destination:=Workbooks("résutat macro PP.xlsx").Sheets("suivi obs").Range("f1:g400")
With Workbooks("test sd.xls").Sheets("TABLEAU SUIVI")
If Not .AutoFilterMode Then
.Cells.AutoFilter
End If
End With
Sheets("suivi obs IAE").Protect Password:="motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Workbooks("résutat macro PP.xlsx").Activate
ActiveWorkbook.Save
Workbooks("résutat macro PP.xlsx").Close
ActiveWorkbook.Save
End Sub