J
Johan
Guest
Bonjour à tous,
dans un workbook avec 1 sheet, je reprends une valeur -> je rajoute un sheet -> et j'écris cette valeur dans ce nouveau sheet -> et je delete le fichier source
en suppriment se fichier je reçois la mention 'automatisation error'
si on enlève la ligne qui met le DisplayAlerts = False tout marche très bien.
Quelqu'un pourrait-il me dire ce qui ne va pas ou comment y remedier?
Merci beaucoup
Private Sub CommandButton1_Click()
CommandButton1.Visible = True
Dim user As String
user = ActiveSheet.Range("c10").Value
Worksheets.Add
ActiveSheet.Range("a1").Value = user
Application.DisplayAlerts = False
Sheets("ComputerName&User").Delete
Application.DisplayAlerts = True
MsgBox "tu y es"
End Sub
dans un workbook avec 1 sheet, je reprends une valeur -> je rajoute un sheet -> et j'écris cette valeur dans ce nouveau sheet -> et je delete le fichier source
en suppriment se fichier je reçois la mention 'automatisation error'
si on enlève la ligne qui met le DisplayAlerts = False tout marche très bien.
Quelqu'un pourrait-il me dire ce qui ne va pas ou comment y remedier?
Merci beaucoup
Private Sub CommandButton1_Click()
CommandButton1.Visible = True
Dim user As String
user = ActiveSheet.Range("c10").Value
Worksheets.Add
ActiveSheet.Range("a1").Value = user
Application.DisplayAlerts = False
Sheets("ComputerName&User").Delete
Application.DisplayAlerts = True
MsgBox "tu y es"
End Sub