Création automatique d'une feuille

Bonjour à tous,

En espérant que tout va bien pour vous depuis tout ce temps.
J'ai cherché sur le forum mais pas évident de sélectionner les bons mots clefs.

Alors j'ai actuellement 2 fichiers.
Le premier, géré par Mr A le second par Mr B.

Le fichier de Mr B fait une recopie de case des fichiers de Mr A sous la forme ='[NUMERO SERIE MACHINE.xlsm]MACHINE1'!E1
ceci sur chaque case de chaque ligne chaque colonne.
Ceci fonctionne.

Seulement si Mr A ajoute une feuille, Mr B doit le faire manuellement.
Existe t'il un moyen de surveiller le fichier de Mr A et le nombre de feuilles et d'ajouter dans le classeur de Mr B la nouvelle feuille?

Merci de vos retours

Cdt

Salut LucXls,

Il va falloir procéder par macro, à l'ouverture du fichier de M. B, c'est à dire dans la procédure :

Private Sub Workbook_Open()

End Sub

Ensuite il va falloir compter le nombre de feuille du fichier de M. A et la comparer avec le nombre de feuille de M. B. Tu y arriveras grâce à ça :

Workbooks("NUMERO SERIE MACHINE.xlsm").Sheets.Count

Ensuite il ne te reste qu'à trouver la feuille à rajouter, puis l'ajouter avec les formules que tu as déjà !

Reviens ici si tu bloques !

Bonne journée,

Baboutz

Bonjour Baboutz,

Merci pour ton retour
Je teste dans la fin de journée.

J'utilise déjà un "script" dans le workbook open pour me faire un pop up à l'ouverture

MsgBox vbTab & " Pour INFO " & vbLf & "" & vbLf & vtab & " *XXXXXXX* " & vbLf & "" & vbLf & "" & vbLf & "" & vbLf & "" & vbTab & "En date du XXXXXX" & vbLf

Est ce que cela risque de perturber ou je peux mettre plusieurs chose .

Cela ne risque pas de perturber, il suffit de mettre à la suite !

Bonjour à tous,

Je m'aperçois que je n'avais pas fait de retour sur ceci.
J'ai réussi avec les infos de Baboutz. (merci à lui).

Bonne continuation à tous.

Bonjour LucXls,

Avec plaisir, n'hésite pas à valider la sujet avec le "v" !

Bonne journée,

Baboutz