j'ai dans un fichier Liste.xls un classeur dans lequel une colonne contien
la liste de tous les fichiers que je voudrais ouvrir (du style aaaa.xls,
puis en dessous bbbb.xls, ...)
Je voudrais parcourir cette colonne de haut en bas pour ouvrir le fichier
dont le nom correspond à la valeur de la cellule selectionnée, puis faire ce
que j'ai à faire dans ce fichier puis le fermer ensuite revenir sur
liste.xls selectionner la cellule suivante pour ouvrir le fichier
correpondant.
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
Trirème
Bonjour nesos
Sub Macro1() ' Ouvre les fichiers dont les noms sont écrits dans les cellules ' de la sélection courante ' A peaufiner avec des contrôles (cellules non vides, fichier 'ouvrable'...)
MonDir = "D:MonChemin" ' A préciser si ça n'est pas déjà ' fait dans les cellules elles-mêmes For Each c In Selection Workbooks.Open MonDir & c ' ************************************** ' Le traitement ' ************************************** Workbooks(c.Value).Close SaveChanges = True Next c End Sub
Cordialement Trirème
Bonsoir
j'ai dans un fichier Liste.xls un classeur dans lequel une colonne contien la liste de tous les fichiers que je voudrais ouvrir (du style aaaa.xls, puis en dessous bbbb.xls, ...) Je voudrais parcourir cette colonne de haut en bas pour ouvrir le fichier dont le nom correspond à la valeur de la cellule selectionnée, puis faire ce que j'ai à faire dans ce fichier puis le fermer ensuite revenir sur liste.xls selectionner la cellule suivante pour ouvrir le fichier correpondant.
Merci
Bonjour nesos
Sub Macro1()
' Ouvre les fichiers dont les noms sont écrits dans les cellules
' de la sélection courante
' A peaufiner avec des contrôles (cellules non vides, fichier 'ouvrable'...)
MonDir = "D:MonChemin" ' A préciser si ça n'est pas déjà
' fait dans les cellules elles-mêmes
For Each c In Selection
Workbooks.Open MonDir & c
' **************************************
' Le traitement
' **************************************
Workbooks(c.Value).Close SaveChanges = True
Next c
End Sub
Cordialement
Trirème
Bonsoir
j'ai dans un fichier Liste.xls un classeur dans lequel une colonne contien
la liste de tous les fichiers que je voudrais ouvrir (du style aaaa.xls,
puis en dessous bbbb.xls, ...)
Je voudrais parcourir cette colonne de haut en bas pour ouvrir le fichier
dont le nom correspond à la valeur de la cellule selectionnée, puis faire ce
que j'ai à faire dans ce fichier puis le fermer ensuite revenir sur
liste.xls selectionner la cellule suivante pour ouvrir le fichier
correpondant.
Sub Macro1() ' Ouvre les fichiers dont les noms sont écrits dans les cellules ' de la sélection courante ' A peaufiner avec des contrôles (cellules non vides, fichier 'ouvrable'...)
MonDir = "D:MonChemin" ' A préciser si ça n'est pas déjà ' fait dans les cellules elles-mêmes For Each c In Selection Workbooks.Open MonDir & c ' ************************************** ' Le traitement ' ************************************** Workbooks(c.Value).Close SaveChanges = True Next c End Sub
Cordialement Trirème
Bonsoir
j'ai dans un fichier Liste.xls un classeur dans lequel une colonne contien la liste de tous les fichiers que je voudrais ouvrir (du style aaaa.xls, puis en dessous bbbb.xls, ...) Je voudrais parcourir cette colonne de haut en bas pour ouvrir le fichier dont le nom correspond à la valeur de la cellule selectionnée, puis faire ce que j'ai à faire dans ce fichier puis le fermer ensuite revenir sur liste.xls selectionner la cellule suivante pour ouvrir le fichier correpondant.
Merci
nesos
merci nickel ça marche "Trirème" a écrit dans le message de news:
Bonjour nesos
Sub Macro1() ' Ouvre les fichiers dont les noms sont écrits dans les cellules ' de la sélection courante ' A peaufiner avec des contrôles (cellules non vides, fichier 'ouvrable'...)
MonDir = "D:MonChemin" ' A préciser si ça n'est pas déjà ' fait dans les cellules elles-mêmes For Each c In Selection Workbooks.Open MonDir & c ' ************************************** ' Le traitement ' ************************************** Workbooks(c.Value).Close SaveChanges = True Next c End Sub
Cordialement Trirème
Bonsoir
j'ai dans un fichier Liste.xls un classeur dans lequel une colonne contien la liste de tous les fichiers que je voudrais ouvrir (du style aaaa.xls, puis en dessous bbbb.xls, ...) Je voudrais parcourir cette colonne de haut en bas pour ouvrir le fichier dont le nom correspond à la valeur de la cellule selectionnée, puis faire ce que j'ai à faire dans ce fichier puis le fermer ensuite revenir sur liste.xls selectionner la cellule suivante pour ouvrir le fichier correpondant.
Merci
merci
nickel ça marche
"Trirème" <NoOne@EvryOuer.fr> a écrit dans le message de news:
eszqnLPEHHA.4060@TK2MSFTNGP03.phx.gbl...
Bonjour nesos
Sub Macro1()
' Ouvre les fichiers dont les noms sont écrits dans les cellules
' de la sélection courante
' A peaufiner avec des contrôles (cellules non vides, fichier
'ouvrable'...)
MonDir = "D:MonChemin" ' A préciser si ça n'est pas déjà
' fait dans les cellules elles-mêmes
For Each c In Selection
Workbooks.Open MonDir & c
' **************************************
' Le traitement
' **************************************
Workbooks(c.Value).Close SaveChanges = True
Next c
End Sub
Cordialement
Trirème
Bonsoir
j'ai dans un fichier Liste.xls un classeur dans lequel une colonne
contien la liste de tous les fichiers que je voudrais ouvrir (du style
aaaa.xls, puis en dessous bbbb.xls, ...)
Je voudrais parcourir cette colonne de haut en bas pour ouvrir le fichier
dont le nom correspond à la valeur de la cellule selectionnée, puis faire
ce que j'ai à faire dans ce fichier puis le fermer ensuite revenir sur
liste.xls selectionner la cellule suivante pour ouvrir le fichier
correpondant.
merci nickel ça marche "Trirème" a écrit dans le message de news:
Bonjour nesos
Sub Macro1() ' Ouvre les fichiers dont les noms sont écrits dans les cellules ' de la sélection courante ' A peaufiner avec des contrôles (cellules non vides, fichier 'ouvrable'...)
MonDir = "D:MonChemin" ' A préciser si ça n'est pas déjà ' fait dans les cellules elles-mêmes For Each c In Selection Workbooks.Open MonDir & c ' ************************************** ' Le traitement ' ************************************** Workbooks(c.Value).Close SaveChanges = True Next c End Sub
Cordialement Trirème
Bonsoir
j'ai dans un fichier Liste.xls un classeur dans lequel une colonne contien la liste de tous les fichiers que je voudrais ouvrir (du style aaaa.xls, puis en dessous bbbb.xls, ...) Je voudrais parcourir cette colonne de haut en bas pour ouvrir le fichier dont le nom correspond à la valeur de la cellule selectionnée, puis faire ce que j'ai à faire dans ce fichier puis le fermer ensuite revenir sur liste.xls selectionner la cellule suivante pour ouvrir le fichier correpondant.
