Ici, je passe par des variables pour remplir mon=20
classeur "Gestion_Audits_2003.xls". La variable=20
publique "Ligne" me permet de me placer sur la bonne ligne=20
de la feuille de destination.
J'aimerai pouvoir faire cela en moins de code VBA=20
possible: transf=E9rer mes donn=E9es directement d'un classeur=20
=E0 l'autre sans d'abord les ranger en m=E9moire.
Ici, je passe par des variables pour remplir mon classeur "Gestion_Audits_2003.xls". La variable publique "Ligne" me permet de me placer sur la bonne ligne de la feuille de destination.
J'aimerai pouvoir faire cela en moins de code VBA possible: transférer mes données directement d'un classeur à l'autre sans d'abord les ranger en mémoire.
Avez-vous une idée de la syntaxe à utiliser?
Merci d'avance pour votre aide.
@micalement.
Kyvu On Line!
tu n'as pas besoin d'activer ou de sélectionner pour copier ou coller
tu peux écrire directement :
Ici, je passe par des variables pour remplir mon
classeur "Gestion_Audits_2003.xls". La variable
publique "Ligne" me permet de me placer sur la bonne ligne
de la feuille de destination.
J'aimerai pouvoir faire cela en moins de code VBA
possible: transférer mes données directement d'un classeur
à l'autre sans d'abord les ranger en mémoire.
Ici, je passe par des variables pour remplir mon classeur "Gestion_Audits_2003.xls". La variable publique "Ligne" me permet de me placer sur la bonne ligne de la feuille de destination.
J'aimerai pouvoir faire cela en moins de code VBA possible: transférer mes données directement d'un classeur à l'autre sans d'abord les ranger en mémoire.
Avez-vous une idée de la syntaxe à utiliser?
Merci d'avance pour votre aide.
@micalement.
Kyvu On Line!
Hervé
Salut Kyvu, Une idée à creuser. Pas testé, à toi de voir. En creusant bien tu doit pouvoir encore réduire mais est ce bien utile ?
Sub Transfert() Dim Cl_Mod As Workbook, Cl_Gest As Workbook
Set Cl_Mod = Workbooks("Modèle_Audit_2003.xls") Set Cl_Gest = Workbooks("Gestion_Audits_2003.xls")
With Cl_Mod.Sheets("Page 01") Cl_Gest.Sheets("Main").Cells(Ligne, 2) = _ .Cells(54, 8) Cl_Gest.Sheets("Main").Cells(Ligne, 3) = _ .Cells(4, 8) Cl_Gest.Sheets("Main").Cells(Ligne, 4) = _ .Cells(5, 8) Cl_Gest.Sheets("Main").Cells(Ligne, 5) = _ .Cells(9, 6) End With
Set Cl_Mod = Nothing Set Cl_Gest = Nothing End Sub
Hervé.
"Kyvu" a écrit dans le message news: 01f501c35d0a$34b79b10$ Bonsoir à tous,
J'ai une petite macro qui me permet de transférer une série de données d'un classeur à un autre, ceci à des fins d'archivages...
Ici, je passe par des variables pour remplir mon classeur "Gestion_Audits_2003.xls". La variable publique "Ligne" me permet de me placer sur la bonne ligne de la feuille de destination.
J'aimerai pouvoir faire cela en moins de code VBA possible: transférer mes données directement d'un classeur à l'autre sans d'abord les ranger en mémoire.
Avez-vous une idée de la syntaxe à utiliser?
Merci d'avance pour votre aide.
@micalement.
Kyvu On Line!
Salut Kyvu,
Une idée à creuser. Pas testé, à toi de voir. En creusant bien tu doit
pouvoir encore réduire mais est ce bien utile ?
Sub Transfert()
Dim Cl_Mod As Workbook, Cl_Gest As Workbook
Set Cl_Mod = Workbooks("Modèle_Audit_2003.xls")
Set Cl_Gest = Workbooks("Gestion_Audits_2003.xls")
With Cl_Mod.Sheets("Page 01")
Cl_Gest.Sheets("Main").Cells(Ligne, 2) = _
.Cells(54, 8)
Cl_Gest.Sheets("Main").Cells(Ligne, 3) = _
.Cells(4, 8)
Cl_Gest.Sheets("Main").Cells(Ligne, 4) = _
.Cells(5, 8)
Cl_Gest.Sheets("Main").Cells(Ligne, 5) = _
.Cells(9, 6)
End With
Set Cl_Mod = Nothing
Set Cl_Gest = Nothing
End Sub
Hervé.
"Kyvu" <kyvutran@lemel.fr> a écrit dans le message news:
01f501c35d0a$34b79b10$a301280a@phx.gbl...
Bonsoir à tous,
J'ai une petite macro qui me permet de transférer une
série de données d'un classeur à un autre, ceci à des fins
d'archivages...
Ici, je passe par des variables pour remplir mon
classeur "Gestion_Audits_2003.xls". La variable
publique "Ligne" me permet de me placer sur la bonne ligne
de la feuille de destination.
J'aimerai pouvoir faire cela en moins de code VBA
possible: transférer mes données directement d'un classeur
à l'autre sans d'abord les ranger en mémoire.
Ici, je passe par des variables pour remplir mon classeur "Gestion_Audits_2003.xls". La variable publique "Ligne" me permet de me placer sur la bonne ligne de la feuille de destination.
J'aimerai pouvoir faire cela en moins de code VBA possible: transférer mes données directement d'un classeur à l'autre sans d'abord les ranger en mémoire.