notre cher ami VBA...

[marion0585]

Bonjour,

Je n'arrive pas à trouver le bon code en VBA pour que mon tableau s'enrigistre sur une feuille qui vient de s'ouvrir.
J'ai fait ma macro avec l'enregistrement.
Tout se passe bien ma feuille s'ouvre et mon tableau s'enregistre dedans.
Mais dès que je supprime cette feuille, 😡la macro ne fonctionne plus car pour VBA l'enregistrement se fait automatiquement sur le numéro de cette feuille.

que dois je faire pour que cela s'enregistre sur la feuille que la macro vient d'ouvrir?

Merci

 

[13GIBE59]

Re : notre cher ami VBA...

Bonjour, Marion

Dans ton enregistreur de macro, il a été enregistré le nom réel de la feuille. Si tu la supprimes, c'est normal que ça bugue.
Essaye de remplacer le nom de la feuille par "ActiveSheet".

JB

 

[marion0585]

Re : notre cher ami VBA...

Merci du conseil, je viens de le tester mais j'y arrive toujours pas.
J'ai vraiment du mal

Range("C17").Select
    Sheets("BDD").Select
    Sheets.Add
    ActiveWindow.SmallScroll Down:=-16
    Sheets("BDD").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets("ActiveSheet").Select
    ActiveSheet.Paste

voici le test que je fais, ça ne fonctionne toujours pas.
C'est la premiere partie de ce que je voudrai faire, car ensuite je voudrai copier des partie de ce tableau sous une autre feuille.

 

[13GIBE59]

Re : notre cher ami VBA...

Tu y es presque :
Supprime le dernier "Sheets("ActiveSheet").Select" de ton code, et ça devrait rouler.

JB

 

[marion0585]

Re : notre cher ami VBA...

Ben oui on y est presque mais pas encore ;-)
cette fois ci ça m'ouvre bien la feuille, mais rien n'est copier dedans.
Dur dur les premier pas chez VBA

 

[13GIBE59]

Re : notre cher ami VBA...

C'est normal, puisque j'ai l'impression que tu ne sélectionnes rien, puis que tu le copies-colles.

Si tu veux copier-coller, un exemple :
Range("A3").Select
Selection.Copy
Range("D8").Select
ActiveSheet.Paste


Donc dans ton cas, je verrais plutôt :
Sheets("BDD").Select
Sheets.Add
Sheets("BDD").Select
Range("C17").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("feuille ajoutée").Select
Range("la cellule de ton choix").Select
ActiveSheet.Paste

 

[marion0585]

Re : notre cher ami VBA...

je suis obligée de nommée la feuille dans laquelle mon tableau doit apparaitre? c'est tableau croisé dynamique et ce que je voudrais c'est qu'a chaque fois ke je change de période et que je souhaite l'extraire cela s'enregistre dans une nouvelle feuille.

 

[13GIBE59]

Re : notre cher ami VBA...

Si c'est une nouvelle "non nommée", essaie :
n=Worksheets.Count
Sheets (n).Select

Cela te donne en principe la dernière feuille créée..

Bon courage.

JB

 

[marion0585]

Re : notre cher ami VBA...

merci pour le courage,
mais ca marche toujours pas,
je vais dormir la je crois

 

[tototiti2008]

Re : notre cher ami VBA...

Bonjour à tous,

à tester :

Sheets.Add
NomFeuil = Activesheet.name
Sheets("BDD").Activate
Range("C17").CurrentRegion.Copy
Sheets(NomFeuil).Activate
Range("la cellule de ton choix").Select
ActiveSheet.Paste

ça pourrait encore se simplifier mais teste déjà si ça marche

 

[marion0585]

Re : notre cher ami VBA...

Merci de m'avoir aidé, j'ai trouvé une solution pour contourner la difficulté, mais je vais quand même tester voir si ca marche...🙄