Bonsoir
Je souhaite copier une feuille par VBA afin de l'enregistrer sur mon bureau
le pb est que cela me copie également des liens.
Comment faire afin de copier la feuille sans les liens?
Merci pour votre aide
Flo riant
Sub Test()
ThisWorkbook.Sheets("Travail").Copy
End Sub
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
isabelle
bonjour Florian,
Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues Set nms = ActiveWorkbook.Names For r = 1 To nms.Count + 1 On Error Resume Next x = nms(r).Name nms(r).Delete Next
isabelle
Bonsoir Je souhaite copier une feuille par VBA afin de l'enregistrer sur mon bureau le pb est que cela me copie également des liens. Comment faire afin de copier la feuille sans les liens? Merci pour votre aide Flo riant
Sub Test() ThisWorkbook.Sheets("Travail").Copy End Sub
bonjour Florian,
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Set nms = ActiveWorkbook.Names
For r = 1 To nms.Count + 1
On Error Resume Next
x = nms(r).Name
nms(r).Delete
Next
isabelle
Bonsoir
Je souhaite copier une feuille par VBA afin de l'enregistrer sur mon bureau
le pb est que cela me copie également des liens.
Comment faire afin de copier la feuille sans les liens?
Merci pour votre aide
Flo riant
Sub Test()
ThisWorkbook.Sheets("Travail").Copy
End Sub
Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues Set nms = ActiveWorkbook.Names For r = 1 To nms.Count + 1 On Error Resume Next x = nms(r).Name nms(r).Delete Next
isabelle
Bonsoir Je souhaite copier une feuille par VBA afin de l'enregistrer sur mon bureau le pb est que cela me copie également des liens. Comment faire afin de copier la feuille sans les liens? Merci pour votre aide Flo riant
Sub Test() ThisWorkbook.Sheets("Travail").Copy End Sub
Florian
C'est parfait Isabelle Mille bravo et mille merci !!! Flo riant
"isabelle" a écrit dans le message de news:
bonjour Florian,
Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues Set nms = ActiveWorkbook.Names For r = 1 To nms.Count + 1 On Error Resume Next x = nms(r).Name nms(r).Delete Next
isabelle
Bonsoir Je souhaite copier une feuille par VBA afin de l'enregistrer sur mon bureau le pb est que cela me copie également des liens. Comment faire afin de copier la feuille sans les liens? Merci pour votre aide Flo riant
Sub Test() ThisWorkbook.Sheets("Travail").Copy End Sub
C'est parfait Isabelle
Mille bravo et mille merci !!!
Flo riant
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eNN2KKwhFHA.3260@TK2MSFTNGP10.phx.gbl...
bonjour Florian,
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Set nms = ActiveWorkbook.Names
For r = 1 To nms.Count + 1
On Error Resume Next
x = nms(r).Name
nms(r).Delete
Next
isabelle
Bonsoir
Je souhaite copier une feuille par VBA afin de l'enregistrer sur mon
bureau
le pb est que cela me copie également des liens.
Comment faire afin de copier la feuille sans les liens?
Merci pour votre aide
Flo riant
Sub Test()
ThisWorkbook.Sheets("Travail").Copy
End Sub
C'est parfait Isabelle Mille bravo et mille merci !!! Flo riant
"isabelle" a écrit dans le message de news:
bonjour Florian,
Cells.Copy Cells.PasteSpecial Paste:=xlPasteValues Set nms = ActiveWorkbook.Names For r = 1 To nms.Count + 1 On Error Resume Next x = nms(r).Name nms(r).Delete Next
isabelle
Bonsoir Je souhaite copier une feuille par VBA afin de l'enregistrer sur mon bureau le pb est que cela me copie également des liens. Comment faire afin de copier la feuille sans les liens? Merci pour votre aide Flo riant
Sub Test() ThisWorkbook.Sheets("Travail").Copy End Sub
