OVH Cloud OVH Cloud

pour les experts de macro

4 réponses
Avatar
debutant
bonsoir

voila je voudrais faire un suivi des feuilles excel que j'enregistre
a l'aide d'une macro.

Je m'explique: j'enregistre ma feuille et la macro recopie la ligne A1:I1
dans dans un autre classeur en A1

puis si j'enregistre une autre feuille la macro recopie la ligne A1:I1 dans
dans ce meme classeur en B1

et ainsi de suite

auriez vous une solution a mon probleme?

merci a tous

4 réponses

Avatar
isabelle
bonjour debutant,

cette macro est à copier dans le module Thisworkbook du classeur a
enregistrer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim x As Integer
x Workbooks("AutreClasseur").Sheets("yy").Range("IV1").End(xlToLeft).Column
- 7
Sheets("xx").Range("A1:I1").Copy _
Destination:=Workbooks("AutreClasseur").Sheets("yy").Cells(1, x)
End Sub

isabelle


bonsoir

voila je voudrais faire un suivi des feuilles excel que j'enregistre
a l'aide d'une macro.

Je m'explique: j'enregistre ma feuille et la macro recopie la ligne A1:I1
dans dans un autre classeur en A1

puis si j'enregistre une autre feuille la macro recopie la ligne A1:I1 dans
dans ce meme classeur en B1

et ainsi de suite

auriez vous une solution a mon probleme?

merci a tous


Avatar
sabatier
bonjour débutant,
tu sais, moi, quand j'ai un truc comme cela à faire et comme je ne suis
pas un expert, je raisonne dans l'autre sens, c'est à dire que je colle
toujours dans A1 en insérant à chaque fois une colonne ; le seul
reproche que tu pourrais faire à mon système est que tes premiers
enregistrements s'éloignent à chaque fois à la droite de ton classeur
mais l'énorma avantage est que tu peux te servir de l'enregistreur de
macros pour écrire ta proc ; tu choisis "classeur de macros
personnelles" et tu t'installes une petit bouton personnalisé vite fait
sur le gaz quelque part dans une de tes BO en haut de tes classeurs et
vogue la galère....
jps

debutant a écrit:
bonsoir

voila je voudrais faire un suivi des feuilles excel que j'enregistre
a l'aide d'une macro.

Je m'explique: j'enregistre ma feuille et la macro recopie la ligne A1:I1
dans dans un autre classeur en A1

puis si j'enregistre une autre feuille la macro recopie la ligne A1:I1 dans
dans ce meme classeur en B1

et ainsi de suite

auriez vous une solution a mon probleme?

merci a tous





Avatar
debutant
merci
mais le non de la feuille que j'enregistre n'est jamais le même.
exemple :la 1er feuille s'appelera feuille 1
la 2eme feuilles s'appelera feuille 2
etc.........


"isabelle" a écrit dans le message de news:

bonjour debutant,

cette macro est à copier dans le module Thisworkbook du classeur a
enregistrer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim x As Integer
x > Workbooks("AutreClasseur").Sheets("yy").Range("IV1").End(xlToLeft).Column
- 7
Sheets("xx").Range("A1:I1").Copy _
Destination:=Workbooks("AutreClasseur").Sheets("yy").Cells(1, x)
End Sub

isabelle


bonsoir

voila je voudrais faire un suivi des feuilles excel que j'enregistre
a l'aide d'une macro.

Je m'explique: j'enregistre ma feuille et la macro recopie la ligne
A1:I1


dans dans un autre classeur en A1

puis si j'enregistre une autre feuille la macro recopie la ligne A1:I1
dans


dans ce meme classeur en B1

et ainsi de suite

auriez vous une solution a mon probleme?

merci a tous




Avatar
isabelle
on n'enregistre pas une feuille mais un classeur. s'il y a trois
feuilles dans le classeur les trois sont enregistrer en même temps.

pour que les cellules de la feuille active soit copier lors de
l'enregistrement,
remplace sheets("xx") par activesheet

isabelle


merci
mais le non de la feuille que j'enregistre n'est jamais le même.
exemple :la 1er feuille s'appelera feuille 1
la 2eme feuilles s'appelera feuille 2
etc.........

"isabelle" a écrit dans le message de news:

bonjour debutant,

cette macro est à copier dans le module Thisworkbook du classeur a
enregistrer

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim x As Integer
x > > Workbooks("AutreClasseur").Sheets("yy").Range("IV1").End(xlToLeft).Column
- 7
Sheets("xx").Range("A1:I1").Copy _
Destination:=Workbooks("AutreClasseur").Sheets("yy").Cells(1, x)
End Sub

isabelle


bonsoir

voila je voudrais faire un suivi des feuilles excel que j'enregistre
a l'aide d'une macro.

Je m'explique: j'enregistre ma feuille et la macro recopie la ligne
A1:I1


dans dans un autre classeur en A1

puis si j'enregistre une autre feuille la macro recopie la ligne A1:I1
dans


dans ce meme classeur en B1

et ainsi de suite

auriez vous une solution a mon probleme?

merci a tous