Ouverture Fichier

Bonjour a tous et a toutes,

j'ai dans un classeur Excel, en colonne F, des nom de fichier que j'aimerais ouvrir les uns après les autre afin de prendre dans ce même classeurs un valeur en colonne H et la coller en A26 et D3 de chaque classeur de la liste et refermer chaque classeur après opération. Le fichier joint 'renamefiles.xlsm' est la liste avec mes fichier a ouvrir et le fichier 'FicheAppui_CM 00104-17185.xlsx' et l'un des fichier dans lequel il faut modifier la cellule A26 et D3.

Pour la colonne des noms de fichier elle n'est jamais de la même longueur (le nombre de fichier a modifier et aléatoire

Merci pour tous vos éclairages possible.

Salut Micka,

À tester (toujours tester !) sur une copie de quelques uns de tes fichiers à convertir.
Un double-clic sur [F1] démarre la macro.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim sWBk As Workbook, tTab, iRow%
'
If Target = "C O N V E R S I O N" Then
    Cancel = True
    iRow = Range("F" & Rows.Count).End(xlUp).Row
    tTab = Range("H1:H" & iRow).Value
    On Error Resume Next
    For x = 2 To iRow
        Set sWBk = Workbooks.Open(Range("F" & x).Value)
        If Not sWBk Is Nothing Then _
            Union(sWBk.Sheets(1).[A26], sWBk.Sheets(1).[D3]).Value = tTab(x, 1): _
            sWBk.Close savechanges:=True
    Next
    On Error GoTo 0
End If
'
End Sub

A+

Salut Curulis57

Parfait, ni plus, ni moins, un grand merci a toi pour le travail réalisé.

Bonne journée.