J'utilise un classeur par mois dans lequel j'ai des formules et des liaisons
externes.
Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de tout le
classeur (plus de 100 feuilles).
Quelle est la méthode la plus rapide et la plus fiable ?
Et en même temps, comment supprimer tous les liens de ce classeur, car je
n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick BASTARD
Bonjour, *Britannicus*
Copier, collage spécial, valeur ?
Sub Figer() For Each sh In ThisWorkbook.Sheets Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Next End Sub
convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des liaisons externes. Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de tout le classeur (plus de 100 feuilles). Quelle est la méthode la plus rapide et la plus fiable ? Et en même temps, comment supprimer tous les liens de ce classeur, car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Merci d'avance
Britannicus
Bonjour, *Britannicus*
Copier, collage spécial, valeur ?
Sub Figer()
For Each sh In ThisWorkbook.Sheets
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Next
End Sub
convient-il ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des
liaisons externes.
Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de
tout le classeur (plus de 100 feuilles).
Quelle est la méthode la plus rapide et la plus fiable ?
Et en même temps, comment supprimer tous les liens de ce classeur,
car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Sub Figer() For Each sh In ThisWorkbook.Sheets Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Next End Sub
convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des liaisons externes. Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de tout le classeur (plus de 100 feuilles). Quelle est la méthode la plus rapide et la plus fiable ? Et en même temps, comment supprimer tous les liens de ce classeur, car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Merci d'avance
Britannicus
Britannicus
Ca convient partiellement car la macro agit sur une seule feuille et s'arrête après le "copier" pour demander le "coller" D'autre part, il me reste le problème des liaisons que je ne peux supprimer.
Amicalement,
Britannicus
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Britannicus*
Copier, collage spécial, valeur ?
Sub Figer() For Each sh In ThisWorkbook.Sheets Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Next End Sub
convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des liaisons externes. Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de tout le classeur (plus de 100 feuilles). Quelle est la méthode la plus rapide et la plus fiable ? Et en même temps, comment supprimer tous les liens de ce classeur, car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Merci d'avance
Britannicus
Ca convient partiellement car la macro agit sur une seule feuille et
s'arrête après le "copier" pour demander le "coller"
D'autre part, il me reste le problème des liaisons que je ne peux supprimer.
Amicalement,
Britannicus
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: eT14ISgfHHA.4536@TK2MSFTNGP04.phx.gbl...
Bonjour, *Britannicus*
Copier, collage spécial, valeur ?
Sub Figer()
For Each sh In ThisWorkbook.Sheets
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Next
End Sub
convient-il ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des
liaisons externes.
Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de
tout le classeur (plus de 100 feuilles).
Quelle est la méthode la plus rapide et la plus fiable ?
Et en même temps, comment supprimer tous les liens de ce classeur,
car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Ca convient partiellement car la macro agit sur une seule feuille et s'arrête après le "copier" pour demander le "coller" D'autre part, il me reste le problème des liaisons que je ne peux supprimer.
Amicalement,
Britannicus
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Britannicus*
Copier, collage spécial, valeur ?
Sub Figer() For Each sh In ThisWorkbook.Sheets Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Next End Sub
convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des liaisons externes. Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de tout le classeur (plus de 100 feuilles). Quelle est la méthode la plus rapide et la plus fiable ? Et en même temps, comment supprimer tous les liens de ce classeur, car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Merci d'avance
Britannicus
MichDenis
Si tu as des noms (insertion / nom / définir) qui font référence à d'autres classeurs ou des graphes dont les "series" utilisent des plages de d'autres classeurs, ton classeur continuera d'avoir des liens ....
Sub test()
Dim Sh As Worksheet On Error Resume Next
'Supprime toutes les formules des feuilles For Each Sh In Worksheets With Sh .UsedRange.Value = .UsedRange.Value End With Next 'Supprimer toutes les liaisons : With ThisWorkbook liens = .LinkSources(xlExcelLinks) If IsEmpty(liens) Then Exit Sub For Each lelien In liens .BreakLink lelien, xlExcelLinks Next End With
End Sub
"Britannicus" a écrit dans le message de news: % Ca convient partiellement car la macro agit sur une seule feuille et s'arrête après le "copier" pour demander le "coller" D'autre part, il me reste le problème des liaisons que je ne peux supprimer.
Amicalement,
Britannicus
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Britannicus*
Copier, collage spécial, valeur ?
Sub Figer() For Each sh In ThisWorkbook.Sheets Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Next End Sub
convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des liaisons externes. Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de tout le classeur (plus de 100 feuilles). Quelle est la méthode la plus rapide et la plus fiable ? Et en même temps, comment supprimer tous les liens de ce classeur, car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Merci d'avance
Britannicus
Si tu as des noms (insertion / nom / définir) qui font référence
à d'autres classeurs ou des graphes dont les "series" utilisent
des plages de d'autres classeurs, ton classeur continuera
d'avoir des liens ....
Sub test()
Dim Sh As Worksheet
On Error Resume Next
'Supprime toutes les formules des feuilles
For Each Sh In Worksheets
With Sh
.UsedRange.Value = .UsedRange.Value
End With
Next
'Supprimer toutes les liaisons :
With ThisWorkbook
liens = .LinkSources(xlExcelLinks)
If IsEmpty(liens) Then Exit Sub
For Each lelien In liens
.BreakLink lelien, xlExcelLinks
Next
End With
End Sub
"Britannicus" <britannicus60@wanadoo.fr> a écrit dans le message de news:
%23UFQb9hfHHA.444@TK2MSFTNGP04.phx.gbl...
Ca convient partiellement car la macro agit sur une seule feuille et
s'arrête après le "copier" pour demander le "coller"
D'autre part, il me reste le problème des liaisons que je ne peux supprimer.
Amicalement,
Britannicus
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: eT14ISgfHHA.4536@TK2MSFTNGP04.phx.gbl...
Bonjour, *Britannicus*
Copier, collage spécial, valeur ?
Sub Figer()
For Each sh In ThisWorkbook.Sheets
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Next
End Sub
convient-il ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des
liaisons externes.
Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de
tout le classeur (plus de 100 feuilles).
Quelle est la méthode la plus rapide et la plus fiable ?
Et en même temps, comment supprimer tous les liens de ce classeur,
car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?
Si tu as des noms (insertion / nom / définir) qui font référence à d'autres classeurs ou des graphes dont les "series" utilisent des plages de d'autres classeurs, ton classeur continuera d'avoir des liens ....
Sub test()
Dim Sh As Worksheet On Error Resume Next
'Supprime toutes les formules des feuilles For Each Sh In Worksheets With Sh .UsedRange.Value = .UsedRange.Value End With Next 'Supprimer toutes les liaisons : With ThisWorkbook liens = .LinkSources(xlExcelLinks) If IsEmpty(liens) Then Exit Sub For Each lelien In liens .BreakLink lelien, xlExcelLinks Next End With
End Sub
"Britannicus" a écrit dans le message de news: % Ca convient partiellement car la macro agit sur une seule feuille et s'arrête après le "copier" pour demander le "coller" D'autre part, il me reste le problème des liaisons que je ne peux supprimer.
Amicalement,
Britannicus
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Britannicus*
Copier, collage spécial, valeur ?
Sub Figer() For Each sh In ThisWorkbook.Sheets Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Next End Sub
convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'utilise un classeur par mois dans lequel j'ai des formules et des liaisons externes. Un fois le mois échu, je souhaiterais "figer" toutes les valeurs de tout le classeur (plus de 100 feuilles). Quelle est la méthode la plus rapide et la plus fiable ? Et en même temps, comment supprimer tous les liens de ce classeur, car je n'ai que les options "mettre à jour", "ouvrir" et "modifier" ?