Concaténation de fichiers excel (avec excel 2002)

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#) :arf:

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

Code:

---

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

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.

Citation:

---

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.

---

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.

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:

---

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 =)