Bonjour à tous,
J'ai un problème pour adapté le code que j'ai obtenu avec l'enregistreur.
Je veux copier le contenu d'une feuille et le coller dans un autre fichier.
Mon cade obtenu est :
Je veux maintenant l'adapter et renseigner le chemin qui est indiqué sur mon classeur actif.
J'ai donc adapté le code ci-dessous, mais la macro très très lente. Pouvez vous m'aider à la simplifier et réduire le temps ??
J'ai un problème pour adapté le code que j'ai obtenu avec l'enregistreur.
Je veux copier le contenu d'une feuille et le coller dans un autre fichier.
Mon cade obtenu est :
PHP:
Sheets("Recap").Select
Cells.Select
Selection.Copy
Workbooks.Open Filename:= _
"D:\mon repertoire\Lmon fichier.xlsm"
Range("A1").Select
ActiveSheet.Paste
Je veux maintenant l'adapter et renseigner le chemin qui est indiqué sur mon classeur actif.
J'ai donc adapté le code ci-dessous, mais la macro très très lente. Pouvez vous m'aider à la simplifier et réduire le temps ??
PHP:
Dim Chemin As String
Dim NomFichier As String
Dim NomFichierEtChemin As String
Dim NomFichierSource As String
Dim LaLigne As Integer
Application.ScreenUpdating = False
On Error Resume Next
NomFichierSource = ActiveWorkbook.Name
'LaLigne = ActiveCell.Row
Chemin = Sheets("Lexique").Range("F2")
NomFichierEtChemin = Chemin
Workbooks(NomFichierSource).Sheets("Recap").Select
Cells.Select
Selection.Copy
Workbooks.Open Filename:=Chemin
'Workbooks.Open Filename:=NomFichierEtChemin
Range("A1").Select
ActiveSheet.Paste