Insertion d'une feuille dans un ensemble de classeur
Bonjour à tous,
Je suis en train d'écrire un programme qui m'ouvre plusieurs fichiers et applique plusieurs commandes de mise en page et cette partie marche très bien. Par contre j'essaye d'ajouter une feuille "page de garde" à ces fichiers et elle s'insère tout le temps dans mon fichier contenant la macro.
J'ai beau activer mon classeur, l'ajout se fait toujours sur le classeur contenant la macro. J'ai essayé plusieurs bouts de programme trouver sur le net mais sans succès, le dernier en date ici :
Dim StrFile, chemin As String
chemin = "C:\Users\Matthieu.GUINET\Documents\Plan à traiter\"
StrFile = Dir(chemin & "*.csv*")
Do While Len(StrFile) > 0
With Workbooks.Open(chemin & StrFile)
Application.DisplayAlerts = False
Dim PageDeGarde As Worksheet
Workbooks(StrFile).Activate
Set PageDeGarde = Sheets.Add(Before:=Workbooks(StrFile).Sheets(Sheets.Count))
PageDeGarde.Name = "Page de garde"
[...] suite du programme de mise en page.
Quelqu'un aurait-il une solution pour ce problème ou des pistes ?
Merci d'avance.
MG.
Bonjour
Sans fichier et le code complet... pas facile de voir
Mais essayez ceci
Dim PageDeGarde As Worksheet
Set PageDeGarde = Workbooks(StrFile).Sheets.Add(Before:=Workbooks(StrFile).Sheets(Sheets.Count))
PageDeGarde.Name = "Page de garde"Cordialement
Merci beaucoup, c'était simple, je m'en veux de ne pas avoir pensé de fixer mon classeur ici ....
Merci encore, ça marche très bien.
Cordialement.