voilà le code VBA que je veux utiliser pour copier certaines données d'un
fichier à l'autre.
sub recapitulation (9
Dim strname As String
strname = ActiveWorkbook.name
Woorkbooks.open filename:= Récapitulation.xls
Workbooks (strname).Activate
Range ("B1").select
Selection.Copy
Woorkbooks("Récapitulation"").Activate
Call ColonneA
Activesheet.Paste
Application.CutCopyMode = False
End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à
ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien
dedans.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick Fredin
Bonjour,
Je pense que le fait d'appeler une autre macro annule la copie (le CutCopyMode repasse à False). Si tu lances la macro "recapitulation" à partir du classeur "Récapitulation" il vaudrait peut-être commencer pas rechercher la première cellule vide et ensuite aller chercher les données à copier. Fais un essai. je pense que ton problème sera résolu..
-- Patrick
"Stéphane" wrote in message news:
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données d'un fichier à l'autre.
sub recapitulation (9
Dim strname As String strname = ActiveWorkbook.name Woorkbooks.open filename:= Récapitulation.xls Workbooks (strname).Activate Range ("B1").select Selection.Copy Woorkbooks("Récapitulation"").Activate Call ColonneA Activesheet.Paste Application.CutCopyMode = False End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien dedans.
Comment faire pour copier ???
D'avance merci de votre aide précieuse
Bonjour,
Je pense que le fait d'appeler une autre macro annule la copie (le
CutCopyMode repasse à False). Si tu lances la macro "recapitulation" à
partir du classeur "Récapitulation" il vaudrait peut-être commencer pas
rechercher la première cellule vide et ensuite aller chercher les données à
copier. Fais un essai. je pense que ton problème sera résolu..
--
Patrick
"Stéphane" <Stphane@discussions.microsoft.com> wrote in message
news:6B416F43-516A-4382-91E4-881FCDE75062@microsoft.com...
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données d'un
fichier à l'autre.
sub recapitulation (9
Dim strname As String
strname = ActiveWorkbook.name
Woorkbooks.open filename:= Récapitulation.xls
Workbooks (strname).Activate
Range ("B1").select
Selection.Copy
Woorkbooks("Récapitulation"").Activate
Call ColonneA
Activesheet.Paste
Application.CutCopyMode = False
End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à
ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien
dedans.
Je pense que le fait d'appeler une autre macro annule la copie (le CutCopyMode repasse à False). Si tu lances la macro "recapitulation" à partir du classeur "Récapitulation" il vaudrait peut-être commencer pas rechercher la première cellule vide et ensuite aller chercher les données à copier. Fais un essai. je pense que ton problème sera résolu..
-- Patrick
"Stéphane" wrote in message news:
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données d'un fichier à l'autre.
sub recapitulation (9
Dim strname As String strname = ActiveWorkbook.name Woorkbooks.open filename:= Récapitulation.xls Workbooks (strname).Activate Range ("B1").select Selection.Copy Woorkbooks("Récapitulation"").Activate Call ColonneA Activesheet.Paste Application.CutCopyMode = False End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien dedans.
Comment faire pour copier ???
D'avance merci de votre aide précieuse
Michel Pierron
Bonsoir Stéphane; Transforme ta procédure ColonneA en fonction et: Sub recapitulation() Dim strname As String strname = ActiveWorkbook.Name Woorkbooks.Open Récapitulation.xls Workbooks(strname).Range("B1").Copy _ Destination:¬tiveWorkbook.Cells(ColonneA, 1) Application.CutCopyMode = False End Sub
Private Function ColonneA() As Long LastRow = ActiveSheet.Cells(65536, nCol).End(xlUp).Row + 1 End Function
MP
"Stéphane" a écrit dans le message de news:
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données d'un fichier à l'autre.
sub recapitulation (9
Dim strname As String strname = ActiveWorkbook.name Woorkbooks.open filename:= Récapitulation.xls Workbooks (strname).Activate Range ("B1").select Selection.Copy Woorkbooks("Récapitulation"").Activate Call ColonneA Activesheet.Paste Application.CutCopyMode = False End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien dedans.
Comment faire pour copier ???
D'avance merci de votre aide précieuse
Bonsoir Stéphane;
Transforme ta procédure ColonneA en fonction et:
Sub recapitulation()
Dim strname As String
strname = ActiveWorkbook.Name
Woorkbooks.Open Récapitulation.xls
Workbooks(strname).Range("B1").Copy _
Destination:¬tiveWorkbook.Cells(ColonneA, 1)
Application.CutCopyMode = False
End Sub
Private Function ColonneA() As Long
LastRow = ActiveSheet.Cells(65536, nCol).End(xlUp).Row + 1
End Function
MP
"Stéphane" <Stphane@discussions.microsoft.com> a écrit dans le message de
news:6B416F43-516A-4382-91E4-881FCDE75062@microsoft.com...
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données d'un
fichier à l'autre.
sub recapitulation (9
Dim strname As String
strname = ActiveWorkbook.name
Woorkbooks.open filename:= Récapitulation.xls
Workbooks (strname).Activate
Range ("B1").select
Selection.Copy
Woorkbooks("Récapitulation"").Activate
Call ColonneA
Activesheet.Paste
Application.CutCopyMode = False
End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à
ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien
dedans.
Bonsoir Stéphane; Transforme ta procédure ColonneA en fonction et: Sub recapitulation() Dim strname As String strname = ActiveWorkbook.Name Woorkbooks.Open Récapitulation.xls Workbooks(strname).Range("B1").Copy _ Destination:¬tiveWorkbook.Cells(ColonneA, 1) Application.CutCopyMode = False End Sub
Private Function ColonneA() As Long LastRow = ActiveSheet.Cells(65536, nCol).End(xlUp).Row + 1 End Function
MP
"Stéphane" a écrit dans le message de news:
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données d'un fichier à l'autre.
sub recapitulation (9
Dim strname As String strname = ActiveWorkbook.name Woorkbooks.open filename:= Récapitulation.xls Workbooks (strname).Activate Range ("B1").select Selection.Copy Woorkbooks("Récapitulation"").Activate Call ColonneA Activesheet.Paste Application.CutCopyMode = False End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien dedans.
Comment faire pour copier ???
D'avance merci de votre aide précieuse
Michel Pierron
Bonjour Patrick; Bien évidemment, pour la fonction, il faut lire: Private Function ColonneA() As Long ColonneA = ActiveSheet.Cells(65536, nCol).End(xlUp).Row + 1 End Function
MP
"Patrick Fredin" a écrit dans le message de news:
Bonjour,
Je pense que le fait d'appeler une autre macro annule la copie (le CutCopyMode repasse à False). Si tu lances la macro "recapitulation" à partir du classeur "Récapitulation" il vaudrait peut-être commencer pas rechercher la première cellule vide et ensuite aller chercher les données à
copier. Fais un essai. je pense que ton problème sera résolu..
-- Patrick
"Stéphane" wrote in message news:
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données d'un
fichier à l'autre.
sub recapitulation (9
Dim strname As String strname = ActiveWorkbook.name Woorkbooks.open filename:= Récapitulation.xls Workbooks (strname).Activate Range ("B1").select Selection.Copy Woorkbooks("Récapitulation"").Activate Call ColonneA Activesheet.Paste Application.CutCopyMode = False End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien
dedans.
Comment faire pour copier ???
D'avance merci de votre aide précieuse
Bonjour Patrick;
Bien évidemment, pour la fonction, il faut lire:
Private Function ColonneA() As Long
ColonneA = ActiveSheet.Cells(65536, nCol).End(xlUp).Row + 1
End Function
MP
"Patrick Fredin" <nospams_patrick.fredin@iquebec.com> a écrit dans le
message de news:uBKrSFusEHA.2560@tk2msftngp13.phx.gbl...
Bonjour,
Je pense que le fait d'appeler une autre macro annule la copie (le
CutCopyMode repasse à False). Si tu lances la macro "recapitulation" à
partir du classeur "Récapitulation" il vaudrait peut-être commencer pas
rechercher la première cellule vide et ensuite aller chercher les données
à
copier. Fais un essai. je pense que ton problème sera résolu..
--
Patrick
"Stéphane" <Stphane@discussions.microsoft.com> wrote in message
news:6B416F43-516A-4382-91E4-881FCDE75062@microsoft.com...
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données
d'un
fichier à l'autre.
sub recapitulation (9
Dim strname As String
strname = ActiveWorkbook.name
Woorkbooks.open filename:= Récapitulation.xls
Workbooks (strname).Activate
Range ("B1").select
Selection.Copy
Woorkbooks("Récapitulation"").Activate
Call ColonneA
Activesheet.Paste
Application.CutCopyMode = False
End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à
ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie
rien
Bonjour Patrick; Bien évidemment, pour la fonction, il faut lire: Private Function ColonneA() As Long ColonneA = ActiveSheet.Cells(65536, nCol).End(xlUp).Row + 1 End Function
MP
"Patrick Fredin" a écrit dans le message de news:
Bonjour,
Je pense que le fait d'appeler une autre macro annule la copie (le CutCopyMode repasse à False). Si tu lances la macro "recapitulation" à partir du classeur "Récapitulation" il vaudrait peut-être commencer pas rechercher la première cellule vide et ensuite aller chercher les données à
copier. Fais un essai. je pense que ton problème sera résolu..
-- Patrick
"Stéphane" wrote in message news:
bonjour,
voilà le code VBA que je veux utiliser pour copier certaines données d'un
fichier à l'autre.
sub recapitulation (9
Dim strname As String strname = ActiveWorkbook.name Woorkbooks.open filename:= Récapitulation.xls Workbooks (strname).Activate Range ("B1").select Selection.Copy Woorkbooks("Récapitulation"").Activate Call ColonneA Activesheet.Paste Application.CutCopyMode = False End sub
ColonneA = macro qui va à la première cellule vide de la colonne A.
Lorsque j'exécute la macro tout fonctionne à merveille jusqu'à ActiveSheet.Paste.
En effet, excel me sélectionne la première cellule vide mais ne copie rien
