Quand je fais
Set wb1 = ThisWorkbook
Set ws1 = wb1.Worksheets("Feuille1")
ActiveWorkbook.SaveAs "\\Station-serveur\maison delahaye\BDD\Sauv BDD Avant Import\GRANDE BASE " & "SAUV avt IMPORT du " & Format(Now(), "mmdd-hhmm") & ".xlsm"
puis j'ouvre les différents fichiers modèles qui vont être créés, ws2,3,4,5 à partir de ws1
et que je les sauvegarde en les nommant (par exemple pour ws5):
With ws5 'Fichier de mise à jour PQ pour P5
ws5.Copy
ActiveWorkbook.SaveAs "\\Station-serveur\PARTENAIRES MD\INTERNET\MARKET PLACE\INTERMARCHE\Fichier de stock\Imports\Offres\MAJ\MAJ PQ INT (v" & ver & ")" & name & "-" & Format(Now(), "mmdd-hhmm") & ".xlsx"
DoEvents
ws5.Activate
ActiveWorkbook.Close savechanges:=False
Comment je peux laisser le fichier source wb1/ws1 ouvert ?
Au début je l'ai sauvegardé sour la forme d'une sauvegarde AVANT opération (GRANDE BASE " & "SAUV avt IMPORT du " & Format(Now(), "mmdd-hhmm") & ".xlsm) mais je dois le sauvegarder APRES aussi car il s'incrémente pendant les copies de données de lui vers ws2,3,4,.5, ET le laisser ouvert.
Comment faire ça ?
Car là il se ferme, il ne me reste que sa copie AVANT opérations qui reste ouverte (..av IMPORT)
pourtant je n'ai pas fermé ws1; je l'ai seulement sauvegardé avec un autre nom; du coup c'est qui maintenant ws1 ?
Je voudrais un second ws1 AVEC les modifs induites par mes opérations entre son ouverture et sa sauvegarde à l'état intial en GRANDE BASE " & "SAUV avt IMPORT du " & Format(Now(), "mmdd-hhmm") & ".xlsm"
Entre les deux, dans le code, ws1 est enrichi des dates de mouvements de copie de lui même vers ws2, 3,4,5, qui sont donc des mises à jour à partir de la source ws1.
J'ai donc loupé qqchse puisque à la fin, j'ai tous les ws2,3,4,5 ouevrts et la copie initiale SAUV avant Import.
Biien sur cette sauvegarde était faite AVANT les fameuses opérations.