Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ouvrir 1 autre classeur en désavtivant les macros

ouvrir 1 autre classeur en désavtivant les macros

2 réponses
Avatar
Jim
Bonjour à tous,
Je voudrais ouvrir depuis un premier classeur et par du code, tous les
autres classeurs presents ds un repertoire mais en désactivant les
macros qu'ils contiennent.
Merci pour votre aide
jim
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Alain CROS
Bonjour.

Une façon de faire

Sub OuvreFichierXlsSansLesMacros()
Dim LePath As String, LeFile As String, MonPath As String
LePath = CurDir
MonPath = "C:Jim"
ChDir MonPath
LeFile = Dir("*.xls", vbNormal)
Application.EnableEvents = False
Application.ScreenUpdating = False
Do While LeFile <> ""
Workbooks.Open MonPath & Application.PathSeparator & LeFile
LeFile = Dir
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
ChDir LePath
ThisWorkbook.Activate
End Sub

Alain CROS.

"Jim" a écrit dans le message de news: #
Bonjour à tous,
Je voudrais ouvrir depuis un premier classeur et par du code, tous les
autres classeurs presents ds un repertoire mais en désactivant les
macros qu'ils contiennent.
Merci pour votre aide
jim



Avatar
Jim
Bonjour.

Une façon de faire

Sub OuvreFichierXlsSansLesMacros()
Dim LePath As String, LeFile As String, MonPath As String
LePath = CurDir
MonPath = "C:Jim"
ChDir MonPath
LeFile = Dir("*.xls", vbNormal)
Application.EnableEvents = False
Application.ScreenUpdating = False
Do While LeFile <> ""
Workbooks.Open MonPath & Application.PathSeparator & LeFile
LeFile = Dir
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
ChDir LePath
ThisWorkbook.Activate
End Sub

Alain CROS.

"Jim" a écrit dans le message de news: #

Bonjour à tous,
Je voudrais ouvrir depuis un premier classeur et par du code, tous les
autres classeurs presents ds un repertoire mais en désactivant les
macros qu'ils contiennent.
Merci pour votre aide
jim





merci pour ton aide Alain. Je vais essayer