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
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