Bonjour a toutes et a tous!!!
Quelqu'un aurait-il une solution pour transformer le code ci dessous pour que la macro
Verifie
si FX est vide, alors copier le contenue de GMRB_Raw_Data dans FX
si FX pas vide, alors afficher le message "Veuillez respecter les etapes de mise a jour"
ensuite garder le code a partir du lancement de la macro "supp"
Private Sub acceuil_Click()
Sheets("GMRB_Raw_Data").Copy Before:=Sheets("Markets_PI")
On Error Resume Next 'pour le cas où la feuille "FX" existerait
ActiveSheet.Name = "FX"
If Err.Number <> 0 Then
Application.DisplayAlerts = 0
ActiveSheet.Delete
Application.DisplayAlerts = 1
Sheets("FX").Activate
Exit Sub
End If
On Error GoTo 0
supp
Workbooks("17.03_version_propre.xls").RefreshAll
Sheets("GMRB_Raw_Data").Range("A2").Copy Sheets("Current_market").Range("A6")
Sheets("Current_market").Activate
Sheets("Current_market").Range("A1").Select
End Sub
Ca fait une heure que j'essaye, et je n'y arrive pas...
Merci d'avance pour ceux qui pourront m'aider.
Sim
Quelqu'un aurait-il une solution pour transformer le code ci dessous pour que la macro
Verifie
si FX est vide, alors copier le contenue de GMRB_Raw_Data dans FX
si FX pas vide, alors afficher le message "Veuillez respecter les etapes de mise a jour"
ensuite garder le code a partir du lancement de la macro "supp"
Private Sub acceuil_Click()
Sheets("GMRB_Raw_Data").Copy Before:=Sheets("Markets_PI")
On Error Resume Next 'pour le cas où la feuille "FX" existerait
ActiveSheet.Name = "FX"
If Err.Number <> 0 Then
Application.DisplayAlerts = 0
ActiveSheet.Delete
Application.DisplayAlerts = 1
Sheets("FX").Activate
Exit Sub
End If
On Error GoTo 0
supp
Workbooks("17.03_version_propre.xls").RefreshAll
Sheets("GMRB_Raw_Data").Range("A2").Copy Sheets("Current_market").Range("A6")
Sheets("Current_market").Activate
Sheets("Current_market").Range("A1").Select
End Sub
Ca fait une heure que j'essaye, et je n'y arrive pas...
Merci d'avance pour ceux qui pourront m'aider.
Sim