Discussion :

[amino29]

Bonjour ,


j'ai une Feuil dans un fichier je sauvegarde la feuil dans un nouveau fichier dans le même répertoire utilisant ActiveWorkbook.SaveAs"" mais dans le nouveau fichier le nom de l'onglet est le nom de la feuil d’origine et moi je veux nommer la nouvelle feuil Feuil1 ...
donc est ce qu'il ya une façon pour enregistrer une feuil dans un nouveau fichier et renommer son onglet en meme temps sans toucher le fichier d'origine ?


merci d'avance

cdt

[Thautheme]

Bonjour Amino, bonjour le forum,

Essaie ce bout de code :

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim CH As String
 
CH = ThisWorkbook.Path & "\"
Sheets("le_nom_de_longlet").Copy
ActiveSheet.Name = "Feuil1"
ActiveWorkbook.SaveAs (CH & "le_nom_du_fichier.xlsx")
End Sub

[amino29]

Bonjour ,

est ce que vous pouvez m'expliquer ce qu'il fait le code !

merci

[Thautheme]

Bonjour Amino, bonjour le forum,

J'ai pour habitude de "toujours" commenté mes codes. Là, j'ai pensé que ce n'était pas nécessaire. Mal m'en a pris...
Le code commenté :

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
Dim CH As String 'déclare la variable CH (CHemin d'accès)
 
CH = ThisWorkbook.Path & "\" 'définit la variable CH (chemin d'accès de ce classeur d'origine plus un anti slash "\" à la fin)
Sheets("le_nom_de_longlet").Copy 'copie l'onglet (que tu vas adapter ici à ton cas en changeant le nom) dans un classeur vierge
ActiveSheet.Name = "Feuil1" 'renomme l'onglet copié dans le classeur vierge
ActiveWorkbook.SaveAs (CH & "le_nom_du_fichier.xlsx") 'sauve le classeur vierge dans le même dossier que le classeur d'origine avec le nom (et l'extension) que tu vas adapter à ton cas
End Sub

P.S. Si tu ne comprends toujours pas il faut que tu laisse tomber le VBA ou que tu deviennes un accro de la touche [F1]...