Bonjour tout le monde,
J'aurais besoin de votre aide pour du vba.
Je me trouve sur un fichier "aaaa.xls", je lance une macro qui me permet de créer un autre fichier et d'effectuer en automatique une recopie de certaines feuilles avec ou sans formules.
Voici le début de mon code:
Dim NomFichier1 As String
Dim NomFichier2 As String
Dim NomFichier3 As String
NomFichier1 = ActiveWorkbook.Name
Workbooks.Add
Range("A1").Select
NomFichier2 = ActiveWorkbook.Name
Windows(NomFichier1).Activate
Sheets("Synthèse").Select
Sheets("Synthèse").Copy After:=Workbooks(NomFichier2).Sheets(3)
Windows(NomFichier1).Activate
Sheets("Renta").Select
Sheets("Renta").Copy After:=Workbooks(NomFichier2).Sheets(4)
etc...
Le probléme est que systématiquement je ne récupére que le nom de mon fichier de macro personnel "personal.xlsb" et non celui du classeur que je viens de créer ou celui du classeur à partir duquel j'ai lancé ma macro.
Je ne sais pas si je suis bien clair, en tout cas je vous remercie par avance de votre aide.
PS: j'ai également essayé avec "thisWorkbook" à la place de "ActiveWorbook"
J'aurais besoin de votre aide pour du vba.
Je me trouve sur un fichier "aaaa.xls", je lance une macro qui me permet de créer un autre fichier et d'effectuer en automatique une recopie de certaines feuilles avec ou sans formules.
Voici le début de mon code:
Dim NomFichier1 As String
Dim NomFichier2 As String
Dim NomFichier3 As String
NomFichier1 = ActiveWorkbook.Name
Workbooks.Add
Range("A1").Select
NomFichier2 = ActiveWorkbook.Name
Windows(NomFichier1).Activate
Sheets("Synthèse").Select
Sheets("Synthèse").Copy After:=Workbooks(NomFichier2).Sheets(3)
Windows(NomFichier1).Activate
Sheets("Renta").Select
Sheets("Renta").Copy After:=Workbooks(NomFichier2).Sheets(4)
etc...
Le probléme est que systématiquement je ne récupére que le nom de mon fichier de macro personnel "personal.xlsb" et non celui du classeur que je viens de créer ou celui du classeur à partir duquel j'ai lancé ma macro.
Je ne sais pas si je suis bien clair, en tout cas je vous remercie par avance de votre aide.
PS: j'ai également essayé avec "thisWorkbook" à la place de "ActiveWorbook"