Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ouverture d'un fichier Excel a partir d'un .bat - Securite

Ouverture d'un fichier Excel a partir d'un .bat - Securite

2 réponses
Avatar
Christophe
Bonjour,

par defaut, la securite macro de mon Excel est =E0 medium.
J'aimerai automatiser l'ouverture d'un fichier Excel avec=20
macros par un .bat ; comment permettre automatiquement=20
les macros ?
Merci
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
Hervé
Salut Christophe,
Peut être avec un .vbs ? Tu colle ce code dans le bloc note et tu enregistre
en .vbs puis tu double clique dessus :

Dim AppExcel
dim Fichier
'demande le chemin du classeur
Fichier = inputbox("Chemin du classeur", "Ouvrir.")
if Fichier = "" then WScript.Quit
Set AppExcel = WScript.CreateObject("Excel.Application")
msgbox chemin
AppExcel.Visible = True
'On Error Resume Next
'ouvre le classeur
AppExcel.Workbooks.Open (Fichier)
'exécute une macro à l'ouverture (optionnel)
AppExcel.Run "Test"
Set AppExcel = Nothing
'quitte VBS
WScript.Quit

Hervé.

"Christophe" a écrit dans le message
news: 0c0801c47b05$d3df0d80$
Bonjour,

par defaut, la securite macro de mon Excel est à medium.
J'aimerai automatiser l'ouverture d'un fichier Excel avec
macros par un .bat ; comment permettre automatiquement
les macros ?
Merci
Avatar
Christophe
Ca marche impec. Merci beaucoup Hervé.

-----Message d'origine-----
Salut Christophe,
Peut être avec un .vbs ? Tu colle ce code dans le bloc
note et tu enregistre

en .vbs puis tu double clique dessus :

Dim AppExcel
dim Fichier
'demande le chemin du classeur
Fichier = inputbox("Chemin du classeur", "Ouvrir.")
if Fichier = "" then WScript.Quit
Set AppExcel = WScript.CreateObject("Excel.Application")
msgbox chemin
AppExcel.Visible = True
'On Error Resume Next
'ouvre le classeur
AppExcel.Workbooks.Open (Fichier)
'exécute une macro à l'ouverture (optionnel)
AppExcel.Run "Test"
Set AppExcel = Nothing
'quitte VBS
WScript.Quit

Hervé.

"Christophe" a
écrit dans le message

news: 0c0801c47b05$d3df0d80$
Bonjour,

par defaut, la securite macro de mon Excel est à medium.
J'aimerai automatiser l'ouverture d'un fichier Excel avec
macros par un .bat ; comment permettre automatiquement
les macros ?
Merci


.