Macro pour transférer la feuille de calcul sans formules ni liens, Excel VBA

Vous avez probablement déjà reçu un classeur dans lequel d’autres classeurs étaient liés. Cependant, comme vous ne disposiez pas des classeurs liés, il était inutile de mettre à jour les liens. Si vous envoyez également des classeurs et que vous souhaitez les libérer des liens au préalable, insérez un nouveau classeur et transférez un tableau sans les liens qu’il contient. Vous pouvez également automatiser cette tâche avec une macro VBA.

Sub FeuilleTransfertSansValeurs ()
 Cells.Copy
 Application.Workbooks.Add
 Range("A1").Select
 Selection.PasteSpecial Paste:=xlValues, _
 Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 Application.CutCopyMode = False
End Sub

Commentaires

A l’aide de la propriété Cells et de la méthode Copy, vous pouvez copier toutes les cellules du tableau actif. Insérez ensuite un nouveau classeur à l’aide de l’instruction Workbooks.Add et placez le pointeur de la souris sur la cellule A1 du premier tableau. Maintenant, utilisez la méthode PasteSpecial, dans laquelle vous utilisez la constante XlValues ​​dans l’argument Paste. Cette méthode insère les données du presse-papiers dans la plage spécifiée (Range (“A1”)). Définissez ensuite l’état de la propriété CutCopyMode sur False. Cela entraîne la suppression du rectangle de sélection de la zone copiée.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x