bonsoir =E0 tous,
j'ai une macro Excel qui ouvre 4 fichiers prot=E9g=E9s par un=20
m=EAme mot de passe.
=E0 chaque utilisation je dois taper 4 fois ce mot.
comment faire pour n'avoir =E0 le faire qu'une fois, si=20
c'est possible ?
merci de vos conseils
pierreg
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
michdenis
Bonjour Pierre,
Dim MotDePasse as string
MotDePasse = "Vendredi"
With Workbooks .Open CheminNomFichier.xls ,,, MotDePasse .Open CheminNomFichier1.xls ,,, MotDePasse .Open CheminNomFichier2.xls ,,,MotDePasse .Open CheminNomFichier3.xls ,,,MotDePasse end with
Si tu veux compliquer un peu les choses, tu peux créer un "NOM" (insertion / nom / définir ) qui soit invisible dans cette fenêtre de cette façon
'Pour créer le nom "VICT" et mot de passe "Vendredi" ThisWorkbook.Names.Add "VICT", "Vendredi", False
Pour récupérer la valeur du Nom : a = ThisWorkbook.Names("Vict").Value
Et tu utilises a dans la procédure précédente en lieu et place de MotDePasse
Salutations!
"pierreg" a écrit dans le message de news:a02901c48701$cbe2ec20$ bonsoir à tous, j'ai une macro Excel qui ouvre 4 fichiers protégés par un même mot de passe. à chaque utilisation je dois taper 4 fois ce mot. comment faire pour n'avoir à le faire qu'une fois, si c'est possible ? merci de vos conseils pierreg
Bonjour Pierre,
Dim MotDePasse as string
MotDePasse = "Vendredi"
With Workbooks
.Open CheminNomFichier.xls ,,, MotDePasse
.Open CheminNomFichier1.xls ,,, MotDePasse
.Open CheminNomFichier2.xls ,,,MotDePasse
.Open CheminNomFichier3.xls ,,,MotDePasse
end with
Si tu veux compliquer un peu les choses, tu peux créer un "NOM" (insertion / nom / définir ) qui soit invisible dans cette
fenêtre de cette façon
'Pour créer le nom "VICT" et mot de passe "Vendredi"
ThisWorkbook.Names.Add "VICT", "Vendredi", False
Pour récupérer la valeur du Nom :
a = ThisWorkbook.Names("Vict").Value
Et tu utilises a dans la procédure précédente en lieu et place de MotDePasse
Salutations!
"pierreg" <anonymous@discussions.microsoft.com> a écrit dans le message de news:a02901c48701$cbe2ec20$a501280a@phx.gbl...
bonsoir à tous,
j'ai une macro Excel qui ouvre 4 fichiers protégés par un
même mot de passe.
à chaque utilisation je dois taper 4 fois ce mot.
comment faire pour n'avoir à le faire qu'une fois, si
c'est possible ?
merci de vos conseils
pierreg
With Workbooks .Open CheminNomFichier.xls ,,, MotDePasse .Open CheminNomFichier1.xls ,,, MotDePasse .Open CheminNomFichier2.xls ,,,MotDePasse .Open CheminNomFichier3.xls ,,,MotDePasse end with
Si tu veux compliquer un peu les choses, tu peux créer un "NOM" (insertion / nom / définir ) qui soit invisible dans cette fenêtre de cette façon
'Pour créer le nom "VICT" et mot de passe "Vendredi" ThisWorkbook.Names.Add "VICT", "Vendredi", False
Pour récupérer la valeur du Nom : a = ThisWorkbook.Names("Vict").Value
Et tu utilises a dans la procédure précédente en lieu et place de MotDePasse
Salutations!
"pierreg" a écrit dans le message de news:a02901c48701$cbe2ec20$ bonsoir à tous, j'ai une macro Excel qui ouvre 4 fichiers protégés par un même mot de passe. à chaque utilisation je dois taper 4 fois ce mot. comment faire pour n'avoir à le faire qu'une fois, si c'est possible ? merci de vos conseils pierreg
pierreg
bonsoir, et deuxième merci! ça marche !! apparemment ça ne laisse pas traîner le mot de passe, donc la confidentialité semble préservée, est ce bien le cas ou est ce seulement par inexpérience que je crois ça? en tout cas merci à toi, cordialement pierreg euh, je sais que nous ne sommes pas dans un chat mais juste par curiosité: dans quelle ville es tu ? moi Paris. salut ami.
-----Message d'origine----- Bonjour Pierre,
Dim MotDePasse as string
MotDePasse = "Vendredi"
With Workbooks .Open CheminNomFichier.xls ,,, MotDePasse .Open CheminNomFichier1.xls ,,, MotDePasse .Open CheminNomFichier2.xls ,,,MotDePasse .Open CheminNomFichier3.xls ,,,MotDePasse end with
Si tu veux compliquer un peu les choses, tu peux créer un "NOM" (insertion / nom / définir ) qui soit invisible
dans cette
fenêtre de cette façon
'Pour créer le nom "VICT" et mot de passe "Vendredi" ThisWorkbook.Names.Add "VICT", "Vendredi", False
Pour récupérer la valeur du Nom : a = ThisWorkbook.Names("Vict").Value
Et tu utilises a dans la procédure précédente en lieu et place de MotDePasse
Salutations!
"pierreg" a écrit dans le message de news:a02901c48701$cbe2ec20
$
bonsoir à tous, j'ai une macro Excel qui ouvre 4 fichiers protégés par un même mot de passe. à chaque utilisation je dois taper 4 fois ce mot. comment faire pour n'avoir à le faire qu'une fois, si c'est possible ? merci de vos conseils pierreg
.
bonsoir, et deuxième merci!
ça marche !!
apparemment ça ne laisse pas traîner le mot de passe,
donc la confidentialité semble préservée, est ce bien le
cas ou est ce seulement par inexpérience que je crois ça?
en tout cas merci à toi,
cordialement
pierreg
euh, je sais que nous ne sommes pas dans un chat mais
juste par curiosité: dans quelle ville es tu ? moi Paris.
salut ami.
-----Message d'origine-----
Bonjour Pierre,
Dim MotDePasse as string
MotDePasse = "Vendredi"
With Workbooks
.Open CheminNomFichier.xls ,,, MotDePasse
.Open CheminNomFichier1.xls ,,, MotDePasse
.Open CheminNomFichier2.xls ,,,MotDePasse
.Open CheminNomFichier3.xls ,,,MotDePasse
end with
Si tu veux compliquer un peu les choses, tu peux créer
un "NOM" (insertion / nom / définir ) qui soit invisible
dans cette
fenêtre de cette façon
'Pour créer le nom "VICT" et mot de passe "Vendredi"
ThisWorkbook.Names.Add "VICT", "Vendredi", False
Pour récupérer la valeur du Nom :
a = ThisWorkbook.Names("Vict").Value
Et tu utilises a dans la procédure précédente en lieu et
place de MotDePasse
Salutations!
"pierreg" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:a02901c48701$cbe2ec20
$a501280a@phx.gbl...
bonsoir à tous,
j'ai une macro Excel qui ouvre 4 fichiers protégés par un
même mot de passe.
à chaque utilisation je dois taper 4 fois ce mot.
comment faire pour n'avoir à le faire qu'une fois, si
c'est possible ?
merci de vos conseils
pierreg
bonsoir, et deuxième merci! ça marche !! apparemment ça ne laisse pas traîner le mot de passe, donc la confidentialité semble préservée, est ce bien le cas ou est ce seulement par inexpérience que je crois ça? en tout cas merci à toi, cordialement pierreg euh, je sais que nous ne sommes pas dans un chat mais juste par curiosité: dans quelle ville es tu ? moi Paris. salut ami.
-----Message d'origine----- Bonjour Pierre,
Dim MotDePasse as string
MotDePasse = "Vendredi"
With Workbooks .Open CheminNomFichier.xls ,,, MotDePasse .Open CheminNomFichier1.xls ,,, MotDePasse .Open CheminNomFichier2.xls ,,,MotDePasse .Open CheminNomFichier3.xls ,,,MotDePasse end with
Si tu veux compliquer un peu les choses, tu peux créer un "NOM" (insertion / nom / définir ) qui soit invisible
dans cette
fenêtre de cette façon
'Pour créer le nom "VICT" et mot de passe "Vendredi" ThisWorkbook.Names.Add "VICT", "Vendredi", False
Pour récupérer la valeur du Nom : a = ThisWorkbook.Names("Vict").Value
Et tu utilises a dans la procédure précédente en lieu et place de MotDePasse
Salutations!
"pierreg" a écrit dans le message de news:a02901c48701$cbe2ec20
$
bonsoir à tous, j'ai une macro Excel qui ouvre 4 fichiers protégés par un même mot de passe. à chaque utilisation je dois taper 4 fois ce mot. comment faire pour n'avoir à le faire qu'une fois, si c'est possible ? merci de vos conseils pierreg
