Discussion :

[hayef]

bonsoir tous le monde

j'ai un problème si quelqu'un peux m'aider c'est que:

quand je veux enregistrer seulement la 3eme feuille cette dernière se nomme automatiquement et moi je ne veux pas que ce classeur se modifie surtout le nom de la 3eme feuille et voici la macro que j'utilise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub creer13971_TXT()
  Close
  chemin = "C:\"
  fichier = chemin & Worksheets("Feuil1").Range("H18") & "-" & Worksheets("Feuil1").Range("H19") & ".txt"
ActiveWorkbook.SaveAs Filename:= _
        fichier, _
        FileFormat:=xlText, CreateBackup:=False
 'commande Pour XP, pour W7 cherchez le chemin
    Shell "C:\WINDOWS\notepad.exe " & fichier
 
End Sub

merci d'avance pour tous ceux qui m'aide a résoudre ce problème

[BDA53]

Salut,

Rajoute l'instruction Worksheets(3).Name = "ton nom" à ton programme. Cela te permet de renommer le nom de tes feuilles.

PS : La prochaine n'oublie d'ajouter les balises du code à ton programme [/CODE]

Cordialement
xela57

[Kimy_Ire]

Bonjour hayef,

Etant donné que tu enregistres ta feuille n°3 en tant avec le format .txt, celle-ci est automatiquement renommée.
Je ne connais pas l'instruction qui te permettrait de bloquer ce renommage.

Par contre, il existe une solution palliative très simple : Feuil3.Name = "Feuil3".

Tu peux récupérer le nom de ta feuille avant de la sauvegarder et la renommer par la suite.

Ainsi :

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
17
18
19
20
Sub creer13971_TXT()
 
Dim oNom As String
 
  Close
  chemin = "C:\"
  fichier = chemin & Worksheets("Feuil1").Range("H18") & "-" & Worksheets("Feuil1").Range("H19") & ".txt"
 
  oNom = Feuil3.Name
 
ActiveWorkbook.SaveAs Filename:= _
        fichier, _
        FileFormat:=xlText ', CreateBackup:=False
 'commande Pour XP, pour W7 cherchez le chemin
 
 Feuil3.Name = oNom
 
    Shell "C:\WINDOWS\notepad.exe " & fichier
 
End Sub

Cordialement,
Kimy

[hayef]

merci tous le monde

je vais essayer et vous rependre