Bonjour à tous,

J'ai recopié un FichierModele en des FichierCible.
Je travaille depuis un Fichier nommé Fdt2012.
Je voudrais 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 même répertoire.
J'ai réussi à ouvrir le fichier et activer la feuille NOM mais le code suivant me donne une erreur de syntaxe que je n'arrive pas à résoudre.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Workbooks(FichierCible).Worksheets("NOM").Range("A1").Value = _
   Worbooks("D\Fdt_2012\macroFdt2012.xlsm).Worsheets(Janv2012).Range(Ligne,1).Value
Si quelqu'un pouvait m'aider à lever cette erreur, je pourrai ensuite poursuivre.
Merci d'avance à tous ceux qui m'aide et me font progresser.
Véronique

Code complet actuel :
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
 
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