copier dans la première colonne vide d'un autre fichier

[djacquin]

Bonjour à tous,
voici mon souci :
j'aimerai faire un copier / collage spécial (valeurs) d'une plage de cellule vers la première colonne vide d'une feuille d'un autre fichier.
J'arrive à faire ceci, mais comment dire que le prochain collage spécial doit se faire dans la 1ere colonne vide ? :

Sheets("Feuil2").Select
ActiveWindow.SmallScroll Down:=3
    Range("A30:D55").Select
    Selection.Copy
    Windows("test-ecotaxe.xls").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("classeur-devis-vision-v1810.xls").Activate
    ActiveWindow.SmallScroll Down:=-39
    Range("I30:I55").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("test-ecotaxe.xls").Activate
    Range("B2").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A26").Select

Avec mes remerciements

 

[Pierrot93]

Re : copier dans la première colonne vide d'un autre fichier

Bonjour,

regarde peut être ceci, te renvoie le numéro de la première colonne vide (celle après la dernière colonne renseignée), espérant que cela puisse t'aider à avancer :

Dim x As Long
x = Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0).Column + 1

bon après midi
@+

 

[djacquin]

Re : copier dans la première colonne vide d'un autre fichier

Merci mais j'ai une erreur, j'ai déjà

Dim Wk As Workbook
x = "test-ecotaxe"

Je ne sais pas comment déclarer un autre "x".
Merci

 

[Pierrot93]

Re : copier dans la première colonne vide d'un autre fichier

Re,

utilise un autre nom :

Dim z As Long
z = Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0).Column + 1

 

[djacquin]

Re : copier dans la première colonne vide d'un autre fichier

Merci j'ai essayé, mais ça ne fait rien de plus.
Voici mon code complet pour une meilleure compréhension.
Avec mes rermerciements

Dim y As Long
y = Cells.Find("*", Cells(Rows.Count, Columns.Count), xlValues, , 2, 2, 0).Column + 1
Dim Wk As Workbook
x = "test-ecotaxe"
On Error Resume Next
Set Wk = Workbooks(x & ".xls")
If Err <> 1 Then
    Workbooks.Open Filename:=ThisWorkbook.Path & "\test-ecotaxe.xls"
    Windows("classeur-devis-vision-V1810.xls").Activate
    Sheets("devis-1").Select
    'Range("A30:D55").Copy Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1)
    Range("A30:D55").Select
    Selection.Copy

    Windows("test-ecotaxe.xls").Activate
    Sheets("Feuil2").Select
    Range("A2").Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("classeur-devis-vision-v1810.xls").Activate
    ActiveWindow.SmallScroll Down:=-39
    Range("I30:I55").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("test-ecotaxe.xls").Activate
    Sheets("Feuil2").Select
    Range("B2").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("classeur-devis-vision-V1810.xls").Activate
    Sheets("devis-1").Select
    Range("A26").Select
Else
    MsgBox "Le fichier " & x & " est ouvert"
End If

 

[Pierrot93]

Re : copier dans la première colonne vide d'un autre fichier

Re,

tu initialises bien la variable, mais tu ne t'en sers pas... peut être avec ceci :

Range("A30:D55").Copy Cells(2, y)