Discussion :

[VivianeBiot]

Bonjour et bonne année à tous!

Voici mon problème:
J'ai un document maitre contenant une liste de noms (AMBEL, ERISU...) et plusieurs macros
A partir de ce document, j'aimerai créer un document xls pour chacun des noms (nommé par exemple Results_AMBEL.xls) contenant chacun l'ensemble des macros présentent dans le document maitre.
Voici un extrait de la macro que j'ai essayé:

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
For c = 2 To DerL 'dernière ligne de la liste de noms
Weeds = ActiveSheet.Cells(c, 5).Value
NameDoc = "Results_" & Weeds
With Application.FileSearch
        .NewSearch
        .LookIn = chemin & "\Resultats"  
        .Filename = NameDoc  
        .MatchTextExactly = False 
        .FileType = msoFileTypeExcelWorkbooks   
        If Not .Execute() > 0 Then   'si un fichier n'est pas trouvé
        Namedoc2 = chemin & "\Resultats\NameDoc"
        ActiveWorkbook.SaveAs (Namedoc2)
        End If
End With
Next c

Problème: Le document ouvert n'est plus le document maitre mais le nouveau créé.

J'ai aussi essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set Wk = Workbooks.Add
Wk.SaveAs Filename:=Namedoc2, FileFormat:=xlExcel8

Mais dans ce cas le nouveau document ne contient pas les macros du document maitre.
Bref comment créer les nouveaux documents + macros sans quitter le document maitre pour pouvoir continuer la boucle des noms?
J'espère que mon problème est compréhensible!
Merci d'avance pour votre aide!
Viviane

[Menhir]

Remplace SaveAs par SaveCopyAs.

[VivianeBiot]

Remplace SaveAs par SaveCopyAs.

Alors là grosse beta que je suis, c'était si simple!
Merci beaucoup!!!
Viviane