ca me met erreur code: 400
j'ai simplement mis le fichier sur mon disque (U)
et du coup je l'ai changé 2 fois sur la macro. je me suis trompé quelque part ?
Sub Macro1()
'
' Macro1 Macro
'
'
'postionnement Cell A1
Range("A1").Select
'on boucle pour determiner le nombre de lignes et on recupere nbligne
Do While Not (IsEmpty(ActiveCell))
nbligne = nbligne + 1
Selection.Offset(1, 0).Select
Loop
'on a nbligne
Range("A" & nbligne & ":L" & nbligne).Select
Selection.Copy
Workbooks.Open Filename:= _
"U:\Affaire.xlsx"
Range("B1").Select
ActiveSheet.Paste
Range("C1").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("B2")
Range("D1").Select
Selection.Cut Destination:=Range("B3")
Range("E1").Select
Selection.Cut Destination:=Range("B4")
Range("B4").Select
toto = Range("B1").Value
ActiveWorkbook.SaveAs Filename:= _
"U:\Affaire" & toto & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
et par contre, même si pour l'instant je n'arrive pas à lancer ta macro, comment on fait pour choisir l'affaire que l'on souhaite? c'était le problème que j'avais avec les macros.
le tableau croisé dynamique est une bonne alternative pour ca mais le problème c'est que je n'arrive à mettre la forme que je souhaite car je dois intégrer des valeur dans un tableau beaucoup plus complexe que celui que j'ai envoyé avec des données fixe qui sont déjà inscrites et tout.