Hello le forum,
Je reviens vers vous pour d;avoir d'autres tips.
J'essaie de faire mon bout de code de mon cote afin de pouvoir le greffer a une macro que mon collegue utilise deja.
Lorsqu'il fait tourner son traitement, j'aimerais rajouter un morceau qui viendrait recuperer les info qu'il vient d'enregistrer pour les mettre dans un fichier de suivi pour moi. ca m'evite ainsi de lui poser 100 questions, j'ai plus de visu., etc etc.
le hic est qu'il ne veut pas que je touche a son code car fonctionne tres bien. J'ai donc pense a rajouter un "CALL" macro (j'ai lu ca sur Internet).
Ci-dessous mon code (pas de jugement, je suis debutante a 100%) . il fonctionne au debut, mais au moment de copier la ligne... plus rien.
Call test ( que je compte glisser dans sa macro, a la fin)
------------------------------------------
Sub test()
Dim wbSource As Workbook
timestamp = Date
wbSource = ThisWorkbook
wsSource = Worksheets("Template").Select
y = Range("B65536").End(xlUp).Row
Selection.Copy
Application.DisplayAlerts = False
Set wscible = ActiveSheet
fic = le lien de mon chemin.
Workbooks.OpenText FileName:=fic, DataType:=1, Semicolon:=True, Local:=True
Set Wbcible = ActiveWorkbook
Set wscible = Sheets("Forecasts")
Application.DisplayAlerts = True
-> c'est en dessous que je ne suis pas tres fiere...
wscible.Activate
y = Range("B65536").End(xlUp).Row + 1
Cells(y, 1) = timestamp
Cells(y, 2).Activate
Selection.Paste
Auriez vous des idees pour finaliser ?
Merci beaucoup
Clara
Je reviens vers vous pour d;avoir d'autres tips.
J'essaie de faire mon bout de code de mon cote afin de pouvoir le greffer a une macro que mon collegue utilise deja.
Lorsqu'il fait tourner son traitement, j'aimerais rajouter un morceau qui viendrait recuperer les info qu'il vient d'enregistrer pour les mettre dans un fichier de suivi pour moi. ca m'evite ainsi de lui poser 100 questions, j'ai plus de visu., etc etc.
le hic est qu'il ne veut pas que je touche a son code car fonctionne tres bien. J'ai donc pense a rajouter un "CALL" macro (j'ai lu ca sur Internet).
Ci-dessous mon code (pas de jugement, je suis debutante a 100%) . il fonctionne au debut, mais au moment de copier la ligne... plus rien.
Call test ( que je compte glisser dans sa macro, a la fin)
------------------------------------------
Sub test()
Dim wbSource As Workbook
timestamp = Date
wbSource = ThisWorkbook
wsSource = Worksheets("Template").Select
y = Range("B65536").End(xlUp).Row
Selection.Copy
Application.DisplayAlerts = False
Set wscible = ActiveSheet
fic = le lien de mon chemin.
Workbooks.OpenText FileName:=fic, DataType:=1, Semicolon:=True, Local:=True
Set Wbcible = ActiveWorkbook
Set wscible = Sheets("Forecasts")
Application.DisplayAlerts = True
-> c'est en dessous que je ne suis pas tres fiere...
wscible.Activate
y = Range("B65536").End(xlUp).Row + 1
Cells(y, 1) = timestamp
Cells(y, 2).Activate
Selection.Paste
Auriez vous des idees pour finaliser ?
Merci beaucoup
Clara