sheets("Feuil1").copy
voila la macro que j'avais écrit en fait je veux qui me colle la feuille dans "indicateur globale diffusions ITP appros.xls"With thisworkbooks
Sheets("indicateurs").Copy
Workbooks.Open Filename:= _
"\\dom2.ad.sys\dfsbor1root\BOR1_Homedir4\aozel\My Documents\SAVE\indicateur globale diffusions ITP appros.xls"
Windows("indicateur globale diffusions ITP appros.xls").Activate
ActiveWindow.Close (True)
End With
'
End Sub
Dim sh As Worksheet
Set sh = Sheets("Origine") 'Feuille à copier
'Ouvrir le classeur destination
Workbooks.Open Filename:=ThisWorkbook.Path & "\classeur4.xls"
'Copier la feuille dans le classeur destination
sh.Copy After:=Workbooks("Classeur4.xls").Sheets(1)
Dim sh As Worksheet
Set sh = Sheets("Origine") 'Feuille à copier
'Ouvrir le classeur destination
Workbooks.Open Filename:=ThisWorkbook.Path & "\classeur4.xls"
'Copier la feuille dans le classeur destination
sh.Copy After:=Workbooks("Classeur4.xls").Sheets(1)
With ActiveSheet
.UsedRange.Copy
.UsedRange.Range("A1").PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
Dim sh As Worksheet, sh2 As Worksheet
Dim NomFeuilleDestination As String
Set sh = Sheets("Origine") 'Feuille à copier
NomFeuilleDestination = "Destination"
'Ouvrir le classeur destination
Workbooks.Open Filename:=ThisWorkbook.Path & "\classeur4.xls"
' Empêcher les avertissements excel
Application.DisplayAlerts = False
' Eviter le message d'erreur si la feuille destination n'existe pas
On Error Resume Next
' Tester si la feuille Destination existe
Set sh2 = ActiveWorkbook.Sheets(NomFeuilleDestination)
' Si elle existe on la supprimer
If Not sh2 Is Nothing Then sh2.Delete
'Rétablir la gestion normale des erreurs
On Error GoTo 0
' Rétablir les avertissement
Application.DisplayAlerts = True
'Coller la feuille Origine dans le classeur destination
sh.Copy After:=Workbooks("Classeur4.xls").Sheets(1)
With ActiveSheet
.UsedRange.Copy
.UsedRange.Range("A1").PasteSpecial xlPasteValues
.Name = NomFeuilleDestination
End With
Application.CutCopyMode = False
Dim sh As Worksheet, sh2 As Worksheet
Dim NomFeuilleDestination As String
Set sh = Sheets(4) 'Feuille à copier
NomFeuilleDestination = Range("C3").value
Dim sh As Worksheet, sh2 As Worksheet
Dim NomFeuilleDestination As String
Set sh = Sheets(4) 'Feuille à copier
NomFeuilleDestination = Range("C3").Value