> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
190,75 €Ecouteurs sans fil Apple AirPods Pro avec réduction active du bruit à 190,75 € livrés
Valable jusqu'au 19 Mai

Amazon Italie actuellement les écouteurs sans fil Apple AirPods Pro (2021) avec boîtier de charge sans fil à 185,90 € (avec la TVA ajustée). Comptez 4,85 € pour la livraison en France soit un total de à 190,75 € livrés. On les trouve ailleurs à 239 €.

 Les AirPods Pro signés Apple offrent une expérience audio supérieure en combinant Bluetooth 5.0, confort permanent, technologie de réduction de bruit active et une belle autonomie de 24 heures. Accompagnés d'un boîtier de charge sans fil, ils s'inviteront idéalement dans votre quotidien.


> Voir l'offre
168,99 €SSD Crucial MX500 2 To à 168,99 €
Valable jusqu'au 19 Mai

Amazon propose actuellement le SSD Crucial MX500 2 To à 168,99 € livré gratuitement. On le trouve ailleurs à partir de 190 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 5 ans. Une bonne affaire.


> Voir l'offre
214,99 €Processeur AMD Ryzen 5 5600X à 214,99 €
Valable jusqu'au 20 Mai

Amazon fait une promotion sur le processeur AMD Ryzen 5 5600X qui passe à 214,99 € alors qu'on le trouve ailleurs à partir de 259 €. Le processeur pour PC de bureau AMD Ryzen 5 5600X propose 6 coeurs natifs et 12 coeurs logiques pour un traitement multitâche agréablement fluide. Grâce à sa fréquence native élevée et à son mode Turbo Core ajustant la puissance en fonction des besoins, le CPU AMD Ryzen de nouvelle génération délivre des performances exceptionnelles dans tous les domaines : Jeux vidéo, multitâche intensif, édition vidéo, modélisation 3D et bien plus encore. Le cache L3 de 32 Mo permet en outre le traitement ultrarapide d'un grand nombre d'instructions grâce à des latences réduites. Fourni avec un système de refroidissement.


> 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