Bonjour à tous,

Je possède un classeur, servant de modèle. Ce modèle est répliqué environ une centaine de fois.

Mon problème, c'est qu'une fois le classeur sauvé dans un dossier, il ne l'ouvre pas pour faire les modifications que j'aimerais lui apporter, voici la partie du code concernant cette partie :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Set fso = CreateObject("Scripting.FileSystemObject")
Destination = "Table"
                If Not fso.FolderExists(Destination) Then
                       fso.CreateFolder (Destination)
                End If
                Application.ActiveWorkbook.SaveCopyAs Filename:=Destination & "\" & nam & ".xlsm"
 
                        If ThisWorkbook.name <> "TablesTemplate.xlsm" Then
                            Call Replacecountries(ref, nam, nou)
                        End If

Pour résumer, voici le processus que j'aimerais appliquer :
1) ouvrir le modèle 2) le sauver dans un dossier 3) ouvrir la copie sauvé, y appliqué le code contenu dans "replacecountries (ref,nam,nou) 4) fermer la copie 5) repartir sur le numéro 1

Pouvez-vous svp m'aider?

Bonne fin de journée