Copier feuille

[ninou58]

Re BOnjour tout le monde! 😉

Voila j'ai une feuille nommé week end, qui est faite toute les semaine à partir d'un classeur, j'aimerais lorque l'utilisateur le demande il sauvegarde cette feuille dans un autre classeur. Mais il peut revenir sur cette feuille et dans ce cas, il faut que cela écrase l'ancien pour mettre le nouveau.
Je suis pas sure de bien expliqué.
Fichier1, il y a week end.
Semaine 1 il edite(sauvegarde) week end et dans fichier 2, on met week end(1).
Ensuite le lendemain il a fait une erreur, il corrige dans le fichier 1 et edite, il faut que dans fichier 2 on ecrase week end(1) et qu'on le remplace.
Puis la semaine 2, il edite fichier1 week end, et dans le fichier 2 il faut qu'on est week end(2). A la rigueur le numéro de semaine je peux l'avoir et ce sera le numéro suivant week end.

Merci d'avance

 

[Temjeh]

Bonjour à tous

Voici un début(si j'ai bien compris a mettre sous un bouton):

Workbooks.Open Filename:= _
'C:\\Documents and Settings\\Claude\\Mes documents\\Fichier2.xls'
Windows('Fichier1.xls').Activate
Sheets('week end').Copy Before:=Workbooks('Fichier2.xls').Sheets(1)
ActiveSheet.Move After:=Sheets(Sheets.Count)
ActiveWorkbook.Save
ActiveWorkbook.Close

Il ne reste plus qu'a un pros d'ici à y mettre une variable pour le no de week end (1) ensuite (2) car ceci copie seulement la feuille qui porte le nom week end.(Chaque fois que tu clic il fait une nouvelle copie de week end ). Oublie pas que tu doit y adapté ton chemin et le nom exact des feuil et des classeurs(respecte les espaces).

A++

Temjeh


PS. en attendant je travail sur cette variable

 

[Temjeh]

Rebonjour

Aussi il faut lui mette un bout de code pour qu'il détect la même semaine.(Je ne sais pas faire)

Temjeh

 

[ninou58]

Je te remercie pour ton début, je vais regarder ça de plus près.
Oui ce sera derrière un bouton, mon souci c'était plus le fait qu'il faille écrasé le fichier et en remettre un autre si c'était la même semaine.
Mais merci quand même.

 

[Temjeh]

Rebonjour j'ai trouvé(avec no de sem différente):

Range('A1').Value = Format$(Date, 'ww')
Application.DisplayAlerts = False
Workbooks.Open Filename:='C:/Documents and Settings/Claude/Mes documents/Fichier2.xls'
If Range('A1').Value = Format$(Date, 'ww') Then
Sheets('week end').Select
ActiveWindow.SelectedSheets.Delete
Windows('Fichier1.xls').Activate
ActiveSheet.Copy Before:=Workbooks('Fichier2.xls').Sheets(1)
ActiveSheet.Move After:=Sheets(Sheets.Count)
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
Else
Application.DisplayAlerts = False
Sheets('week end').Select
Range('A1').Value = Format$(Date, 'ww')
Workbooks.Open Filename:='C:/Documents and Settings/Claude/Mes documents/Fichier2.xls'
Windows('Fichier1.xls').Activate
ActiveSheet.Copy Before:=Workbooks('Fichier2.xls').Sheets(1)
ActiveSheet.Move After:=Sheets(Sheets.Count)
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If

Le prob est que pour ce code il y a un no de sem a mettre en A1 pour que ca fonctionne.(Tu peut changer le code et le cacher plus bas genre en A100.

A+

Temjeh

 

[Temjeh]

Oups une autre erreur:

À la 5ème ligne remplace Sheets('week end').Select par ceci:

Sheets(Sheets.Count).select

Temjeh

 

[ninou58]

Bonjour,
Je te remercie de te pencher sur mon fil 😉 .Le numéro de semain est dans une case donc je peux le reprendre sans soucis. J'ai ap sencore teste car avant il me reste quelques petites choses à faire.
En tout cas je te remercie, et s'il y a un soucis je t'en ferai part.

Bonne journée

 

[Temjeh]

Bonjour le forum et ....
Bon jeudi de paye

N'oublie pas que c'est mon code qui doit mettre le no de sem pas une formule dans une cel(ici en A1) car il ne doit pas se mettre à jour a l'ouverture du classeur!!!


Au plaisir

Temjeh