Discussion :

[johan-]

Bonjour,
je dois à partir d'un fichier excel, qui contient la liste de tous les salariés du bureau ainsi que leur absences prévu (ce fichier est présenter sous forme de "calendrier" ou chaque feuille correspond a un mois et chaque ligne contient dans la première colonne le nom du salarié puis chaque colonne correspond a un jour du mois), crée trois fichier excel pour chacun des services dans le but que chaque cadre puissent compléter le fichier.
Une fois le fichier compléter par les cadres les trois fichiers doivent de nouveau être ré-assembler ensemble dans un même fichier.

J'ai déjà essayer de programmer avec quelques ligne de code récupérer sur le net mais aucune de fonctionne (le VBA n'est pas mon langage de prédilection je programme plutôt en C#)

J'ai essayer ceci pour créer les 3 fichier différents:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
sub ma_procedure()
 
'création des 3 fichiers excel
'IBP, IST, et sécurité sont les noms des 3 services de l'entreprise
WoorksBooks.Add
WoorksBooks.SaveAs 'Dossier_IBP' FileName:="IBP"
WoorksBooks.SaveAs 'Dossier_IST' FileName:="IST"
WoorksBooks.SaveAs 'Dossier_Securite' FileName:="Securite"
 
'Je ne fait pas de conditions pour savoir quel salarié est dans quel service car 
'les noms de ces derniers sont tjrs classé dans le même ordres.
'Donc je récupère les lignes (je ne l'écris que pour une ligne car il y a un 'trentaine de ligne)
 
Rows("A6").Select
 
'puis j'aimerais la copier dans le fichier excel adéquat a son service
'(code que je n'ai pas encore trouver car tout le reste ne marche avidement 
'pas)
 
end sub

Pour ce qui est de la deuxième procédure je n'est pas encore chercher car pour l'instant pas grand chose ne marche sur ma premières procédure.

Merci d'avance

PS: désolé s'il y a quelques fautes d'orthaugraphe

[mumen]

Salut
Tu es ici sur le Forum Access, tu aurais peut être plus ta chance sur le bon forum.

Maintenant, en tant que utilisateur et programmeur d'Access, je me dis que ton problème serait plus simple à réfléchir sous Access en ayant une table commune permettant à chacun de la modifier depuis son poste.

Excel est le logiciel de base de données le plus utilisé au monde... mais malheureusement, ce n'est pas un logiciel de bases de données.

[johan-]

Salut MathieuT
Oui je sais que le logiciel utilisé n'est pas spécialement dédier a ce genre de problématique. Je leur est déjà proposer de changer de logiciel mais ils ne veulent donc je n'est pas le choix.

Merci de m'avoir signaler que je n'est pas poster au bonne endroit sur le forum, je ne l'avais pas remarquer.

[johan-]

Re bonjour,

Depuis le temps j'ai réussi a avancer dans mon problème, j'ai trouver comment avec des lignes de code VBA créer les 3 fichiers (IBP, IST et sécurité) avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 
Private Sub Creation_fichier_excel_IBP() 'procedure de creation de fichier excel
 
'création des fichiers 
Dim XL_ibp As New Excel.Application 'IBP_____________
Workbooks.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "JAN"
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "FEV"
Sheets("Feuil3").Select
Sheets("Feuil3").Name = "MAR"
Sheets.Add
ActiveSheet.Name = "DEC"
Sheets.Add
ActiveSheet.Name = "NOV"
Sheets.Add
ActiveSheet.Name = "OCT"
Sheets.Add
ActiveSheet.Name = "SEPT"
Sheets.Add
ActiveSheet.Name = "AÛT"
Sheets.Add
ActiveSheet.Name = "JUL"
Sheets.Add
ActiveSheet.Name = "JUN"
Sheets.Add
ActiveSheet.Name = "MAI"
Sheets.Add
ActiveSheet.Name = "AVR"
ActiveWorkbook.SaveAs Filename:="C:\IBP.xls"
ActiveWorkbook.Close
Set exc = Nothing
 
Dim XL_ist As New Excel.Application 'IST___________
Workbooks.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "JAN"
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "FEV"
Sheets("Feuil3").Select
Sheets("Feuil3").Name = "MAR"
Sheets.Add
ActiveSheet.Name = "DEC"
Sheets.Add
ActiveSheet.Name = "NOV"
Sheets.Add
ActiveSheet.Name = "OCT"
Sheets.Add
ActiveSheet.Name = "SEPT"
Sheets.Add
ActiveSheet.Name = "AÛT"
Sheets.Add
ActiveSheet.Name = "JUL"
Sheets.Add
ActiveSheet.Name = "JUN"
Sheets.Add
ActiveSheet.Name = "MAI"
Sheets.Add
ActiveSheet.Name = "AVR"
ActiveWorkbook.SaveAs Filename:="C:\IST.xls"
ActiveWorkbook.Close
Set exc = Nothing
 
Dim XL As New Excel.Application 'Securite______________
Workbooks.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "JAN"
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "FEV"
Sheets("Feuil3").Select
Sheets("Feuil3").Name = "MAR"
Sheets.Add
ActiveSheet.Name = "DEC"
Sheets.Add
ActiveSheet.Name = "NOV"
Sheets.Add
ActiveSheet.Name = "OCT"
Sheets.Add
ActiveSheet.Name = "SEPT"
Sheets.Add
ActiveSheet.Name = "AÛT"
Sheets.Add
ActiveSheet.Name = "JUL"
Sheets.Add
ActiveSheet.Name = "JUN"
Sheets.Add
ActiveSheet.Name = "MAI"
Sheets.Add
ActiveSheet.Name = "AVR"
ActiveWorkbook.SaveAs Filename:="C:\Securite.xls"
ActiveWorkbook.Close
Set exc = Nothing
 
End Sub

Maintenant il ne reste plus qu'a trouver comment copier certaine lignes d'un fichier A vers un fichier B en exécutant le code d'un fichier C (jai effectuer plusieurs recherche sur internet mais je n'ai pas encore trouver de solution).

Cordialement en espérant des réponses de votre part

D'avance merci =)