looping034
XLDnaute Nouveau
Bonjour pouvez vous me dire s il est possible de copier une colonne (E) de la recuperer sur un autre fichier sur une feuille en mettant la date de chaque jour de recuperation ??
merci
merci
Sub Données_transférer_du_fichier_A_vers_fichier_B()
Dim Chemin As String, Fichier As String, I As Integer
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Chemin = "C:\Users\DoubleZero\Downloads\" 'à adapter
Fichier = "00 - looping034 - Fichier destinataire.xls" 'à adapter
Workbooks.Open Chemin & Fichier
Windows("00 - looping034 - Fichier source.xls").Activate 'à adapter
Range(Range("e67"), Range("e67").End(xlDown)).Copy
Windows("00 - looping034 - Fichier destinataire.xls").Activate
With Sheets("Toto") 'à adapter
.Columns(.Range("IV1").End(xlToLeft).Column).Offset(0, 1).Select
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells.EntireColumn.AutoFit
ActiveWorkbook.Close SaveChanges:=True
With Application
.CutCopyMode = False
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
... cela fonctionne tres bien...
... a present me reste plus qu a l adapter a mes 3 fichiers
peux tu simplement me dire si avec 3 fichiers qui executent la meme commande
je n aurais pas de soucis ?
merci beaucoup