Probleme copie feuille nom deja existant

Bonjour a tous,

J'ai cree une macro qui copie une feuille vers une autre classeur apres l'avoir renommee...

Lorsque je modifie la feuille et que je veux la copier a nouveau en lancant la macro, une erreur m'est renvoyée: "erreur 1004 impossible de renommer une feuille comme une autre feuille..."

j'aimerai que la version deja existante soit remplacee par la derniere...

Merci a vous...

Bonsoir,

il vous suffit alors avec l'exportation de supprimer la première, non ?

@ bientôt

LouReeD

Bonjour,

Je me suis mal exprimé, en fait ma macro colle et copie le contenu de la feuille "CR" de mon classeur "2018" vers le classeur "CR2018" et renomme la feuille en fin de macro: sem1, sem2, sem3....

J aimerai que si la feuille "sem3" existe déja, elle soit supprimée et remplacée par celle qui est en train d'etre archivée....

J'espere avoir été plus clair,merci

voici ma macro:

Sub ARCHIVER_CR()

'

'

Application.ScreenUpdating = False

Dim wb As Workbook

Set wb1 = Workbooks(" 2018 .xlsm")

Set wb2 = Workbooks.Open("C:\Users\Jc\Desktop\CR2018.xlsx")

Windows(" 2018 .xlsm").Activate

wb1.Sheets("CR").Copy After:=wb2.Sheets(wb2.Sheets.Count)

Range("B16:Z64").Select

Selection.Copy

Range("B16").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveSheet.Name = "Sem " & Range("A3")

Range("A1").Select

ActiveWorkbook.Save

ActiveWindow.Close

Application.ScreenUpdating = True

Range("A1").Select

End Sub

Je pense qu'il faudrait que la macro vérifie avant d archiver une nouvelle feuille qu'il n'existe pas une feuille déja existante qui porte le nom de celle que l'on veut nommer...et si c'est le cas, supprimer cette feuille...

Voila, comme LooReeD me le conseillait j'ai décidé de supprimer la feuille avant de copier la nouvelle, et si celle ci n'existe pas, passer directement au collage de la nouvelle...

seulement lors de l'exécution, excel me renvoie "erreur d'execution 438, propriété ou méthode non gérée par cet objet"

je ne trouve pas l'erreur, si quelqu'un pouvait m'éclairer...

voici le début de la macro...

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Dim wb As Workbook

Set wb1 = Workbooks("2018 .xlsm")

Set wb2 = Workbooks.Open("C:\Users\JC\Desktop\CR2018.xlsx")

Windows("2018 .xlsm").Activate

Windows("CR2018.xlsx").Activate

If Sheets("Sem " & Workbooks("2018 .xlsm").Sheets("CR").Range("A3").Value) = True Then

Sheets("Sem " & Workbooks("2018 .xlsm").Sheets("CR").Range("A3").Value).Select

ActiveWindow.SelectedSheets.Delete

ElseIf Sheets("Sem " & Workbooks("2018 .xlsm").Sheets("CR").Range("A3").Value) = False Then

Windows("2018 .xlsm").Activate

wb1.Sheets("CR").Copy After:=wb2.Sheets(wb2.Sheets.Count)

Range("B16:Z64").Select

Selection.Copy

Merci

Bonjour

Il faudrait que tu fasses quelque chose de ce style :

Public Function FichierExiste(MonFichier As String)
   If Len(Dir(MonFichier)) > 0 Then
      FichierExiste = True
   Else
      FichierExiste = False
   End If
End Function
Sub test()
chemin = "C:\Fich\"
' test existence fichier pour savoir si on doit le créer
        If FichierExiste(chemin & "FichPays.xls") = True Then
            fi = chemin & "FichPays.xls"
            Kill fi
        End If
        Set newbook = Workbooks.Add
        ThisWorkbook.SaveAs ("FichPays.xls")
End Sub

Ton code est difficile à lire car non indenté. Tu as des balises au-dessus ( 5ème à partir de la gauche).

A+

Désolée à côté de la plaque , je pensais fichier

Bonjour

Pour supprimer ta feuille , tu peux faire cela :

Sub test()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub

A+

Rechercher des sujets similaires à "probleme copie feuille nom deja existant"