Re : Vbyesno
erci roland mais ca ne change rien
quand je clique sur non la macro s exécute quand même!
voici mon code
Sub ACP()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Call Message
' Récupération des données des appels entrants
ChDir "\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM"
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants.xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants").Select
Cells.Select
Sheets("Appels entrants").Paste
Windows("ROSSE JP_Appels entrants.xlsx").Activate
ActiveWindow.Close
' Récupération des données des appels entrants répondus
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants répondus.xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants répondus").Select
Cells.Select
Sheets("Appels entrants répondus").Paste
Windows("ROSSE JP_Appels entrants répondus.xlsx").Activate
ActiveWindow.Close
' Récupération des données des appels entrants perdus
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants perdus.xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants perdus").Select
Cells.Select
Sheets("Appels entrants perdus").Paste
Windows("ROSSE JP_Appels entrants perdus.xlsx").Activate
ActiveWindow.Close
' Récupération des stats générales
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants (statistique générale).xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants (statistique)").Select
Cells.Select
Sheets("Appels entrants (statistique)").Paste
Windows("ROSSE JP_Appels entrants (statistique générale).xlsx").Activate
ActiveWindow.Close
' Récupération des graphes
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants (graphique).xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants (graphique)").Select
Cells.Select
Sheets("Appels entrants (graphique)").Paste
Windows("ROSSE JP_Appels entrants (graphique).xlsx").Activate
ActiveWindow.Close
' Sélection de la feuille
Sheets("Synthèse").Select
' Enregistrement classeur
ActiveWorkbook.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub Aut
pen()
Call ACP
End Sub
Sub Message()
Dim RepMsgbox As Variant
Rep = MsgBox("L'export ACP du " & Date - 1 & " va démarrer, voulez-vous continuer? ", vbYesNo + vbQuestion, "Export ACP")
If Rep = vbYes Then Call ACP
If Rep = vbNo Then Exit Sub
End Sub
merci