Discussion :

[dlight]

Bonjour à tous.

J'ai un fichier qui analyse plusieurs informations et qui, au final, va copier une feuille de mon fichier principal dans un fichier qui sera créé par le VBA.

La création du fichier et la copie de ma Feuil1 fonctionne très bien. Même résultat pour l'enregistrement du nom du nouveau fichier.

La dernière ligne de l'extrait ci-dessous est censé me retourner dans le fichier que je viens tout juste de créer mais rien à faire. Je demeure dans mon fichier d'origine.

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
 
Ce_fichier = ThisWorkbook.Name
    Autre_fichier = "Taxprep form.xlsb"
 
   Workbooks.Add
    ChDir "V:\Cybele"
    ActiveWorkbook.SaveAs Filename:="V:\Cybele\Taxprep form.xlsb", FileFormat:= _
        xlExcel12, CreateBackup:=False
    Sheets("Feuil1").Name = "Test"
 
    Windows(Ce_fichier).Activate
 
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy Before:=Workbooks("Taxprep form.xlsb").Sheets(1)
 
    Windows(Autre_fichier).Activate

Quelqu'un aurait une piste de solution ?

Merci à l'avance.

[ARTURO83]

Bonjour,

Pourtant ça marche bien,
- le fichier est bien crée, la feuille 1 dans le nouveau fichier est renommée "test"
- puis la copie de la feuille 1 du fichier actif est recopiée dans la feuille 1 (juste avant la feuille "Test") du nouveau fichier
-la dernière ligne est inutile, puisque la copie active la fenêtre du nouveau fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
    Ce_fichier = ThisWorkbook.Name
    Autre_fichier = "Taxprep form.xlsb"
 
    Workbooks.Add
    ChDir "V:\Cybele"
    ActiveWorkbook.SaveAs Filename:="V:\Cybele\Taxprep form.xlsb", FileFormat:=xlExcel12, CreateBackup:=False
    Sheets("Feuil1").Name = "Test"
 
    Windows(Ce_fichier).Activate
    Sheets("Feuil1").Copy Before:=Workbooks("Taxprep form.xlsb").Sheets(1)

Question: Ne vouliez-vous pas plutôt copier-coller la feuille1 du fichier actif dans la feuille "Test" du nouveau fichier? Dans ce cas, pourquoi créer la feuille "test" et copier ensuite dans la feuille 1 du nouveau fichier?

Cdlt