fusion de données

[arvin]

bonsoir à tous et bon week end

j'ai besoin de vous pour une aide : je souhaite récupérer les données du fichier (sachant que la ligne jaune est toujours la même) sur une feuille nommée 1, par une macro . Ensuite, je souhaite récupérer d'autres données et les fusionner avec cette feuille 1 (les tableaux sont toujours du même style mais avec des lignes différentes). Enfin, un tri alphabétique (colonne 1) serait intéressant

j'espère avoir été claire


merci à tous


cordialement

 

[Sébastien]

voila un essaye, remplace ton nom de fichier" par .. ton nom de fichier ou se trouve 1

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 5/12/2004 par x
'

'
Dim ligne As Single
Dim numblanc As Single
Dim laplage As String
ligne = 14
numblanc = 0
While (numblanc <> 1)
Cells(ligne, 1).Select
If (Cells(ligne, 1).Value = "") Then
numblanc = 1
Else
ligne = ligne + 1
End If
Wend
laplage = "A14:H" & (ligne - 1)

Range(laplage).Select
Selection.Copy
ChDir "C:\Documents and Settings\x\Bureau\etat"
Workbooks.Open Filename:= _
"C:\Documents and Settings\x\Bureau\etat\ton nom de fichier.xls"
Sheets("1").Select
ligne = 14
numblanc = 0
While (numblanc <> 1)
Cells(ligne, 1).Select
If (Cells(ligne, 1).Value = "") Then
numblanc = 1
Else
ligne = ligne + 1
End If
Wend


ActiveSheet.Paste

ligne = 14
numblanc = 0
While (numblanc <> 1)
Cells(ligne, 1).Select
If (Cells(ligne, 1).Value = "") Then
numblanc = 1
Else
ligne = ligne + 1
End If
Wend
laplage = "A14:H" & (ligne - 1)

Application.CutCopyMode = False
Selection.Sort Key1:=Range("A14"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A14").Select
Windows("état.xls").Activate
End Sub