Bonjour,

Je débute dans le monde vaste qu'est la programmation et je suis face à un problème. Je désire enregistrer uniquement la Sheet2 en fichier texte Unicode avec pour nom la cellule A1 de la Sheet 1.
Néanmoins qu'en je lance le run, il me renomme ma Sheet2 avec le nom de la cellule A1 de la Sheet 1. Le problème étant que je ne peux relancer le run car mon "Sheets("Sheet2").Select" a disparu. Mon code est-il incorrect ou dois-je rajouter à la fin des lignes pour renommer la Sheet 2, sachant que son nom est variable.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub SaveAS()
'
' SaveAS Macro
'
    Sheets("Sheet2").Select
    ChDir "C:\Users\xxxxxx\Desktop"
    ActiveWorkbook.SaveAS Filename:=[sheet1!A1].Value & ".dl" & ".txt", _
    FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub
Merci d'avance pour vos réponses