Récupérer lnom d'un onglet dans une cellule

Bonjour,

J'ai un fichier de travail qui récupère plusieurs données issues d'un autre classeur et avec différents onglets. Actuellement, quand je rapatrie mes données dans mon fichier de travail, pour pouvoir les séparer (puisqu'elles viennent de différents onglets) je les sépare avec un "/".

Je voudrais savoir s'il était possible de rajouter une instruction à mon code, pour qu'avant chaque donnée rapatriée il y ait le nom de l'onglet dans lequel la macro est allée chercher la donnée.

Merci beaucoup

Sub Macro1()

Application.ScreenUpdating = False

'Ouverture des fichiers

Workbooks.Open [ZoneFichier]

'Reprise des commentaires du fichier source via une boucle parmis les onglets

Windows("DI 19-02 ADR - Fichier commun").Activate
'Windows(Dir(Range("ZoneFichier"))).Activate
For k = 1 To Sheets.Count
       With Sheets(k)
            For Each cel In .Range("G19: H23,B25, B27, D29:K29,B34:M34, B36:M39, D40:E40, H40:I40, L40:M40")
               ThisWorkbook.Activate
               Range(cel.Address) = cel & "/" & Range(cel.Address)
        Next cel
   End With
    Windows("DI 19-02 ADR - Fichier commun").Activate
Next k

'Fermeture du fichier externe

Windows("DI 19-02 ADR - Fichier commun").Activate
'Windows(Dir(Range("ZoneFichier"))).Activate
        ActiveWindow.Close False

End Sub

Bonjour, je n'ai pas testé, mais ça devrait fonctionner :

Sub Macro1()

Application.ScreenUpdating = False

'Ouverture des fichiers

Workbooks.Open [ZoneFichier]

'Reprise des commentaires du fichier source via une boucle parmis les onglets

Windows("DI 19-02 ADR - Fichier commun").Activate
'Windows(Dir(Range("ZoneFichier"))).Activate
For k = 1 To Sheets.Count
       With Sheets(k)
            For Each cel In .Range("G19: H23,B25, B27, D29:K29,B34:M34, B36:M39, D40:E40, H40:I40, L40:M40")
               ThisWorkbook.Activate
               Range(cel.Address) = .name & "/" & cel & "/" & Range(cel.Address)
        Next cel
   End With
    Windows("DI 19-02 ADR - Fichier commun").Activate
Next k

'Fermeture du fichier externe

Windows("DI 19-02 ADR - Fichier commun").Activate
'Windows(Dir(Range("ZoneFichier"))).Activate
        ActiveWindow.Close False

End Sub

Merci beaucoup ça fonctionne !

Du coup, j'aurais une question juste par curiosité : j'ai variabilisé le fichier en indiquant à la macro qu'elle devait ouvrir le fichier qui se situe à l'adresse ZoneFichier. Pour la première instruction aucun soucis.

Par contre, j'ai mis en commentaire cette indication 'Windows(Dir(Range("ZoneFichier"))).Activate car elle ne fonctionne plus... Avez-vous une idée de la raison...?

Merci encore !

Merci beaucoup ça fonctionne !

Du coup, j'aurais une question juste par curiosité : j'ai variabilisé le fichier en indiquant à la macro qu'elle devait ouvrir le fichier qui se situe à l'adresse ZoneFichier. Pour la première instruction aucun soucis.

Par contre, j'ai mis en commentaire cette indication 'Windows(Dir(Range("ZoneFichier"))).Activate car elle ne fonctionne plus... Avez-vous une idée de la raison...?

Merci encore !