× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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
-50%Beats : jusqu'à -50% sur une sélection d'écouteurs et de casques
Valable jusqu'au 27 Novembre

Amazon propose jusqu' -50% sur une sélection d'écouteurs et de casques Beats. Vous trouverez des modèles filaires, des modèles sans fil, avec ou sans réduction active de bruit, etc.


> Voir l'offre
279 €Smartphone 6,5 pouces Samsung Galaxy A51 (FullHD+, 8 coeurs, 4Go, 128Go, 2 SIM) à 279 €
Valable jusqu'au 28 Novembre

Amazon fait une promotion sur le smartphone 6,5 pouces Samsung Galaxy A51 (double SIM, 128 Go) qui passe à 279 € livré gratuitement au lieu de 320 €. Laissez-vous embarquer grâce à l'incroyable écran Super AMOLED de 6.5" à résolution Full HD+ de 1080 x 2400 pixels du Samsung Galaxy A51. Offrant une incroyable clarté lors de vos utilisations, il s'arme de toutes les dernières innovations pour vous simplifier la vie et vous permettre de laisser libre cours à toutes vos envies.

En effet, grâce à son processeur Exynos 9611 Octo-Core cadencé à 2.3 GHz, ses 4 Go de RAM et sa capacité de stockage de 128 Go (extensible via carte microSDXC), vous disposez de toute la puissance nécessaire pour une expérience fluide et sans compromis. Et pour briller au quotidien, il dispose également d'un appareil photo principal à quatre capteurs photo 48+12+5+5 MP, et d'une caméra frontale de 32 MP afin de vous en mettre plein la vue. 

Côté fonctionnalités, il est équipé d'un lecteur d'empreinte sous l'écran, du NFC, du Bluetooth 5.0, d'un port USB-C et d'Android 10.


> Voir l'offre
100,50 €Adobe Photoshop Elements 2020 + Premiere Elements 2020 à 100,50 €
Valable jusqu'au 27 Novembre

Amazon fait une promotion sur le pack comprenant les dernières versions complètes des célèbres logiciels de retouche photo Adobe Photoshop Elements 2020 et de montage vidéo Adobe Premiere Elements 2020 et le propose à 100,50 € seulement. On trouve ailleurs ce pack dédié à vos loisirs numériques à partir de 150 €. Une fois acheté, vous pourrez télécharger légalement le pack directement dans votre bibliothèque de logiciels Amazon.


> 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