Recup info selon un critère dans un onglet temp

[undo]

Bonjour a tous,
J’ai un fichier suivi d'incident
je souhaite avoir une macro quand je clique sur un bouton création automatiquement d’un onglet temp copie la dernière ligne de onglet de la semaine en cours.
Merci pour votre aide
undo

 

[Staple1600]

Re : Recup info selon un critère dans un onglet temp

Bonsoir


Tu peux essayer un code de ce type à associer à ton bouton

sub macro1()
Dim ws As Worksheet
Set ws = Sheets("SEMAINE 0" & DatePart("ww", Date, 2, 2))
ws.Activate: Sheets.Add: ActiveSheet.Name = "Temp"
ws.Rows(1).Copy Sheets("Temp").[A1]
ws.Rows(ws.[A65536].End(xlUp).Row).Copy Sheets("Temp").[A65536].End(xlUp)(2)
Sheets("Temp").Columns.AutoFit
end sub

 

[undo]

Re : Recup info selon un critère dans un onglet temp

Bonjour Staple1600,
merci pour ta réponse mais ca ne marche pas quand je lance la macro un bug "voir la capture dans le fichier en PJ".

As tu une solution ?

Merci d'avance
Undo

 

[Staple1600]

Re : Recup info selon un critère dans un onglet temp

Bonsoir

Tes feuilles ont bien un nom selon ce schéma ?

SEMAINE NNN

Exemple pour la semaine 41

Ton classeur contient bien une feuille nommé SEMAINE 041 ?

 

[undo]

Re : Recup info selon un critère dans un onglet temp

Bonsoir Staple1600,
oui la structure des feuilles SEMAINE 0XX.
cdlt
undo
Help me