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
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