Discussion :

[Urial]

Bonjour a tous,

néophyte dans le VB, j'essaye de copier le nom d'une cellule dans un nom de classeur pour pouvoir avoir a chaque fois un nom différent dans ma copie (en faite mon fichier a un formulaire que doit remplir l'utilisateur, ce qui donne une copie du classeur que je ne veux pas que l'utilisateur modifie.

voila ce que j'ai fais mais cela ne marche pas

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
Sub finaliser()
'
' finaliser Macro
'
 
'
    ActiveWindow.SmallScroll Down:=-3
    Sheets("Formulaire").Select
    Sheets("Feuille d'arméé").Visible = True
    Sheets("Feuille d'arméé").Select
    Sheets("Feuille d'arméé").Copy After:=Sheets(8)
    Sheets("Formulaire").Select
    Selection.Copy
    Sheets("Feuille d'arméé (2)").Select
    Sheets("Feuille d'arméé (2)").Name = Sheets("Formulaire").Cells(E3)
    Sheets("Feuille d'arméé").Select
    ActiveWindow.SelectedSheets.Visible = False
 
End Sub

Merci d'avance pour votre aider et bonne journée !

[Menhir]

Lorsqu'on utilise l'enregistreur de macro, il faut ensuite utiliser l'aide en ligne pour comprendre chaque ligne de code générée et l'adapter.
L'enregistreur automatique est un excellent outil pour indiquer la voie à suivre mais en aucun cas il peut se suffire à lui-même pour créer un code exploitable.
Entre autre, il a une fâcheuse tendance à mettre des Select partout, ce qui est à corriger dans le code.

Code :

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

1
2
3
4
5
Sub finaliser()
    Sheets("Feuille d'arméé").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
    ActiveSheet.Visible = True
    ActiveSheet.Name = Worksheets("Formulaire").Range("E3").Value
End Sub

[Urial]

Rha ! j'avais ActiveSheet.Name = Worksheets("Formulaire").Range("E3").Value mais sans worksheets("formulaire") et du coup il me retournait une cellule vide !

normal j'essayais de coller une cellule du nouveau classeur !!! rha quel idiot ^^

J'ai encore du mal avec la programmation (et le pas a pas )

merci en tout cas !