XL 2019 Sélectionner un fichier pour mettre à jour une base de données

GG Delcroix · Dimanche à 14:42

Bonjour,
Je souhaiterais, à la place de Windows("Requête32").Activate (Requête32 est un fichier excel que je copie et colle dans mon fichier) pouvoir sélectionner un fichier, comme si je faisais Fichier -> Ouvrir
Car sinon cela m'oblige à ouvrir le fichier Requête32 au préalable. Cela ne serait pas gênant si c'était toujours le même fichier, mais dans ce cas, le fichier sera différent chaque semaine, avec un nom différent.
Je souhaiterais qu'une fois avoir sélectionner ce fichier, la macro se poursuive (sélectionner toutes les cellules, copier etc... le reste fonctionne comme je le souhaite)
Je vous remercie grandement pour les pistes que vous pourriez me faire parvenir.
GG

VB:

Sub creer_le_manifeste()

    Application.Run "MANIFESTEok.xlsm!reset_P___"
    Sheets("BDD_CLIENT").Select
    Application.WindowState = xlNormal
    Windows("Requête32.xls").Activate
    Cells.Select
    Selection.Copy
    Windows("MANIFESTEok.xlsm").Activate
    Sheets("BDD_CLIENT").Select
    Cells.Select
    ActiveSheet.Paste
    Range("A2:Bc500").Select
    Range("Bc500").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("BDD").Select
    Range("T_1[Colonne 2]").Select
    ActiveSheet.Paste
    Sheets("BDD").Select
    Range("T_1").Select
    Application.CutCopyMode = False
    Range("T_1").RemoveDuplicates Columns:=4, Header:=xlYes

sylvanu · Dimanche à 15:07

Bonjour GG Delcroix,
Essayez ainsi :

VB:

Sub ChoixFichier()
    Dim Fichier As Variant
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.xls*),*.xls*")
    If Fichier = False Then Exit Sub
    Workbooks.Open Filename:=Fichier
End Sub

Modifier "xls" si vous voulez un e autre extension parce que là il ne montre que les fichier XL.
Si vous voulez tous les fichiers présent alors mettez "*.*"

GG Delcroix · Dimanche à 15:14

Bonjour Sylvanu,
C'est parfait.
Merci beaucoup.
Bon week end.
GG

sylvanu · Dimanche à 15:30

Et si vous voulez ouvrir sur un dossier particulier pour éviter de chercher :

VB:

Sub ChoixFichier()
    Dim Fichier As Variant, Racine$
    Racine = "C:\Users\PC_PAPA\Desktop\XLD\" ' Modifier Racine suivant besoin
    ChDir Racine
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.xls*),*.xls*")
    If Fichier = False Then Exit Sub
    Workbooks.Open Filename:=Fichier
End Sub

XL 2019 Sélectionner un fichier pour mettre à jour une base de données

GG Delcroix

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

GG Delcroix

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires