Workbooks.Add
=20
On Error GoTo Gestion_Erreur_CG
ActiveWorkbook.SaveAs (CB_Chemin & "Controle de=20
Gestion " & DateImp & ".xls")
SUITE_CG
MsgBox ("Les tableaux et Graphiques du controle de=20
gestion ont =E9t=E9 sauvegard=E9s correctement" & Chr(13) & Chr
(13) & _
CB_Chemin & "Controle de Gestion")
Exit Sub
Gestion_Erreur_CG:
MsgBox "Le chemin indiqu=E9 n'existe pas."
Windows(N_fichier).Activate:=20
ActiveWorkbook.Close: Application.DisplayAlerts =3D True
Exit Sub
Resume Next =20
End Sub
=20
Sub SUITE_CG(Optional Factice As String)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonjour,
Et quelle serait ta question ?
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Workbooks.Add
On Error GoTo Gestion_Erreur_CG ActiveWorkbook.SaveAs (CB_Chemin & "Controle de Gestion " & DateImp & ".xls") SUITE_CG MsgBox ("Les tableaux et Graphiques du controle de gestion ont été sauvegardés correctement" & Chr(13) & Chr (13) & _ CB_Chemin & "Controle de Gestion") Exit Sub
Gestion_Erreur_CG: MsgBox "Le chemin indiqué n'existe pas." Windows(N_fichier).Activate: ActiveWorkbook.Close: Application.DisplayAlerts = True Exit Sub Resume Next End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Workbooks.Add
On Error GoTo Gestion_Erreur_CG
ActiveWorkbook.SaveAs (CB_Chemin & "Controle de
Gestion " & DateImp & ".xls")
SUITE_CG
MsgBox ("Les tableaux et Graphiques du controle de
gestion ont été sauvegardés correctement" & Chr(13) & Chr
(13) & _
CB_Chemin & "Controle de Gestion")
Exit Sub
Gestion_Erreur_CG:
MsgBox "Le chemin indiqué n'existe pas."
Windows(N_fichier).Activate:
ActiveWorkbook.Close: Application.DisplayAlerts = True
Exit Sub
Resume Next
End Sub
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Workbooks.Add
On Error GoTo Gestion_Erreur_CG ActiveWorkbook.SaveAs (CB_Chemin & "Controle de Gestion " & DateImp & ".xls") SUITE_CG MsgBox ("Les tableaux et Graphiques du controle de gestion ont été sauvegardés correctement" & Chr(13) & Chr (13) & _ CB_Chemin & "Controle de Gestion") Exit Sub
Gestion_Erreur_CG: MsgBox "Le chemin indiqué n'existe pas." Windows(N_fichier).Activate: ActiveWorkbook.Close: Application.DisplayAlerts = True Exit Sub Resume Next End Sub