Supprimer ou commenter Macro Auto_Open

Bonjour,

Je rencontre le problème suivant :

J'ai une macro qui permet (entre autre) de renommer une feuille à la première ouverture :

Public Sub Auto_Open()

'Renommer feuille EXTRACT_1

Worksheets("Feuil1").Name = "EXTRACT"

Application.EnableEvents = True

End Sub

Cependant lorsque j'enregistre le dit fichier (Fichier1.xlsm) sous un autre nom (Fichier2.xlsm), je ne peux pas ouvrir le Fichier2.xlsm car il me dit qu'il ne trouve pas la feuille "Feuil1", ce qui est normal.

Avez-vous une idée de comment je pourrais supprimer ma macro Auto_Open après 1ère exécution ou alors de mettre en commentaire son code ?

Je vous remercie de votre réponse.

Alison

Bonjour,

Public Sub Auto_Open()
'Renommer feuille EXTRACT_1
On Error Resume Next
Worksheets("Feuil1").Name = "EXTRACT"
On error Goto 0
Application.EnableEvents = True
End Sub

A+

ça marche, merci beaucoup.

Alison

Bonjour,

Je reviens sur le sujet avec finalement une macro Auto_Open beaucoup plus complète :

Public Sub Auto_Open()

'Selection feuille EXTRACT_2

Sheets("EXTRACT_2").Select

Range("A2:BK" & Cells(Rows.Count, 1).End(xlUp).Row).Copy

' Copie sur feuille EXTRACT_1

Sheets("EXTRACT_1").Select

dl = Range("A65536").End(xlUp).Row + 1

Cells(dl, 1).Select

ActiveSheet.Paste

'Suppression feuille EXTRACT_2

Application.DisplayAlerts = False

Sheets("EXTRACT_2").Delete

'Renommer feuille EXTRACT_1

Worksheets("EXTRACT_1").Name = "EXTRACT"

End Sub

Comment puis-je faire pour que cette macro ne s'exécute plus après la première ouverture ?

Je vous en remercie !

galopin01 a écrit :

Bonjour,

Public Sub Auto_Open()
'Renommer feuille EXTRACT_1
On Error Resume Next
Worksheets("Feuil1").Name = "EXTRACT"
On error Goto 0
Application.EnableEvents = True
End Sub

A+

Bonjour,

Je reviens sur le sujet avec finalement une macro Auto_Open beaucoup plus complète :

Public Sub Auto_Open()

'Selection feuille EXTRACT_2

Sheets("EXTRACT_2").Select

Range("A2:BK" & Cells(Rows.Count, 1).End(xlUp).Row).Copy

' Copie sur feuille EXTRACT_1

Sheets("EXTRACT_1").Select

dl = Range("A65536").End(xlUp).Row + 1

Cells(dl, 1).Select

ActiveSheet.Paste

'Suppression feuille EXTRACT_2

Application.DisplayAlerts = False

Sheets("EXTRACT_2").Delete

'Renommer feuille EXTRACT_1

Worksheets("EXTRACT_1").Name = "EXTRACT"

End Sub

Comment puis-je faire pour que cette macro ne s'exécute plus après la première ouverture ?

Je vous en remercie !

Bonsoir,

ci-jointe une solution sans les "Select" parfaitement inutiles

Private Sub Workbook_Open()
    Dim lig As Integer, cell As Range

    Application.DisplayAlerts = False
    On Error Resume Next
    With Sheets("Extract_1")
        If Err.Number <> 0 Then Exit Sub
        lig = .UsedRange.Rows.Count + .UsedRange.Row    'première ligne disponible
        Set cell = .Cells(lig, "A") 'première cellule disponible en colonne A
        With Sheets("Extract_2")
            .UsedRange.Copy cell
            .Delete
        End With
        .Name = "Extract"
    End With

End Sub