comment aller a la ligne suivante

eseuk · 15 Juin 2011

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 · 15 Juin 2011

Re : comment aller a la ligne suivante

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

Code:

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 · 15 Juin 2011

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 · 15 Juin 2011

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 · 15 Juin 2011

Re : comment aller a la ligne suivante

Re ,

eseuk à dit:
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

Code:

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

Code:

Application.Dialogs (xlDialogOpen)

Bon courage

eseuk · 15 Juin 2011

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 · 15 Juin 2011

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 · 15 Juin 2011

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 · 15 Juin 2011

Re : comment aller a la ligne suivante

Re ,
A tester

Code:

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 · 15 Juin 2011

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

comment aller a la ligne suivante

eseuk

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

eseuk

XLDnaute Nouveau

eseuk

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

eseuk

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

eseuk

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

eseuk

XLDnaute Nouveau

Discussions similaires