Copier un fichier nom incomplet vers un autre

Bonjour tout le monde,

C'est de nouveau moi ...

Nouvelle question pour vous, j'ai actuellement un fichier avec tous mes codes VBA, il me sert de fichier "réception" pour d'autres fichiers ensuite il y a différentes formules dedans.

Mon problème actuel, c'est que je chercher à aller chercher des fichiers qui sont sur un lecteur réseau (déjà ça m'a l'air bien chiant niveau temps de chargement mais pas le choix), ensuite le nom des fichiers n'est jamais le même sur la fin, j'ai donc pensé à cette macro afin de pouvoir faire une ouverture (qui fonctionne), mais ensuite je suis totalement bloqué pour faire le copier/coller ...

Pouvez-vous m'aider s'il vous plait

Sub test()
Dim Chemin As String
Chemin = ThisWorkbook.Path & "\"
Workbooks.Open Filename:=Chemin & Dir(Chemin & "export*.csv"), Local:=True
    Sheets(1).Copy
        ThisWorkbook.Worksheets(2).Range("A1")

Je sais que c'est la partie qui commence à "Sheets(1).Copy" qui bloque mais 0 idée de comment faire fonctionner le truc ...

Merci d'avance à vous !

bonjour

essaye le menu Données/Obtenir "de fichier Excel" ou "de classeur"

ne nécessite pas de code

amitiés

bonjour

essaye le menu Données/Obtenir "de fichier Excel" ou "de classeur"

ne nécessite pas de code

amitiés

Hello,

Désolé je ne comprends pas bien ta réponse

En attendant, je pense avoir trouvé une solution avec :

Sub test()
Dim Chemin As String

Chemin = ThisWorkbook.Path & "\"
Workbooks.Open Filename:=Chemin & Dir(Chemin & "export*.csv"), Local:=True
ActiveWorkbook.Sheets(1).Copy ThisWorkbook.Worksheets(2)

Il y a création automatique de la feuille dans mon fichier de destination (qui contient la macro) donc ça règle pour le moment le problème je vais voir si avec l'arrivé d'autres fichiers je ne casse pas mes autres formules

Bonjour,

A tester et à adapter.

Cdlt.

Sub test()
Dim wb As Workbook, Chemin As String
    Set wb = ThisWorkbook
    Chemin = wb.Path & "\"
    Workbooks.Open Filename:=Chemin & Dir(Chemin & "export*.csv"), Local:=True
    With ActiveWorkbook
        .Sheets(1).Copy after:=wb.Worksheets(2)
        .Close False
    End With
End Sub

Bonjour,

A tester et à adapter.

Cdlt.

Sub test()
Dim wb As Workbook, Chemin As String
    Set wb = ThisWorkbook
    Chemin = wb.Path & "\"
    Workbooks.Open Filename:=Chemin & Dir(Chemin & "export*.csv"), Local:=True
    With ActiveWorkbook
        .Sheets(1).Copy after:=wb.Worksheets(2)
        .Close False
    End With
End Sub

Je ne sais que dire tellement ça répond parfaitement au besoin

Un grand merci à toi !

Petite question pour rouvrir un autre fichier qui utilise la même structure/chemin (seul le nom change), je dois remettre le "Set" ou totalement inutile ?

Merci encore

Rechercher des sujets similaires à "copier fichier nom incomplet"