Discussion :

[Aladin_23]

Bonjour le forum
Avec l' enregistreur de macro j' ai cree cette procedure

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
   Sheets("Contenu de répertoire").Select
    Rows("4:9837").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Columns("A:A").ColumnWidth = 10.86
    Columns("B:B").ColumnWidth = 36.71
    Columns("B:B").ColumnWidth = 39.71
    Sheets("Contenu de répertoire").Select
    Application.CutCopyMode = False
    Sheets("Contenu de répertoire").Name = "Contenu de répertoire22"
    Sheets("Feuil3").Select
    Sheets("Feuil3").Name = "Contenu de répertoire"
    Range("K29:L29").Select
    Range("L29").Activate
    ActiveWorkbook.Save

Le principe c'est de selectionner la ligne 4 juqu' a la ligne 9837 Copie et Coller vers une nouvelle feuille qui aura été creé auparavant
La ou se situe le pb c' est que le nom de la nouvelle feuille est écrit en dur dans la code
On bloque dessus car a la prochiane execution il cherchera une feuill3 qui n' existera pas car elle aura été entretemps renommée
Comment lui dire de me creer une nouvelle feuille et de lui attribué un nom ?. Pour ne pas avoir le nom feuill3 écrit en dur
Merci d' avance pour toute aide apporté sur une eventuelle modification
Aladin

[spookyz]

Bonjour,
les copies se font toujours depuis la feuille "Contenu de répertoire" ?
et si oui quel est le nom de la copie ? et faut il une copie supplémentaire a chaque fois ou faut il écraser la copie ?

[EngueEngue]

Code :

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

1
2
Sheets.Add 
ActiveSheet.Name = "Nom de la nouvelle feuille"

[Aladin_23]

Bonjour le forum
Merci d' avoir répondu à mon post
spookyz : Oui les copies se font toujours depuis la feuille "contenu de répertoire"
Oui il faut une copie supplumentaire a chaque fois
La copie doit reprendre le nom "contenu de repertoire" et L' autre renommé en "conteneu de répertoire22"
NouveauVBA: j' ai utilisé le

Code :

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

ActiveSheet.Name = "Contenu de répertoire"

La modification est bonne, le copie/Coller et le renommage sont OK
Aladin

[EngueEngue]

Parfait. Tu peux cliquer sur résolu

[spookyz]

Je ne pense pas que tu puisse donner le même nom a plusieurs feuilles il faut donc modifier le nom de chaque nouvelles feuille par exemple contenu répertoire_1
contenu répertoire-2 etc

[NicolasST]

Modife ton code comme suivant (2 modifs) :

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
21
   Sheets("Contenu de répertoire").Select
    Rows("4:9837").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
 
                    x = Activesheet.name
 
    ActiveSheet.Paste
    Columns("A:A").ColumnWidth = 10.86
    Columns("B:B").ColumnWidth = 36.71
    Columns("B:B").ColumnWidth = 39.71
    Sheets("Contenu de répertoire").Select
    Application.CutCopyMode = False
    Sheets("Contenu de répertoire").Name = "Contenu de répertoire22"
    'Sheets("Feuil3").Select
    'Sheets("Feuil3").Name = "Contenu de répertoire"
              Sheets(x).Name = "Contenu de répertoire"
 
    Range("K29:L29").Select
    Range("L29").Activate
    ActiveWorkbook.Save

[Aladin_23]

Bonjour à tous
J' ai fait ceci qui fonctionne pour l' instant

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
Sheets("Contenu de répertoire").Select
    Rows("4:9837").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Contenu de répertoire2"
    ActiveSheet.Paste
    Columns("A:A").ColumnWidth = 10.86
    Columns("B:B").ColumnWidth = 36.71
    Columns("B:B").ColumnWidth = 39.71
    Sheets("Contenu de répertoire").Select
    Application.CutCopyMode = False
    Sheets("Contenu de répertoire").Name = "Contenu de répertoire22"
    Sheets("Contenu de répertoire2").Select
    ActiveSheet.Name = "Contenu de répertoire"
   ' Sheets("Contenu de répertoire").Select
    Range("K29:L29").Select
    Range("L29").Activate
    ActiveWorkbook.Save

Je ne fais pas de copie tous les jours, je ne pense pas que j' aurai a renommer les feuilles en." contenu de repertoire1".Je verrai par la suite si il faut une amelioration.
Merci bcp
Aladin

[casefayere]

Bonjour,
Evites tous tes "Select", à part le dernier s'il est vraiment utile (à voir)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sheets("Contenu de répertoire").Rows("4:9837").Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Contenu de répertoire2"
ActiveSheet.Paste
Columns("A:A").ColumnWidth = 10.86
Columns("B:B").ColumnWidth = 36.71
Columns("B:B").ColumnWidth = 39.71
Application.CutCopyMode = False
Sheets("Contenu de répertoire").Name = "Contenu de répertoire22"
Sheets("Contenu de répertoire2").Name = "Contenu de répertoire"
Range("L29").Select
ActiveWorkbook.Save