Probleme ouverture fichier

[alex973]

Bonjour,
J'ai une macro lancée par une USF qui ouvre un fichier client
J'aimerais que ce fichier client reste ouvert.
Mais la macro charge le fichier, fais les copies demandées dans la feuille active et se referme
Je n'arrive pas à le fichier client ouvert
Quand je clique sur une autre macro du logiciel qui permet également d'ouvrir le fichier client (meme macro utiliser dans les 2 cas) , là le fichier reste ouvert....
Bug BuG
ci dessous la copie de la macro:
Sub Repertoire_Client()
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename(fileFilter:="Excel (*.xlsm), *.xlsm", Title:="CHOISIR LISTE CLIENT")
If fichier = False Then Exit Sub
Workbooks.Open fichier
SaveSetting "OPALIS", "Config", "FichierClient", ActiveWorkbook.Name
ActiveWorkbook.Activate
Application.DisplayAlerts = False
Worksheets("DATA").Range("A6:X1000").Copy Workbooks("OPALIS.xlsm").Worksheets("DATA").Range("A6")
Workbooks("OPALIS.xlsm").Activate
Sheets("DATA").Visible = False
Sheets("MENU").Activate
Unload REPCLIENT
End Sub

Qui peut m'aider à résoudre ce probleme
Amicalement
Alexis

 

[Paritec]

Re : Probleme ouverture fichier

Bonjour Alexis le forum
oui le fichier est bien ouvert mais ta feuille n'est pas visible, enfin si j'ai compris la demande
tu retires

Sheets("DATA").Visible = False

et tu refais le test et tu me dis
a+
Papou

 

[Aimo Rauidos dit AieAie]

Re : Probleme ouverture fichier

ou alors tu mets ta feuille à True, ca aussi devrait marcher. Cordialement.



"la constipacion no es tu amigo"

 

[Paritec]

Re : Probleme ouverture fichier

Re aimos le forum
oui bien sur à 1 c’est pareil
a+
Papou