Bonjour
et merci par avance à tous lecteur de ce post qui pourra m'aider.
Je cherche dans le cadre de mon travail à générer depuis un fichier modèle (*.xlt), des copies de celui ( sous format xlsx).
Le but, étant de dupliquer un tableau de planification de travail, (je souhaite copier les feuilles 4 à n de mon tableau modèle), sachant que chaque feuille peut avoir plusieurs centaines de lignes, et qu'il peut y avoir une quinzaine de feuilles ( et que les utilisateurs finaux ne sont pas à l'aise et risquent de tout détruire=> d’où la raison de l'automatisation).
J'ai récupéré un code ( sur le net) mais j'ai un retour d'erreur et n'arrive pas à identifier le couac.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Sub CreeFichier() ' ' Dim NbFeuilles, i As Integer Dim NomFichier As String ' Début de la Macro NbFeuilles = Sheets.Count i = 0 NomFichier = Sheets("creation du planning").Range("B5").Value Workbooks.Add ActiveWorkbook.SaveAs Filename:=NomFichier Workbooks("170221-LI-XY-V1.xltm").Activate For i = 4 To NbFeuilles Sheets(Sheets(4).Name).Move Before:=Workbooks(NomFichier & ".xls").Sheets(1) Workbooks("170221-LI-XY-V1.xltm").Activate Next i Workbooks("170221-LI-LGA-AFONDS-MODELE-V1.xltm").Activate Workbooks(NomFichier & ".xls").Save Workbooks(NomFichier & ".xls").Close End Sub
Mon problème est le suivant, la ligne soulignée me renvoie "l'indice n'appartient pas à la sélection"
Cela semble être le fait que le fichier vers lequel cela pointe n'est pas connu ( or cette ref est utilisée plus haut...) et il s'agit bien du fichier source.
Bref si je me trompe (et je me trompe surement) que quelque me le dise.
Accessoirement, ( et par la même occasion) si dans la copie je ne pouvais garder que les valeurs des cellules et non les formules cela serait parfait .
Au plaisir de lire quelqu'un de plus qualifié que moi en retour.
Cordialement
Strig
Partager