copie fichier A vers B

calou68

XLDnaute Nouveau
bjr à tous,

J'ai une macro qui copie d'1 fichier vers un autre. Elle fonctionne très bien, la question est que j'aimerais copier le fichier A vers B sans ouvrir le fichier B
La ligne à modifier de la macro est je pense "Windows("Suivi hypervision-2.xls").Activate "

Macro:

Copie AU vers Hypervision

opie AU vers Hypervision

Sheets("base").Select
Dim DerLigne4 As Integer, MaSélection4 As Range, F As Integer
With Sheets("base")
DerLigne4 = .Range("A65535").End(xlUp).Row
For F = 1 To DerLigne4
If .Cells(F, 1) <> "" Then
If MaSélection4 Is Nothing Then
Set MaSélection4 = .Range("A" & F & ":L" & F)
Else
Set MaSélection4 = Union(MaSélection4, .Range("A" & F & ":L" & F))
End If
End If
Next F
MaSélection4.Copy

End With
Windows("Suivi hypervision-2.xls").Activate
Sheets("exports").Range("A" & Sheets("exports").Range("A65535").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
fin macro

merci, pour tous

calou
 

porcinet82

XLDnaute Barbatruc
Re : copie fichier A vers B

Salut,

Un élément de réponse avec le bout de code ci-dessous :
Code:
Dim xlapp As Object
Set xlapp = CreateObject("Excel.application")
xlapp.Workbooks.Open "C:\ton_fichier.xls"

With xlapp.ActiveWorkbook
    ' Par exemple pour récupérer le nombre de lignes pleines
    nb_ligne = .Sheets("Feuil1").Range("A65536").End(xlUp).Row
End With

xlapp.Quit
Set xlapp = Nothing

Je te laisse faire quelques essais et si tu n'y arrive pas, repasse nous voir.

@+
 

Discussions similaires