Déclarer onglet à gauche en VBA dans une macro

[Amigos]

Bonjour,

Nous avons un onglet que nous dupliquons en le renommant avec la date du jour, mais nous souhaitons ramener les commentaires de l'onglet précedent.

Je ne sais pas déclarer en VBA l'onglet précedent ?

voici le code

ActiveSheet.Copy before:=Worksheets(ActiveSheet.Name) ' copie feuille en cours avant la feuille en cours
ActiveSheet.Name = Format(Date, "ddmmyy")

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-9],'270412'!C[-9]:C[1],10,FALSE)"

 

[ERIC S]

Re : Déclarer onglet à gauche en VBA dans une macro

Bonjour

je suppose qu'il y a des jours où le fichier n'est pas créé (samedi, dimanche, jours fériés

??

 

[Amigos]

Re : Déclarer onglet à gauche en VBA dans une macro

Tout à fait , c'est pour cela que j'aurais souhaité prendre l'onglet précedent (à droite)

Merci

 

[ERIC S]

Re : Déclarer onglet à gauche en VBA dans une macro

A regarder, non testé :

précédent =activesheet.name
ActiveSheet.Copy before:=Worksheets(ActiveSheet.Name) ' copie feuille en cours avant la feuille en cours
ActiveSheet.Name = Format(Date, "ddmmyy")
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-9],'" & précédent & "'!C[-9]:C[1],10,FALSE)"

 

[tototiti2008]

Re : Déclarer onglet à gauche en VBA dans une macro

Bonjour Amigos,

Pour commencer,

Worksheets(ActiveSheet.Name)

Peut s'écrire

ActiveSheet

Le nom de la feuille d'avant devrait s'écrire

sheets(Activesheet.index -1).name

attention à ta formule avec les R[-9], il faut qu'il y ait 9 colonnes avant pour que ça marche, et je ne sais pas ce qui est Activecell en l'occurrence

Edit : bonjour Eric
ReEdit :

prendre l'onglet précedent (à droite)
Déclarer onglet à gauche en VBA dans une macro

à droite ou l'autre droite ?

 

[Amigos]

Re : Déclarer onglet à gauche en VBA dans une macro

Merci Eric S, Cela fonctionne ,

Tototiti2008 Activecell, je crois que cela active la cellule c 'est pour mettre ma formule recherchev , j'ai testé et cela ne fonctionne pas

en tout cas encore merci à tous les 2

 

[tototiti2008]

Re : Déclarer onglet à gauche en VBA dans une macro

Re,

Oui, ce qu'il te faut c'est bien la feuille à droite, moi je vais chercher la feuille à gauche (à cause du titre de ton fil ?) mais la solution d'Eric est la plus simple
sinon ma 1ère remarque est fondée et pour la dernière, si ta formule s'écrit au bon endroit, tant mieux

 

[Pierrot93]

Re : Déclarer onglet à gauche en VBA dans une macro

Bonjour à tous,

peut être ceci t'aidera :

If ActiveSheet.Index < Sheets.Count Then MsgBox ActiveSheet.Next.Name

A noter qu'il existe également "Previous" pour la feuille précédente, test à adapter en conséquence...

bon après midi
@+

 

[Amigos]

Re : Déclarer onglet à gauche en VBA dans une macro

Merci j'ai fais une erreur dans mon fil c'est bien à droite

maintenant j'arrive à trouver la derniere ligne de mon tableau , mais je ne sais pas recopier en vba puisque il y aura entre les jours 1 nombre de ligne différent,

Range("b65536").End(xlUp).Select
merci

 

[ERIC S]

Re : Déclarer onglet à gauche en VBA dans une macro

Re

si tu pouvais joindre un exemple (sans données confidentielles
2 feuilles : la feuille du jour précédent et la feuille que tu veux obtenir, avec le report souhaité pour les commentaires