Dans un répertoire, j'ai tout une série de fichiers (budget de suivi de
dépenses marketing, un fichier par marque), protégés par un mot de
passe, ainsi qu'un fichier de consolidation.
Je souhaiterais pouvoir par macro ouvrir chacun de ces fichiers, sachant
que j'ai répertorié dans une feuille le nom de ces fichiers, ainsi que
le mdp associé.
J'ai commencé à rédiger ce bout de code mais je n'arrive pas à y faire
passer le mot de passe :
Private sub Workbook_open
i=0
for each file in Range("Nom_Fichier")
i=i+1
Nom=Range("C4").offset(i,0)
MdP=Range("D4").offset(i,0)
Workbooks.Open (File)
Next
End sub
Je vous remercie vivement par avance pour l'aide que vous pourrez m'apporter
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
anonymousA
bonsoir,
j'ai supposé que tes données allaient de la cellule C4 jusqu'à colonne C+i pour les noms et la cellule D4 jusqu'à colonne D+i pour les mdp
dans un module standard
Sub ouvrir
for i=1 to lavaleurquetuveux Workbooks.Open Range("C4").offset(i,0), password:=Range("D4").offset(i,0) next
end sub
Attention, il faudra que ce soit le nom complet pour les fichiers et qu'il n'y ait pas d'erreur d'appellation sinon il faut mettre en place une gestion d'erreurs. Par aillerus, ne conniassant pas la nature de ta plage "Nom_Fichier", je ne m'en suis pas servi. Mais tu peux l'utiliser en la triturant un peu au besoin si tu veux délimiter automatiquement la limite haute de la boucle (lavaleurquetuveux)
A+
Bonsoir à tous
Dans un répertoire, j'ai tout une série de fichiers (budget de suivi de dépenses marketing, un fichier par marque), protégés par un mot de passe, ainsi qu'un fichier de consolidation.
Je souhaiterais pouvoir par macro ouvrir chacun de ces fichiers, sachant que j'ai répertorié dans une feuille le nom de ces fichiers, ainsi que le mdp associé.
J'ai commencé à rédiger ce bout de code mais je n'arrive pas à y faire passer le mot de passe :
Private sub Workbook_open i=0 for each file in Range("Nom_Fichier") i=i+1 Nom=Range("C4").offset(i,0) MdP=Range("D4").offset(i,0)
Workbooks.Open (File)
Next End sub
Je vous remercie vivement par avance pour l'aide que vous pourrez m'apporter
Cordialement
Philippe
bonsoir,
j'ai supposé que tes données allaient de la cellule C4 jusqu'à colonne
C+i pour les noms et la cellule D4 jusqu'à colonne D+i pour les mdp
dans un module standard
Sub ouvrir
for i=1 to lavaleurquetuveux
Workbooks.Open Range("C4").offset(i,0), password:=Range("D4").offset(i,0)
next
end sub
Attention, il faudra que ce soit le nom complet pour les fichiers et
qu'il n'y ait pas d'erreur d'appellation sinon il faut mettre en place
une gestion d'erreurs. Par aillerus, ne conniassant pas la nature de ta
plage "Nom_Fichier", je ne m'en suis pas servi. Mais tu peux l'utiliser
en la triturant un peu au besoin si tu veux délimiter automatiquement la
limite haute de la boucle (lavaleurquetuveux)
A+
Bonsoir à tous
Dans un répertoire, j'ai tout une série de fichiers (budget de suivi de
dépenses marketing, un fichier par marque), protégés par un mot de
passe, ainsi qu'un fichier de consolidation.
Je souhaiterais pouvoir par macro ouvrir chacun de ces fichiers, sachant
que j'ai répertorié dans une feuille le nom de ces fichiers, ainsi que
le mdp associé.
J'ai commencé à rédiger ce bout de code mais je n'arrive pas à y faire
passer le mot de passe :
Private sub Workbook_open
i=0
for each file in Range("Nom_Fichier")
i=i+1
Nom=Range("C4").offset(i,0)
MdP=Range("D4").offset(i,0)
Workbooks.Open (File)
Next
End sub
Je vous remercie vivement par avance pour l'aide que vous pourrez
m'apporter
j'ai supposé que tes données allaient de la cellule C4 jusqu'à colonne C+i pour les noms et la cellule D4 jusqu'à colonne D+i pour les mdp
dans un module standard
Sub ouvrir
for i=1 to lavaleurquetuveux Workbooks.Open Range("C4").offset(i,0), password:=Range("D4").offset(i,0) next
end sub
Attention, il faudra que ce soit le nom complet pour les fichiers et qu'il n'y ait pas d'erreur d'appellation sinon il faut mettre en place une gestion d'erreurs. Par aillerus, ne conniassant pas la nature de ta plage "Nom_Fichier", je ne m'en suis pas servi. Mais tu peux l'utiliser en la triturant un peu au besoin si tu veux délimiter automatiquement la limite haute de la boucle (lavaleurquetuveux)
A+
Bonsoir à tous
Dans un répertoire, j'ai tout une série de fichiers (budget de suivi de dépenses marketing, un fichier par marque), protégés par un mot de passe, ainsi qu'un fichier de consolidation.
Je souhaiterais pouvoir par macro ouvrir chacun de ces fichiers, sachant que j'ai répertorié dans une feuille le nom de ces fichiers, ainsi que le mdp associé.
J'ai commencé à rédiger ce bout de code mais je n'arrive pas à y faire passer le mot de passe :
Private sub Workbook_open i=0 for each file in Range("Nom_Fichier") i=i+1 Nom=Range("C4").offset(i,0) MdP=Range("D4").offset(i,0)
Workbooks.Open (File)
Next End sub
Je vous remercie vivement par avance pour l'aide que vous pourrez m'apporter
