Discussion :

[Decleirma]

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

[MarcelG]

Bonjour Decleirma et bienvenu sur ce Forum,

Pas besoin de Select.
Ces méthodes n'apportent rien si ce n'est la pollution du code.

Le problème ici semble résider en l'attachement des objets Range.
Préciser leur parent est une précaution souvent utile, voire nécessaire.

Exemple

Code :

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

Worksheets("lafeuille").[a1]

[Decleirma]

Je devrais donc plus me tourner vers ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub SaveAS()
'
' SaveAS Macro
'
    Set wk = ActiveWorkbook.Worksheets("Sheet2")
 
    ChDir "C:\Users\xxxxx\Desktop"
    wk.SaveAS Filename:=[sheet1!A1].Value & ".dl" & ".txt", _
    FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub

[MarcelG]

Salut,

Oui.
En effet, il n'est pas nécessaire de créer un nouveau classeur depuis une feuille pour l'enregistrer sous un nom de classeur différent de celui dont elle est issue.
Autrement dit, la méthode SaveAs peut s'appliquer à une feuille.

2 remarques:
1 - En fin de procédure, libérer la variable affectée à l'objet

Code :

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

Set wk = Nothing

2 - Syntaxe

Code :

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

[sheet1!A1]

correcte
J'aurais personnellement écrit

Code :

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

Worksheets("Sheet1").[A1]

Je viens d'apprendre quelque chose.
Il est vrai que [] signifie, sauf erreur, Evaluate

Reviens si nécessaire.

[Decleirma]

A vrai dire, ça ne marche pas, il me crée bien un fichier mais avec ma Sheet1, pourtant je lui indique bien de sauver la Sheet 2

[MarcelG]

Bizarre.

Ecris tout au début de la procédure

Code :

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

1
2
 
Dim wk as Worksheet

A la fin de la procédure

Code :

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

Set wk = Nothing

De plus, au lieu d'écrire

Code :

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

ActiveWorkbook

, écris

Code :

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

 Workbooks(nomdu classeur qui comporte la feuille à sauver + son extension .xls, .xlsm).Worksheets("Sheet2")

Si la feuille appartient au classseur au sein duquel la procédure est écrite, alors

Code :

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

 ThisWorkbook.Worksheets("Sheet2")