comment aller a la ligne suivante

[eseuk]

bonjour, mon problème est le suivant j'aimerai pourvoir aller a la ligne suivante après chaque clic sur mon bouton ( en cliquant dessus on exécute un code )

voila ce que j'ai comme code
Public Sub CommandButton3_Click()

'Dim i As Integer
'i = ActiveCell.End(xlUp).Row



Workbooks("destination.xlsx").Sheets("Feuil1").Range("A1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("E4")

Workbooks("destination.xlsx").Sheets("Feuil1").Range("B1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("E5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("C1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("G5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("O1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("E7")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("E1") = _
Workbooks("source.xlsm").Sheets("Blad1").Range("E8")
End Sub

j'aimerai pouvoir écrire a la ligne suivant après chaque clic sur le bouton je vous remercie d'avance

 

[JNP]

Re : comment aller a la ligne suivante

Bonjour Eseuk ,
Pas sûr d'avoir compris ...
A tester

Public Sub CommandButton3_Click()
Dim I As Integer
I = ActiveCell.Row
With Workbooks("source.xlsm").Sheets("Blad1")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("A" & I) = .Range("E4")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("B" & I) = .Range("E5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("C" & I) = .Range("G5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("O" & I) = .Range("E7")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("E" & I) = .Range("E8")
End With
ActiveCell.Offset(1, 0).Select
End Sub

Bonne journée

 

[eseuk]

Re : comment aller a la ligne suivante

bonjour, JNP je te remercie tu ma bien aidé en plus ton code est plus simplifier que le mien
c'est exactement ce que je voulais faire

 

[eseuk]

Re : comment aller a la ligne suivante

Public Sub CommandButton3_Click()
Dim Wb As Workbook
Set Wb = Workbooks.Open("C:\destination")
Dim I As Integer
I = ActiveCell.Row
With Workbooks("source.xlsm").Sheets("Blad1")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("A" & I) = .Range("E4")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("B" & I) = .Range("E5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("C" & I) = .Range("G5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("D" & I) = .Range("E7")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("E" & I) = .Range("E8")
End With

Wb.Close True
Application.ScreenUpdating = True
ActiveCell.Offset(1, 0).Select



End Sub

j'aimerai pouvoir ouvrir le classeur destination avec le clic sur le bouton stocké les données sauvegarder et le fermer automatiquement une idée JNP ?

 

[JNP]

Re : comment aller a la ligne suivante

Re ,

j'aimerai pouvoir ouvrir le classeur destination avec le clic sur le bouton stocké les données sauvegarder et le fermer automatiquement une idée JNP ?

Plusieurs ...
D'abord utiliser le # qui se trouve au dessus en mode avancé pour mettre ton code proprement dans tes posts ...
Ensuite utiliser le chemin complet si tu veux ouvrir un fichier

Public Sub CommandButton3_Click()
Dim Wb As Workbook
Set Wb = Workbooks.Open("C:\destination\source.xlsm")
Dim I As Integer
I = ActiveCell.Row
With Wb.Sheets("Blad1")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("A" & I) = .Range("E4")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("B" & I) = .Range("E5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("C" & I) = .Range("G5")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("D" & I) = .Range("E7")
Workbooks("destination.xlsx").Sheets("Feuil1").Range("E" & I) = .Range("E8")
End With
Wb.Close True
ActiveCell.Offset(1, 0).Select
End Sub

Sinon, si tu veux choisir ton fichier, étudier la méthode

Application.Dialogs (xlDialogOpen)

Bon courage

 

[eseuk]

Re : comment aller a la ligne suivante

pour le chemin mon classer destination est a la racine C dans il s'ouvre les donner sont collées mais il le se referme pas c'est la le soucis
malgré le Wb.Close True

 

[JNP]

Re : comment aller a la ligne suivante

Re ,
Et ta macro, elle est dans quel classeur ?
Parce que pour moi, tu étais dans Destination et tu ouvrais Source...
A +

 

[eseuk]

Re : comment aller a la ligne suivante

ah non je suis dans source j'ouvre destination je colle les cellules copiées depuis source et je referme destination
du moins c'est ce que j'essaye de faire

 

[JNP]

Re : comment aller a la ligne suivante

Re ,
A tester

Public Sub CommandButton3_Click()
Dim Wb As Workbook
Set Wb = Workbooks.Open("C:\destination.xlsx")
Dim I As Integer
I = ActiveCell.Row
With ThisWorkbook.Sheets("Blad1")
Wb.Sheets("Feuil1").Range("A" & I) = .Range("E4")
Wb.Sheets("Feuil1").Range("B" & I) = .Range("E5")
Wb.Sheets("Feuil1").Range("C" & I) = .Range("G5")
Wb.Sheets("Feuil1").Range("D" & I) = .Range("E7")
Wb.Sheets("Feuil1").Range("E" & I) = .Range("E8")
End With
Wb.Save
Wb.Close
ActiveCell.Offset(1, 0).Select
End Sub

A +

 

[eseuk]

Re : comment aller a la ligne suivante

j'ai résolue le probleme en fait il venait du fait que mon fichier etais dans la racine C donc seven qui bloquait et donc empêchait la modification et encore merci JNP