Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

[Excel 2013] VBA - Comment activer la modification à l'ouverture d'un fichier téléchargé ?

3 réponses
Avatar
ThierryP
Bonjour le forum,

Ben... tout est dans l'objet !

Je dois appliquer un traitement =C3=A0 un fichier Excel re=C3=A7u en XML vi=
a Internet,et bien s=C3=BBr j'ai le bandeau jaune d'avertissement, sur lequ=
el je dois cliquer pour activer la modification.

Comment faire ceci en VBA ?

Bien s=C3=BBr, je veux garder cette fonctionnalit=C3=A9 active, donc je ne =
modifie pas les options avanc=C3=A9es !!!

Merci d'avance

ThierryP

3 réponses

Avatar
MichD
Le 29/janv./2019 à 04:51, ThierryP a écrit :
Bonjour le forum,
Ben... tout est dans l'objet !
Je dois appliquer un traitement à un fichier Excel reçu en XML via Internet,et bien sûr j'ai le bandeau jaune d'avertissement, sur lequel je dois cliquer pour activer la modification.
Comment faire ceci en VBA ?
Bien sûr, je veux garder cette fonctionnalité active, donc je ne modifie pas les options avancées !!!
Merci d'avance
ThierryP

Bonjour,
À tester ce qui suit, je n'ai jamais eu recours à cela...
A )
Avant d'ouvrir le fichier, tu insères la ligne de code suivante :
Application.FileValidation = msoFileValidationSkip
Le hic, c'est que cela s'applique pour tous les autres fichiers jusqu'au
moment où l'application sera fermée, même si on utilise cette ligne de
code :
Application.FileValidation = msoFileValidationDefault
B )
Une autre solution est d'ajouter dans Excel un "Emplacement approuvé" et
de déposer à cet endroit les fichiers demandant une validation. Pour ce
faire, un clic sur le menu "Développeur" du ruban d'Excel / "Sécurité
des macros" / "Emplacements approuvés" / et ajouter le nouvel emplacement...
MichD
Avatar
ThierryP
Bonjour Denis,
Pour quelqu'un qui devait prendre du recul, tu es encore sacrément act if :-) :-)
Ton code fonctionne (je n'en doutais pas !!), mais effectivement, c'est un peu lourd...
Je vais donc rester simple et cliquer sur le bandeau avant de lancer ma mac ro !
Merci du retour,
ThierryP
Avatar
damien86
Le mardi 29 Janvier 2019 à 10:51 par ThierryP :
Bonjour le forum,
Ben... tout est dans l'objet !
Je dois appliquer un traitement à un fichier Excel reçu en XML vi=
a Internet,et bien sûr j'ai le bandeau jaune d'avertissement, sur lequ=
el je dois cliquer pour activer la modification.
Comment faire ceci en VBA ?
Bien sûr, je veux garder cette fonctionnalité active, donc je ne =
modifie pas les options avancées !!!
Merci d'avance
ThierryP
Bonjour Denis et Thierry,
Merci pour vos propositions (j'avais le même problème).
Update, en utilisant un fichier transitoire avec:
Sub ouv()
Application.FileValidation = msoFileValidationSkip
Application.Workbooks.Open Filename:=chemin, ReadOnly:lse
Application.FileValidation = msoFileValidationDefault
End Sub
Non seulement ça fonctionne mais le mode protégé par défaut est chez mi directement à nouveau actif.
Bonne journée
Damien