> Tous les forums > Forum Autres langages
 macro excell pour ouverture fichier avec password
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
pilcar
  Posté le 14/12/2012 @ 21:17 
Aller en bas de la page 
Nouvel astucien

Bonjour,

pourriez vous me dire comment je pourrais ouvrir en automatque ce fichier excell qui me demande a chaque fois de saisir le password.

Merci

Sub Travail()

Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "C:\"
Fichier = "essai.xlsx"

Chemin = Dossier & Fichier

Dim Presence As Boolean
Presence = False

For Each w In Workbooks
If w.Name = Fichier Then Presence = True
Next w

If Presence = True Then
Workbooks(Fichier).Activate
Else
Workbooks.Open Filename:=Chemin
End If
End Sub

Publicité
Bérylion
 Posté le 14/12/2012 à 23:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Message original par pilcar

Bonjour,

pourriez vous me dire comment je pourrais ouvrir en automatque ce fichier excell qui me demande a chaque fois de saisir le password.

Merci

Sub Travail()

Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "C:\"
Fichier = "essai.xlsx"

Chemin = Dossier & Fichier

Dim Presence As Boolean
Presence = False

For Each w In Workbooks
If w.Name = Fichier Then Presence = True
Next w

If Presence = True Then
Workbooks(Fichier).Activate
Else
Workbooks.Open Filename:=Chemin
End If
End Sub

Salut, et bienvenue à toi

à la volée :

Sub Travail()

Dim Dossier As String, Fichier As String, Chemin As String, motdepasse as string
Dossier = "C:\"
Fichier = "essai.xlsx"
Chemin = Dossier & Fichier
motdepasse =
"TonMotDePasse"

For Each w In Workbooks
If w.Name = Fichier Then Workbooks(Fichier).Activate: exit sub
Next w

Workbooks.Open Filename:=Chemin, password:= motdepasse
End Sub

non testé (pas xl sur ce poste)

reviens si ça marche pas



Modifié par Bérylion le 14/12/2012 23:41
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
34,99 €Carte mémoire SDXC UHS-I U3 SanDisk Extreme Plus 128 Go (jusqu'à 170 Mo/s) à 34,99 €
Valable jusqu'au 06 Avril

Amazon fait une promotion sur la carte mémoire SDXC UHS-I U3 SanDisk Extreme Plus d'une capacité de 128 Go qui passe à 34,99 € livrée gratuitement alors qu'on trouve la carte ailleurs à partir de 60 €. Cette carte mémoire offre des vitesses jusqu'à 170 Mo/s en lecture et 90 Mo/s en écriture et intègre des mécanismes afin de gérer l'usure des cellules de la carte et augmenter ainsi sa durée de vie. Une valeur sûre pour les plus exigeants. Elle résiste aux températures extrêmes, à l'eau, aux chocs et aux rayons X. La carte est fournie avec le logiciel de récupération de données RescuePRO Deluxe qui facilite la récupération des fichiers qui ont été effacés accidentellement.


> Voir l'offre
87,45 €Souris Logitech MX Master 3 (unify, bluetooth, capteur laser) à 87,45 € avec le code ACCESS-15
Valable jusqu'au 04 Avril

Boulanger fait une promotion sur la nouvelle souris sans fil Logitech MX Master 3 qui passe à 87,45 € avec le code ACCESS-15 alors qu'on la trouve ailleurs à partir de 109 €. Cette souris offre une double connectivité sans fil unify ou bluetooth. Elle vous permet de contrôler jusqu'à 3 ordinateurs différents à l'aide d'une seule souris. Copiez et collez du texte d'un écran à un autre, ou encore transférez des fichiers d'un ordinateur à un autre avec une facilité déconcertante. Conçue pour offrir précision, contrôle et confort aux utilisateurs expérimentés, la souris sans fil Logitech MX Master 3 se caractérise notamment par une forme parfaitement adaptée à la main, des fonctionnalités avancées et une conception incroyable. Elle dispose d'une molette pour le pouce afin de faire défiler le contenu de l'écran latéralement d'un simple mouvement du pouce. Et avec le logiciel Logitech Options vous allez pouvoir paramétrer au mieux votre souris. Ainsi, vous allez pouvoir ajuster la vitesse de défilement, naviguer au sein du contenu sous forme d'onglets, changer d'application, régler le volume et bien d'autres choses. Son capteur laser Dark field vous permettra de l'utiliser sur n'importe quelle surface. 


> Voir l'offre
16,90 €Microsoft Office 2019 Professional Plus à 18,90 €
Valable jusqu'au 09 Avril

Le vendeur sérieux Digital FR propose sur Amazon la clé d'activation légale pour Microsoft Office Professionnel 2019 Plus en français à 18,90 €. Cette clé livrée par email vous permettra d'activer Microsoft Office Professionnel 2019 Plus légalement et vous permettra ainsi d'utiliser autant de temps que vous voulez (il s'agit de la version complète et pas d'un abonnement) Word,Excel, PowerPoint, OneNote, Outlook, Publisher et Access 2019 sur un PC. La clé sera à activer sur Office.com où vous pourrez ensuite télécharger toute la suite bureautique. Pour mémoire, Microsoft Office Professionnel 2019 nécessite Windows 10. Sous Windows 7 ou 8, vous devrez vous tourner vers la version 2016. Pour plus d'info sur la procédure, n'hésitez pas à jeter un oeil à notre dossier pratique Acheter une clé OEM d'Office 2019 et l'installer.


> Voir l'offre

Sujets relatifs
effectuer un tri sur excell avec une macro
Erreur d'Ouverture de Fichier Illustrator = opérateur Fautif: "Bg"
Convertir un fichier image de 2002 avec extension ".GOOD"
Aide pour macro sur Notepad ++
créer fichier .gdb avec delphi
recherche un logiciel pour ouvrir un fichier
vb6 getobject erreur ouverture fichier excel
aide pour fichier .bat
Renommer la corbeille avec un fichier bat et VBS
WINMACRO 3.1 : macro inexportable avec runtime
Plus de sujets relatifs à macro excell pour ouverture fichier avec password
 > Tous les forums > Forum Autres langages