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
|
Option Explicit
Sub DeploiementFdTJanv2012()
Dim PremLigne As Integer, DerLigne As Integer, Ligne As Integer
Dim valeur() As Variant
Dim cel As Object
Dim Fichier As String, Feuille As String, Prenom_Pers As String
Dim FichierModele As String, FichierCible As String
'Calcul du nombre de ligne à lire
Sheets("Janv2012").Activate
PremLigne = Range("A1").End(xlDown).Row + 1
DerLigne = Range("A65536").End(xlUp).Row
FichierModele = "D:\FdT_2012\FdT_2012_MODELE.xls"
' Copie du fichier FdT_MODELE.xls vers les FichierCible du type FichierNom en les rangeant dans les repertoires correspondant au service
For Ligne = PremLigne To DerLigne
If Len(Cells(Ligne, 1).Value) > 0 And Len(Cells(Ligne, 4).Value) > 0 Then
FichierCible = Cells(Ligne, 4).Value & "\" & Cells(Ligne, 5).Value
FileCopy FichierModele, FichierCible
' ouvrir le classeur cible à modifier
Application.Workbooks.Open (FichierCible)
' activer la feuille NOM
Sheets("NOM").Activate
'Remplacer les cellules A1 et C1 de la Feuille NOM du FichierCible
'par les cellules des colonnes A et B de la Feuille Janv2012 du fichier FdT2012,
'sachant que les fichiers ne se trouvent pas sous le meme répertore
Workbooks(FichierCible).Worksheets("NOM").Range("A1").Value = _
Worbooks("D\Fdt_2012\macroFdt2012.xlsm).Worsheets(Janv2012).Range(Ligne,1).Value
Workbooks(FichierCible).Worksheets("NOM").Range("C1").Value = _
Worbooks("D\Fdt_2012\macroFdt2012.xlsm).Worsheets(Janv2012).Range(Ligne,2).Value
End If
Next Ligne
End Sub |
Partager