Copier des feuilles et créer en nouveaux classeurs en collant les feuilles
Bonjour à tous,
Je rencontre un petit problème pour créer des nouveaux classeurs en ayant collé des feuilles depuis un classeur maitre.
Dim gabarit As Variant
gabarit = Array("Gabarit Contact", "Gabarit Article", "Gabarit Fournisseur", "Gabarit Contact Fournisseur", "Gabarit Facture", "Gabarit Paiement", "Gabarit Devis", "Gabarit Dépense", "Gabarit Règlement")
source = Dir(ThisWorkbook.Path & "\Gabarit Client.xlsx")
Set Source_Workbook = Workbooks.Open(folderpath & "\" & source)
For i = 0 To 8
Source_Workbook.Sheets(gabarit(i)).Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & gabarit(i) & ".xlsx"
ActiveWorkbook.Close SaveChanges:=True
NextVoici le petit code sans prétention que j'utilise.
Donc quand j'utilise ce code, j'ai bien mes fichiers qui sont enregistrés dans le répertoire avec le bon nom. Mais ces fichiers ne contiennent pas la feuille que je voulais copier.
À la place la seule valeur présente dans ces fichiers est la suivante "ActiveSheet.Paste"" dans ma cellule A1. Et en plus de cela, je me retrouve avec de nouveaux classeurs ouverts mais non enregistrés qui eux contiennent le contenu de la feuille que j'ai copié.
Donc j'y suis presque mais je colle au mauvais endroit. Mais je ne comprends pas pourquoi.
Une idée?
Merci d'avance
Bonjour,
Le simple fait d'exécuter la ligne :
Source_Workbook.Sheets(gabarit(i)).CopyTe crée un nouveau classeur..
Reste juste à le renommer...
Supprime les 2 lignes du dessous, pour voir
Bon appétit