faire une copy et renommer

[David59]

bonjour le forum

je voudrais faire une ou des copy d'un page type avec vba et en mais temps renommer les nouvelles pages en fonction d'un liste de nom remplis avant

cela et t'il possible😕
merci
david @+

 

[porcinet82]

Re : faire une copy et renommer

Salut,

Oui, quasiment tout est possible avec vba, c'est la leçon que j'ai tiré de ce forum a force de consulter les codes des meilleurs (je ne les citerai pas, je voudrais pas qu'ils prennent la grosse tete, mais ils se reconnaitrons...)

Pour en revenir a ta question, ou se trouve ta liste de nom? Donne nous la plge de cellule et on adaptera un code.

@+

 

[David59]

Re : faire une copy et renommer

bonjour porcinet82

voila un exemple

@+

 

[petithomme]

Re : faire une copy et renommer

bonjour,

voila

 

[porcinet82]

Re : faire une copy et renommer

re,

Je t'ai un peu modifié ton code, en espérant avoir compris ce que tu voulais faire.

Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim Cell As Range
Dim C As Range
Dim k%, bool As Boolean
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each Cell In Range("D1:D" & Range("D65536").End(xlUp).Row)
    For k = 1 To Sheets.Count
        If Cell = Sheets(k).Name Then bool = True: Exit For
    Next k
    If bool = False Then
        Sheets("vierge").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Cell.Text
    End If
Next Cell
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Je t'ai viré les On Error parce que je ne raffole pas de cette fonction.

@+

Edition : Salut Petithomme, désolé, pas rafraichit

 

[David59]

Re : faire une copy et renommer

merci beaucoup
David @+