C@thy
XLDnaute Barbatruc
Bonsouar le forum,
j'essaie de copier une plage en cours depuis 2 fichiers vers un 3ème.
les 2 fichiers n'ont jamais le même nom car la date change (mais pas le début)
Question 1 : faut-il obligatoirement ouvrir les 2 fichiers à copier?
Question 2 : le fichier vers lequel je recopie les données comporte après les colonnes à recopier des formules de calcul que je ne dois pas écraser, mais recopier vers le bas sur toute la hauteur de la plage
comment faire tout ça???
Merci immensément pour votre aide.
Big Bisous et bonne soiréche
C@thy
j'essaie de copier une plage en cours depuis 2 fichiers vers un 3ème.
les 2 fichiers n'ont jamais le même nom car la date change (mais pas le début)
Code:
Dim fl As Integer, X As Integer
Dim Chem As String, Nomc As String, Nomf As String, cl As String
Dim Wbk As Workbook, WsD As Worksheet
Dim Fichiers As Object, Classeur As Object, NbFichiers As Integer
Dim Tableau() As String
Const WbkDD = "donnees_dossiers.xls"
Const WbkES = "Extraction_ServiceCenter"
Const WbkTe = "ACD templates"
Dim ListeF As FoundFiles, AFermer As Boolean
Dim ListeClasseurs As New Collection
Application.ScreenUpdating = True
Chem = ThisWorkbook.Path & "\"
cl = Dir(ThisWorkbook.Path & "\*.xls")
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With
Set Fichiers = CreateObject("Scripting.FileSystemObject").getfolder(Chem).Files 'tous les classeurs du répertoire
For Each Classeur In Fichiers
If Right(Classeur.Name, 3) = "xls" And Classeur.Name <> ThisWorkbook.Name Then
If Left(Classeur.Name, 24) = WbkES Or Left(Classeur.Name, 13) = WbkTe Then
ListeClasseurs.Add Classeur.Name
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = cl
cl = Dir()
End If
End If
Next
'classeur DD comporte 8 feuilles à remplir onglets 1 à 8
'Outils Interactions Incidents Demandes Articles et Template appels 1 à Template appels 3
For X = 1 To NbFichiers 'boucles sur les 2 classeurs
For fl = 1 To 8
Sheets(fl).Select
Nomf = ActiveSheet.Name
'copier la plage en cours des feuilles Outils Interactions Incidents Demandes Articles
'depuis fichier Extraction_ServiceCenter_+date sous forme 31122008.xls
'c'est là que je coince..... Damned!!!
If Left(Classeur.Name, 24) = WbkES Then
'copier la plage en cours des feuilles Template appels 1 à Template appels 3
'depuis fichier ACD Template + date sous forme 1-2-3-mars.xls
If Left(Classeur.Name, 13) = WbkTe Then
Next X
Question 1 : faut-il obligatoirement ouvrir les 2 fichiers à copier?
Question 2 : le fichier vers lequel je recopie les données comporte après les colonnes à recopier des formules de calcul que je ne dois pas écraser, mais recopier vers le bas sur toute la hauteur de la plage
comment faire tout ça???
Merci immensément pour votre aide.
Big Bisous et bonne soiréche
C@thy