Copier coller d'une feuillea de fichiera vers feuilleb de fichierb excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 380 fois - Téléchargée 36 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de GMACJONES

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.