Bonjourà tous,
Après de nombreuses recherche je me tourne vers vous pour votre aide.
Sur un fichier composé de 52 feuilles numérotées de 1 à 52.
Je cherche à lancer la copie de la feuille correspondant au n° de semaine en cours vers un autre fichier.
J'arrive bien à récupérer le n° de semaine mais je ne parviens pas à
faire la copie de la feuille concernée. Le numéro de semaine pouvant varier cela me pose problème.
Merci d'avance pour votre aide
Sub semaine_en_cours()
Dim prem_date As Single
Dim nb_date_annee As Date
Dim num_semaine As Integer
nb_date_annee = DateValue("1 janvier " & (Year(Date)))
prem_date = nb_date_annee
num_semaine = Abs(Date - prem_date) / 7
ThisWorkbook.Sheets("num_semaine").Cells.Copy Workbooks("Destination.xlsx").Sheets("Essai").Cells '
End Sub
Après de nombreuses recherche je me tourne vers vous pour votre aide.
Sur un fichier composé de 52 feuilles numérotées de 1 à 52.
Je cherche à lancer la copie de la feuille correspondant au n° de semaine en cours vers un autre fichier.
J'arrive bien à récupérer le n° de semaine mais je ne parviens pas à
faire la copie de la feuille concernée. Le numéro de semaine pouvant varier cela me pose problème.
Merci d'avance pour votre aide
Sub semaine_en_cours()
Dim prem_date As Single
Dim nb_date_annee As Date
Dim num_semaine As Integer
nb_date_annee = DateValue("1 janvier " & (Year(Date)))
prem_date = nb_date_annee
num_semaine = Abs(Date - prem_date) / 7
ThisWorkbook.Sheets("num_semaine").Cells.Copy Workbooks("Destination.xlsx").Sheets("Essai").Cells '
End Sub