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