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