Copier / coller uniquement les valeurs d'autres fichiers exl

Bonjour,

Je suis nouveau en VBA.

J'ai trouvé un code qui me permet de fusionner tous les fichiers excel d'un repertoire.

Néanmoins j'ai un soucis car il copie les formules et je souhaiterais copier uniquement les valeurs.

    Sub Regroupe()
      sousRépertoire = "Tech"
      [A2].CurrentRegion.Offset(1, 0).Clear
      Set maitre = ActiveWorkbook
     '.Cells.PasteSpecial Paste:=xlPasteValues
      Repertoire = ThisWorkbook.Path
      nf = Dir(Repertoire & "\" & sousRépertoire & "\*.xlsm")

      Do While nf <> ""
        Workbooks.Open Filename:=Repertoire & "\" & sousRépertoire & "\" & nf
        n = [A1].CurrentRegion.Rows.Count - 1

        [A1].CurrentRegion.Offset(1, 0).Copy _
        maitre.Sheets(1).[A65000].End(xlUp).Offset(1, 0)
        ActiveWorkbook.Close False
        nf = Dir
      Loop
    End Sub

Je sais que je dois ajouter .PasteSpecial Paste:=xlPasteValues pour ne coller que les valeurs mais je ne sais pas où le placer dans le code.

Pourriez vous m'aider?

Merci par avance

Bonsoir,

Si le temps passé à chercher des codes hasardeux pour le moins l'était à apprendre le langage VBA, ce serait nettement plus profitable...

Sub Regroupe()
    Dim maitre As Workbook, nf, chemin$, n&
    chemin = ThisWorkbook.Path & "\Tech\"
    Set maitre = ActiveWorkbook
    ActiveSheet.[A2].CurrentRegion.Offset(1, 0).Clear
    nf = Dir(chemin & "*.xlsm")
    With maitre.Sheets(1)
        Do While nf <> ""
            n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            Workbooks.Open chemin & nf
            [A1].CurrentRegion.Offset(1, 0).Copy
            .Cells(n, 1).PasteSpecial xlPasteValues
            ActiveWorkbook.Close False
            nf = Dir
        Loop
    End With
End Sub

Je n'ai fait qu'arranger un peu... (mais je ne dirais pas pour autant que tel qu'il est là ce code me satisfasse, même si ça doit fonctionner).

Cordialement.

Merci beaucoup pour votre réponse.

En fait j'ai essayé de réécrire le code car je ne comprenais pas celui-ci .

Rechercher des sujets similaires à "copier coller uniquement valeurs fichiers exl"