Exporter une feuille dans un classeur (ouvert ou fermé)
T
Bonjour,
Actuellement, j'ai un dossier, dans ce dossier le classeur "Source" dans lequel, j’ai intégré votre macro en modifiant la ligne cible " classeurCible = "1.xlsm". Et je copie bien la feuille source nommée "PARAM" vers le classeur 1. J'ai déjà un bout de vba qui fonctionne, mais que pour un seul classeur.
Les questions sont :
- Est-ce possible à partir du classeur source de copier la feuille uniquement "PARAM" pas seulement vers le classeur 1, mais vers tous les classeurs dans ce même dossier.
- La faisabilité de copie à partir du fichier source, ouvrir le classeur 1 coller, fermer/ ouvrir classeur 2 fermer/ et ainsi de suite.
- La faisabilité lors du collage de la feuille dans les classeurs et que si ces derniers ont déjà une feuille qui est nommée « PARAM », de pouvoir supprimer celle-ci et de le remplacer par celle du fichier source.
Par avance merci pour votre retour.
Actuellement, j'ai un dossier, dans ce dossier le classeur "Source" dans lequel, j’ai intégré votre macro en modifiant la ligne cible " classeurCible = "1.xlsm". Et je copie bien la feuille source nommée "PARAM" vers le classeur 1. J'ai déjà un bout de vba qui fonctionne, mais que pour un seul classeur.
Les questions sont :
- Est-ce possible à partir du classeur source de copier la feuille uniquement "PARAM" pas seulement vers le classeur 1, mais vers tous les classeurs dans ce même dossier.
- La faisabilité de copie à partir du fichier source, ouvrir le classeur 1 coller, fermer/ ouvrir classeur 2 fermer/ et ainsi de suite.
- La faisabilité lors du collage de la feuille dans les classeurs et que si ces derniers ont déjà une feuille qui est nommée « PARAM », de pouvoir supprimer celle-ci et de le remplacer par celle du fichier source.
Par avance merci pour votre retour.
A
Bonjour,
Tu peux utiliser
Set wb = Workbooks.Open(workbookPath)pour ouvrir les fichiers un par uns (à placer dans une boucle qui parcourt tous les fichiers de ton dossier). Ensuite, pour tester si la feuille existe déjà, tu peux par exemple faire
Set sh = Nothing
on error resume next
Set sh = wb.Sheets("tonNomDeFeuille")
on error goto 0
if IsNothing(sh) then
//si la feuille n'existe pas
else
//si la feuille existe
endif