Fonction qui copie colle un onglet d'un premier fichier EXCEL vers un autre onglet d'un autre fichier excel
Source / Exemple :
Function Importation_donnees_Rnd(FichierSource As String, FichierDest As String, OngletSource As String, OngletDest As String)
Set Fichier_xls_Source = GetObject(FichierSource)
Set Fichier_xls_Source = GetObject(, "Excel.application")
Fichier_xls_Source.Application.Visible = True
Fichier_xls_Source.Application.Workbooks.Open FileName:=FichierSource
Fichier_xls_Source.Application.ActiveWorkbook.Worksheets(OngletSource).Activate
Fichier_xls_Source.Application.ActiveWorkbook.Worksheets(OngletSource).Cells.Select
Fichier_xls_Source.Application.Selection.Copy
Set Fichier_xls_dest = CreateObject("Excel.application")
Fichier_xls_dest.DisplayAlerts = False
Fichier_xls_dest.Workbooks.Open FileName:=FichierDest, editable:=True
Fichier_xls_dest.Visible = True
Fichier_xls_dest.Application.Worksheets(OngletDest).Activate
Fichier_xls_dest.Application.Worksheets(OngletDest).Cells.Select
Fichier_xls_dest.Application.Worksheets(OngletDest).Paste
Fichier_xls_dest.Application.DisplayAlerts = False
Fichier_xls_dest.ActiveWorkbook.SaveAs FileName:=FichierDest
Fichier_xls_dest.Application.Quit
Fichier_xls_dest.Application.DisplayAlerts = True
Fichier_xls_Source.Application.DisplayAlerts = False
Fichier_xls_Source.Application.Quit
Fichier_xls_Source.Application.DisplayAlerts = True
Set Fichier_xls_Source = Nothing
Set Fichier_xls_dest = Nothing
End Function
Conclusion :
Ne pas oublier de cocher la case dans "Projet" "Reference"
Microsoft EXCEL x.x object library
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.