Exécuter un macro pour les lignes qiu suivent

[manue16]

Bonjour,
J'ai enfin réussi a faire une macro pour importer des données dans un autre fichier Excel.
Maintenant j'aimerai que cette macro s'applique au ligne qui suivent la ligne ou le macro est enregistrée &
C'est trés important !! MERCI de répondre au plus vite s'il vous plait !

MERCIII !

 

[mutzik]

Re : Exécuter un macro pour les lignes qiu suivent

bonjour,

bien gentil, mais il n'y ni macro ni fichier joint, et ma boule de cristal est en panne ...

 

[manue16]

Re : Exécuter un macro pour les lignes qiu suivent

bonjour,

bien gentil, mais il n'y ni macro ni fichier joint, et ma boule de cristal est en panne ...

Bonjour,

Désolé ..
Voici ma macro :
Sub Macro4()
'
' Macro4 Macro
'

'
Workbooks.Open Filename:= _
"N:\LE FLOCH\06 COMMANDE\BC_2012\CDE 2012 modèle.xls"
Range("B4").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C8"
Range("A18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C9"
Range("B18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C1"
Range("C18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C10"
Range("E18:F18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C4"
Range("A23").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C5"
Range("E23").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C3"
Range("E23").Select
Selection.ClearContents
Range("B2323").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C3"
Range("E23").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C7"
Range("E24").Select
ActiveWindow.SmallScroll Down:=6
Range("F23").Select
ActiveWindow.SmallScroll Down:=-12
End Sub

Voila j'espère que sa peu aidé !

 

[mutzik]

Re : Exécuter un macro pour les lignes qiu suivent

re,

mais alors juste un peu,
est-ce qu'on peut voir un bout de ton fichier, sans données confidentielles, avec le départ et ensuite le résultat attendu

 

[mutzik]

Re : Exécuter un macro pour les lignes qiu suivent

bjr,

Workbooks.Open Filename:= _
"N:\LE FLOCH\06 COMMANDE\BC_2012\CDE 2012 modèle.xls"
Range("B4").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C8"
Range("A18").Select
ActiveCell.FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C9"

peut se remplacer par :
Workbooks.Open Filename:= "N:\LE FLOCH\06 COMMANDE\BC_2012\CDE 2012 modèle.xls"
Range("B4").FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C8"
Range("A18").FormulaR1C1 = "='[BASES DE DONNEES.xls]COMMANDES '!R456C9"

point besoin de select
je te laisse faire le reste ...