Lorsque vous ouvrez un classeur Excel qui contient des macros, un message s’affiche pour vous informer que les macros sont stockées dans le classeur qui peuvent contenir des virus de macro. Vous pouvez ignorer ce message en cliquant sur le bouton ACTIVER LES MACROS. Si vous n’êtes pas sûr de l’origine du classeur, cliquez sur le bouton DÉSACTIVER LES MACROS. Si vous envoyez vous-même des classeurs, déterminez si vous devez vraiment inclure les macros. Pour créer une copie d’un classeur sans macros, enregistrez le classeur actuel sous un autre nom et basculez avec la combinaison de touches | Art | + | F11 | dans l’environnement de développement. Vous pouvez maintenant supprimer les modules individuels. Vous pouvez également effectuer cette tâche avec élégance avec une macro.

Sub EnregistrerClasseursansmacros()
Dim Original As String
Dim lacopie As String
Dim i As Integer
Original = ActiveWorkbook.Name
lacopie = ActiveWorkbook.Name & "_copie.xls"

Workbooks.Add
ActiveWorkbook.SaveAs _
Filename:="C:\propres fichiers\" & copie
Workbooks(Original).Activate
For i = 1 To Sheets.Count
Sheets(i).Copy _
After:=Workbooks(copie).Sheets(i)
Next i
End Sub

Commentaires

Dans la première étape, enregistrez le nom du classeur actif et le nom de la copie dans les variables Original et Copier. En tant que nom de la copie sans macros, vous pouvez utiliser le nom de l’original, par exemple, auquel vous ajoutez la fin _Copy. À l’étape suivante, insérez un nouveau classeur à l’aide de la méthode Add et enregistrez-le immédiatement dans le répertoire C: \ propres fichiers. Utilisez ensuite la méthode Activate pour basculer vers le dossier d’origine. Configurez une boucle For Next qui copie toutes les feuilles de tableau du classeur dans le classeur cible.