Discussion :

[huître]

bonjour

j'ai un fichier excel sans cesse mise à jour via une extraction ODBC

donc j'utilise la formule suivante pour pouvoir réaliser l'importation

Code :

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

1
2
3
Sub importation()
ActiveWorkbook.RefreshAll
End Sub

donc ça marche puis ensuite j'utilise la fonction suivante

Code :

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

1
2
3
4
5
6
7
8
9
Sub concat()
Dim derlg As Long
For Each sh In Worksheets(Array("AAR35", "AAR", "RST", "PCH", "EXP DIF"))
derlg = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
sh.Cells(1, 31) = "CLE"
sh.Range("AE2").FormulaR1C1 = "=RC[-28]&""_""&RC[-26]"
sh.Range("AE2").AutoFill Destination:=sh.Range("AE2:AE" & derlg), Type:=xlFillDefault
Next sh
End Sub

donc grossomodo je fais

Code :

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

1
2
3
4
5
Sub etape1()
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll
Call concat
End Sub

mais je ne comprend pas pourquoi la formule ne s'etire pas vers le bas et ne concatene pas les données qui viennent s'ajouter sur la feuille

normalement vu la boucle que j'ai mis la formule doit s'etirer sur toute la feuille

existe t'il une solution pour remerdier à ce probleme voila merci d'avance

[casefayere]

Bonsoir,
as-tu vérifié la valeur de "derlg" ?, ta colonne A est-elle utilisée ?

[huître]

ben je pense que c'est correct enfin je n'arrive pas à discerner l'erreur

[Pierre Fauconnier]

Salut.

Essaie

Code :

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

sh.Range("AE2:AE" & derlg)..FormulaR1C1 = "=RC[-28]&""_""&RC[-26]"

sans utiliser AutoFill.

Comme le propose Dominique, vérifie bien en pas à pas la valeur de DerLg.

[huître]

non visiblement ca ne marche pas le debogage surligne justement la ligne que tu m'as donné

Code :

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

1
2
3
4
5
6
7
Sub concat()
For Each sh In Worksheets(Array("AAR35", "AAR", "RST", "PCH", "EXP DIF"))
derlg = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
sh.Range("AE2:AE" & derlg).FormulaR1C1 = "=RC[-28]&""_""&RC[-26]"
sh.Range("AE2").AutoFill Destination:=sh.Range("AE2:AE" & derlg), Type:=xlFillDefault
Next sh
End Sub

j'ai même essayer en supprimant la ligne en rouge

[casefayere]

Bonjour,
Si tu as effectivement controlé la valeur de derlg, attention aux espaces qui ne s'intégrent pas toujours seuls :

Code :

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

sh.Range("AE2:AE" & derlg).FormulaR1C1 = "=RC[-28] & ""_"" & RC[-26]"

à voir.....

[huître]

comment je fais pour verifier la valeur du derligne ?

le problème c'est que ca concatene jusqu'a la fin du fichier avant actualisation

pourtant j'indique bien de me faire l'importation et une fois le fichier complet de faire la concatenation

[casefayere]

comment je fais pour verifier la valeur du derligne ?

Comme l'a dit Pierre, tu travailles ta macro en pas à pas ou ajoutes temporairement une MsgBox

Code :

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

1
2
derlg = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
msgbox derlg

[huître]

donc après l'importation j'ai bien le nombre de ligne souhaité donc mon derlign est correct

[Pierre Fauconnier]

Je ne comprends pas bien de quoi tu parles lorsque tu parles d'actualisation

[Daranc]

et en insérant un calculate avant de faire tes autofill de façon a remettre les valeur de la feuille à jour?