OVH Cloud OVH Cloud

Création de fichier

1 réponse
Avatar
NEICNA60
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)

Windows("SAE 2000").Activate
Sheets("Grades").Select
=20
Dim DateImp As String
DateImp =3D ActiveSheet.Range("P47") & "-" &=20
ActiveSheet.Range("Q47") & "-" & ActiveSheet.Range("R47")
=20
Dim N_fichier As String
N_fichier =3D "Controle de gestion " & DateImp
=20
Windows("SAE 2000").Activate
Sheets(Array("RH 1", "RH 2", "Etats", "RH 3", "RH=20
4", "GEST MILI", "GEST CIV", "RESP", "APD")).Select
Sheets(Array("RH 1", "RH 2", "Etats", "RH 3", "RH=20
4", "GEST MILI", "GEST CIV", "RESP", "APD")).Copy=20
before:=3DWorkbooks(N_fichier).Sheets(1)
=20
Sheets("APD").Select
Cells.Select
Application.CutCopyMode =3D False
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse

Sheets("Gest Mili").Select
Cells.Select
Range("A4").Activate
Application.CutCopyMode =3D False
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse

Sheets("Gest Civ").Select
Cells.Select
Range("A4").Activate
Application.CutCopyMode =3D False
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse

Sheets("etats").Select
Cells.Select
Range("A4").Activate
Application.CutCopyMode =3D False
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse
=20
Sheets("Resp").Select
Cells.Select
Range("A4").Activate
Application.CutCopyMode =3D False
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse
=20
Sheets("RH 1").Select
Columns("N:S").Select
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse
=20
Sheets("RH 2").Select
Columns("N:S").Select
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse

Sheets("RH 3").Select
Columns("N:O").Select
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse

Sheets("RH 4").Select
Columns("N:O").Select
Selection.Copy
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse

ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
=20
Application.DisplayAlerts =3D True
=20
End Sub

1 réponse

Avatar
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

Sub SUITE_CG(Optional Factice As String)

Windows("SAE 2000").Activate
Sheets("Grades").Select

Dim DateImp As String
DateImp = ActiveSheet.Range("P47") & "-" &
ActiveSheet.Range("Q47") & "-" & ActiveSheet.Range("R47")

Dim N_fichier As String
N_fichier = "Controle de gestion " & DateImp

Windows("SAE 2000").Activate
Sheets(Array("RH 1", "RH 2", "Etats", "RH 3", "RH
4", "GEST MILI", "GEST CIV", "RESP", "APD")).Select
Sheets(Array("RH 1", "RH 2", "Etats", "RH 3", "RH
4", "GEST MILI", "GEST CIV", "RESP", "APD")).Copy
before:=Workbooks(N_fichier).Sheets(1)

Sheets("APD").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Gest Mili").Select
Cells.Select
Range("A4").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Gest Civ").Select
Cells.Select
Range("A4").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("etats").Select
Cells.Select
Range("A4").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("Resp").Select
Cells.Select
Range("A4").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("RH 1").Select
Columns("N:S").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("RH 2").Select
Columns("N:S").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("RH 3").Select
Columns("N:O").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

Sheets("RH 4").Select
Columns("N:O").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse

ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub

Application.DisplayAlerts = True

End Sub