Sub transfert_auto() ' ' test Macro ' Macro enregistrée le 28/12/2009 par les ecluses ' ' Workbooks.Open Filename:="C:\Users\Alex\Desktop\Gestion\Sortie.xls" ' vide le fichier base_tsft ret = MsgBox("Reinitialiser le fichier de transfert ?", vbYesNo) If ret = vbYes Then Rows("4:100").ClearContents numtsft = 4 Else ' il faut compter le nombre de lignes Do numtsft = numtsft + 12 Loop While Range("G" & numtsft).Value > 0 End If For numlgn = 9 To 600 Windows("Gestion sortie.xls").Activate If Range("H" & numlgn).Value > 0 Then Valeur = Range("q" & numlgn).Value Windows("Sortie.xls").Activate Range("C" & numtsft).Value = Valeur Windows("Gestion sortie.xls").Activate Range("H" & numlgn).Select Application.CutCopyMode = False Selection.Copy Windows("Sortie.xls").Activate Range("A" & numtsft).Select ActiveSheet.Paste numtsft = numtsft + 1 End If Next numlgn Windows("Sortie.xls").Activate ActiveWorkbook.Save 'ActiveWindow.Close' End Sub
Range("H" & numlgn).Select Application.CutCopyMode = False Selection.Copy Windows("Sortie.xls").Activate Range("A" & numtsft).Selec
Windows("Sortie.xls").Range("A" & numtsft).Value = Range("H" & numlgn).Value
Windows("Sortie.xls").Range("A" & numtsft).Text = Range("H" & numlgn).Text
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionRange("H" & numlgn).Select Application.CutCopyMode = False Selection.Copy Windows("Sortie.xls").Activate Range("A" & numtsft).Selec
Sub transfert_auto() ' ' test Macro ' Macro enregistrée le 28/12/2009 par les ecluses ' ' Workbooks.Open Filename:="C:\Users\Alex\Desktop\Gestion\Sortie.xls" ' vide le fichier base_tsft ret = MsgBox("Reinitialiser le fichier de transfert ?", vbYesNo) If ret = vbYes Then Rows("4:100").ClearContents numtsft = 4 Else ' il faut compter le nombre de lignes Do numtsft = numtsft + 12 Loop While Range("G" & numtsft).Value > 0 End If For numlgn = 9 To 600 Windows("Gestion sortie.xls").Activate If Range("H" & numlgn).Value > 0 Then Valeur = Range("q" & numlgn).Value Windows("Sortie.xls").Activate Range("C" & numtsft).Value = Valeur Windows("Gestion sortie.xls").Activate Range("H" & numlgn).Select Application.CutCopyMode = False Selection.Copy Windows("Sortie.xls").Range("A" & numtsft).Text = Range("H" & numlgn).Text ActiveSheet.Paste numtsft = numtsft + 1 End If Next numlgn Windows("Sortie.xls").Activate ActiveWorkbook.Save 'ActiveWindow.Close' End Sub