Discussion :

[atk_49]

Bonjour à tous !

Je planche sur un script dont voici les étapes :
En appuyant sur un bouton je souhaite :
- Copier une sélection de cellules sur le tableau ouvert.
- Ouvrir un autre fichier Excel.
- Repérer et sélectionner la première ligne vide de ce fichier. (mon problème)
- Coller les données en les transposant.
- Sauvegarder et fermer le fichier.

N'étant pas un expert en VBA, j'ai utilisé la fonction enregistrement de macro pour créer une base de code, mais malheureusement je bloque sur l'étape de sélection de la première ligne vide.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton7_Click()
    Range("C80:D82").Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "Z:\Programmes France Equipements\Analyse technique\ajout.xlsx"
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Range("A4").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Le script bloque sur la ligne 6 en indiquant "Erreur définie par l'application ou par l'objet".
Qu'en pensez-vous ?

Merci d'avance !

[EngueEngue]

Alors là ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & Rows.Count).End(xlDown).Offset(1, 0).Select

Se place sur la dernière ligne du fichier, essaie de descendre encore une ligne plus bas... un peu bête

Essaie plutôt ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & Rows.Count).End(xlup).Offset(1, 0).Select

[atk_49]

Salut EngueEngue !

Oui je m'étais aperçu de ça entre temps et j'ai modifié le code mon premier post, malheureusement ça ne change rien :/

[EngueEngue]

Spécifier les parents de tes range
Workbooks("nomduworkbook").sheets("nomdusheet").range(

Pour les objets range cells rows...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
x = Workbooks("nomduworkbook").sheets("nomdusheet").Range("A" & Workbooks("nomduworkbook").sheets("nomdusheet").Rows.Count).End(xlup).row
 
Workbooks("nomduworkbook").sheets("nomdusheet").cells(x, 1).select

[atk_49]

Finalement j'ai trouvé le problème, il suffisait d'indiquer sur quelle feuille je travaillais, voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton7_Click()
    Range("C80:D82").Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "Z:\Programmes France Equipements\Analyse technique\ajout.xlsx"
    Worksheets("chargeur").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Merci EngueEngue