Copier dès la 1ère case vide de la colonne A

Bonjour,

Je viens de créer une macro qui permet de copier/coller des données d'un fichier à un autre.

Seulement j'aimerais savoir si c'est possible de remplacer la ligne

Range("A3").Select

par

La première case vide de la colonne A?

Macro créée :

Sub Macro6()

Range("A32:J41").Select

Selection.Copy

Windows("Exploitation des données retouche.xlsx").Activate

Range("A3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Merci de l'aide.

Bonjour,

Essaie ainsi :

Sub Macro6()
Dim lRow As Long

    Range("A32:J41").Copy
    Windows("Exploitation des données retouche.xlsx").Activate
    lRow = Range("A" & Rows.Count).End(xlUp).Row + 1
    Cells(Row, 1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = 0

End Sub

Re,

Merci pour réactivité.

Une erreur 1004 apparait sur la ligne : Cells(Row, 1).PasteSpecial Paste:=xlPasteValues

J'ai enlevé le 1 avant row dans la variable et ça marche, ça donne :

Sub Macro6()

Dim Row As Long

Range("A32:J41").Copy

Windows("Exploitation des données retouche.xlsx").Activate

Row = Range("A" & Rows.Count).End(xlUp).Row + 1

Cells(Row, 1).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = 0

End Sub

Merci

Bonjour,

Le mieux serait de supprimer tous les Select, Selection, Activate et les propriétés qui n'ont nul besoin d'être définies.

Cordialement

RE,

Les lignes windows rendent la macro rigide car les noms de documents pourraient être amenés à changer :

Il y a t'il possibilité de les supprimer?

Sub Macro6()

Dim Row As Long, LeRep1 As String

LeRep1 = ThisWorkbook.Path & "\Exploitation des données retouche.xlsx" ' à adapter"

Workbooks.Open Filename:= _

LeRep1

Windows("modèle contrôle en sortie.xlsm").Activate

Range("A32:J41").Copy

Windows("Exploitation des données retouche.xlsx").Activate

Row = Range("A" & Rows.Count).End(xlUp).Row + 1

Cells(Row, 1).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = 0

End Sub

Merci

J'ai enlevé le 1 avant row dans la variable et ça marche

C'est l'inverse qu'il fallait faire ! Et c'était un "l" pas un "1". (Sans doute une erreur de copie).

Bonjour,

J'ai quelques soucis en passant cette macro d'un module à la feuil1, cela à généré une erreur 1004 : erreur définie par l'application ou par l'objet sur la ligne Cells(row,1).......

Je ne vois pas d'ou pourrait provenir cette erreur, est il possible de m'aiguiller svp?

Sub macroexportdonnées1()

' macro d'export de données tableau de retouche

Dim lRow As Long, LeRep1 As String, nomfichier

nomfichier = ThisWorkbook.Name

LeRep1 = ThisWorkbook.Path & "\Exploitation des données retouche.xlsx" ' à adapter"

Workbooks.Open Filename:= _

LeRep1

Windows(nomfichier).Activate

Range("A32:J41").Copy

Windows("Exploitation des données retouche.xlsx").Activate

lRow = Range("A" & Rows.Count).End(xlUp).Row + 1

Cells(Row, 1).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = 0

Windows(nomfichier).Activate

End Sub

Merci par avance.

C'est toujours la même erreur : nom de la variable mal orthographié !

J'ai beau renommé la variable mais rien y fait.

Il ne faut pas la renommer. Il faut rétablir son nom au contraire (à la ligne en erreur où il est écorché).

Les seules variables sont celles déclarées dans la macro en exemple. et celle ci sont bien déclarées.

Oui, sauf qu'il y a une faute d'"orthographe" dans le nom de celle utilisée dans la ligne en erreur.