XL 2013 Copie de données d'un fichier excel pour les coller vers un autre fichier en VBA

Ananas94 · 26 Mars 2020

Bonjour,

Je souhaite récupérer des données issues d'un autre fichier Excel. Néanmoins, le nom du fichier source en question change régulièrement, de manière assez aléatoire (date qui varie). Le début du nom ne change jamais : il commence toujours par "np". J'ai donc mis un astérisque après pour signifier que le nom change mais rien n'y fait, je reçois toujours un message d'erreur ...
Lorsque je remplace l'astérisque par la date actuelle du fichier, mon code fonctionne. Le problème vient donc bien du nom du fichier.

Auriez-vous une petite idée pour m'aider s'il vous plaît ?

Voici mon code :

VB:

Sub Donnees_avancement()
'Lecture du fichier "np_date" pour la récupération des données :'

    Dim Chemin As String
    Dim Fichier As String
    Dim wb As Workbook
    
    Chemin = "\\Atlas.edf.fr\co\69gly-dpn-unie\GTR.005\11-Activites.011\08-Point\"
    Fichier = "np*.xlsx" [B]<-- L'erreur est ici ![/B]
    
    Application.DisplayAlerts = False 'si le fichier est déjà ouvert
    
    Set wb = Workbooks.Open(Chemin & Fichier)
    
    Sheets("infocoop").Range("H3:H60").Copy
    
    ThisWorkbook.Activate
    ThisWorkbook.Sheets("situ").Range("T4").PasteSpecial Paste:=xlPasteValues
    
    Application.CutCopyMode = False
    wb.Close False
    MsgBox "Données de l'avancement des tranches récupérées !"
    
End Sub

Lorsque j'exécute mon code, le message suivant s'affiche :

Débogage : (Le chemin est surligné en jaune, mais en fait c'est le nom du fichier qui pose un problème.

Merci beaucoup par avance !!

Anna

shinozak · 26 Mars 2020

Bonjour, essaie ce code pour trouver et ouvrir ton fichier

VB:

Sub Donnees_avancement()
'Lecture du fichier "np_date" pour la récupération des données :'

    Dim Chemin As String
    Dim Fichier As String
    Dim wb As Workbook
    
    directory = "\\Atlas.edf.fr\co\69gly-dpn-unie\GTR.005\11-Activites.011\08-Point\"
    file = Dir(directory & "*.xlsx")
    
Do While Len(file) > 0 'le nom de fichier n'est pas vide

    If Left(file, 2) = "np" Then
        Workbooks.OpenText Filename:=directory & file, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
        Set wb = ActiveWorkbook
    End If

file = Dir() 'passe au nom de fichier Excel suivant
Loop

Staple1600 · 26 Mars 2020

Bonjour le fil, Anna

•>Anna
Sujet traité récemment sur le forum
Et puisque"la hiérarchie me met la pression" *, vite, vite clique sur le lien ci-dessous

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

NB: * C'est toi qui l'a dit.
Moi j'ai dis autre chose (cf ton autre fil)

shinozak · 26 Mars 2020

Bonjour, essaie ce code pour trouver et ouvrir ton fichier

VB:

Sub Donnees_avancement()
'Lecture du fichier "np_date" pour la récupération des données :'

    Dim Chemin As String
    Dim Fichier As String
    Dim wb As Workbook
    
    directory = "\\Atlas.edf.fr\co\69gly-dpn-unie\GTR.005\11-Activites.011\08-Point\"
    file = Dir(directory & "*.xlsx")
    
Do While Len(file) > 0 'le nom de fichier n'est pas vide

    If Left(file, 2) = "np" Then
        Workbooks.OpenText Filename:=directory & file, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
        Set wb = ActiveWorkbook
    End If

file = Dir() 'passe au nom de fichier Excel suivant
Loop

Ananas94 · 27 Mars 2020

Merci beaucoup ça fonctionne!Merci beaucoup shinozak vous gérez !
Merci beaucoup à vous Staple également, je viens de voir votre mot sur l'autre fil, malheureusement je ne peux pas leur dire ça ahahah

Merci à tous! ce site est génial !

Excellente journée !
Anna

XL 2013 Copie de données d'un fichier excel pour les coller vers un autre fichier en VBA

Ananas94

XLDnaute Junior

shinozak

Staple1600

XLDnaute Barbatruc

Effectuez une recherche sur Excel Downloads...

shinozak

XLDnaute Occasionnel

Ananas94

XLDnaute Junior

Discussions similaires