Microsoft 365 Copier feuille active dans nouveau classeur sans les liaisons en gardant le même format

juju91 · 12 Juillet 2023

Bonjour a tous
Encore besoin d'aide ...
J'ai une feuille que je souhaiterais copier dans un nouveau classeur en la moment ales la valeur contenue dans la cellule '' C2''.
Jusque la j'y arrive tous du moins je crois.
Mon problème est que dans la feuille d'origine des cellules sont liées à une autre feuille du classeur d'origine.
Je souhaiterais que lors de la création du nouveau classeur les données soient figées ( ne soient plus liées) et que la mise ne page et les format reste identique.
Comme d'habitude je sais pas si j'ai été très clair , je mets donc un fichier.
par avance merci de votre aide.
PS. je vais abuser...mai si il est possible une fois le fier creer il est possible qui ce refaire automatique, cela serait parfait...
Désolé

mapomme · 12 Juillet 2023

Bonsoir @juju91,

Après avoir copié la feuille, exécuter l'instruction :

VB:

 ActiveWorkbook.Sheets(1).UsedRange.Value = ActiveWorkbook.Sheets(1).UsedRange.Value

Soit :

VB:

Private Sub CommandButton1_Click()
   Application.DisplayAlerts = False
   'Range("G1").Select
   Range("G2").Value = Now
   ActiveSheet.Copy
   ActiveWorkbook.Sheets(1).UsedRange.Value = ActiveWorkbook.Sheets(1).UsedRange.Value
   ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("G1") & ".xls"
   Application.DisplayAlerts = True
End Sub

Microsoft 365 Copier feuille active dans nouveau classeur sans les liaisons en gardant le même format

juju91

XLDnaute Junior

Pièces jointes

mapomme

XLDnaute Barbatruc

Discussions similaires