création onglet dans fichier

[effelo]

Bonjour,

J'aimerais savoir comment créer un onglet dans un fichier en particulier. Cet onglet servirait à lister tous les résultats récoltés grâce à une macro qui aura été lancée sur d'autres fichiers.

Est ce possible ?

Merci beaucoup ! ! !

 

[effelo]

Pour être plus claire, je voudrais rappatrier des données d'un fichier à un autre en qq sorte...

Merci !

 

[anuky]

Bonjour effelo,

voici une solution possible pour résoudre ton problème

jajoute ce bout de code

Dim iii As Integer
    Dim rep As Variant

     Workbooks.Open Filename:= _
        'chemin du fichier.xls'
    
    'Demande le nom que l'on veut donner à la feuille
    rep = InputBox('Nommez la feuille Excel ou seront contenus les résultats')
    
    'Vérifie que le nom saisi ne correpond pas a une feuille déjà existante
    For iii = 1 To Sheets.Count
      If rep = Worksheets(iii).Name Then
       MsgBox 'Une feuille portant le même nom existe déjà.', vbOKOnly Or vbInformation, 'Saisie Incorrecte'
       Exit Sub
      End If
    Next iii
   
    If rep = '' Then
    
    MsgBox 'Pour exécuter cette macro, vous devez saisir un nom', vbOKOnly Or vbInformation, 'vous n'avez pas saisi de nom'

    Else
    Sheets.Add.Name = rep

    ActiveWindow.Close

    End If

Ce bout de code ouvre le ficher particulier, te demande le nom de l'onglet à créer, vérifie s'il n'existe pas déjà, si le nom saisi n'est pas vide et créé l'onglet.

A+