Accès fichier fermer

Bonjour à tous

Il y a quelques temps j'étais tombé sur code sur internet correspondant à mes souhaits, mais impossible de remettre les mains dessus donc je reviens vers vous pour de l'aide, svp.

Sur mon projet actuel, j'ai un Fichier A qui va servir de main courante et donc doit rester ouvert en permanence (au moins la journée). Sur ce même fichier A, il y a 6 CheckBox, dont 3 ou je souhaites à l'aide d'une macro, ouvrir un fichier B (sans qu'il soit à parant à l'écran si possible) fermer dans un dossier ainsi qu'un UserForm (qui lui sera a parant) précis du même fichier B.

Les CheckBox sont aux nombre d 3 que l'on coche manuellement et les 3 autres (avec macro) ouvre l'UserForm et seront cochés à la validation de l'UserForm.

j'ai tenté un code mais l'userform s'ouvre pas.

Voici mon code, comment puis-je l'améliorer ?

Sub OuvrirFichier() 'ESSAI ouverture userform seul
Dim fichierAutre As String
Dim wbk As Workbook

fichierAutre = "C:\Users\FRANCE\Desktop\Administratif SSLIA\Dossier pour essais.xlsm"
Set wbk = Workbooks.Open(fichierAutre)

Application.WindowState = xlMinimized
Application.ScreenUpdating = False
'UserForm1.Show
End Sub

Merci d'avance à vous

Cdlt

Bonsoir,

Tu appelles la macro du classeur concerné qui ouvre l'Userform :

Application.Run "NomClasseur!NomProc"

Bonne soirée.

Bonjour MFerrand

Merci.

Le pire c'est que j'avais essayé ce code.

Je me suit rendu compte que mon titre avais des espace et donc qu'il fallait mettre des guillemets simple " 'titre du fichier' " à chaque extrémité du titre. Maintenant ça marche pour l'ouverture du UserForm.

Suite à ce complément de code, maintenant je n'arrive plus compléter le fichier B avec l'UF malgré que le fichier s'ouvre et mis en xlMinimized !!!

Mon code

Sub OuvrirFichier() 'ESSAI ouverture userform seul
  Dim fichierAutre As String
  Dim wbk As Workbook

fichierAutre = "C:\Users\FRANCE\Desktop\Administratif SSLIA\Suivi km.xlsm"
  Set wbk = Workbooks.Open(fichierAutre)
    Application.WindowState = xlMinimized
    Application.ScreenUpdating = False
    Application.Run "'Suivi km.xlsm'!Open_UF_KmMC"
End Sub

Si je retire xlMinimized, le fichier B s'affiche à l'écran et les renseignements à l'aide de l'UF fonctionne bien .

J'imagine un soucis d'activation peu être ??

Mon objectif est d'avoir le fichier A qui reste à l'écran, le fichier B en xlMinimazed (ou autre) puis l'userform du fichier B à l'écran par dessus le fichier A afin de renseigner le fichier B. (Il y a beaucoup de fichier A et fichier B, ).

Je poursuit mes recherches tout de même.

Cdlt

Bonjour,

Curieux !

A la lecture c'est le : Application.ScreenUpdating = False qui me paraît contradictoire.

Cordialement.

Re

A oui !!

il faudrait tu pense le retirer ou le remplacer par autre chose ?

Cdlt

Re

Je ne trouve pas la solution jusqu'à présent, je poursuit ma recherche.

Pour voir ce que cela fais je joint une image en exemple.

macro affichage uf

Avec quel code tu obtiens cette image ?

Bonsoir,

en masquant les fenêtre., du genre :

Sub OuvrirFichier() 'ESSAI ouverture userform seul
 Dim fichierAutre As String
  Dim wbk As Workbook
    Application.ScreenUpdating = False

fichierAutre = "C:\Users\FRANCE\Desktop\Administratif SSLIA\Suivi km.xlsm"
   Set wbk = Workbooks.Open(fichierAutre)
   wbK.windows(1).visible = false
    Application.ScreenUpdating = true

    Application.Run "'Suivi km.xlsm'!Open_UF_KmMC"
End Sub

Bonsoir MFerrand et pierre.jy

MFerrand

J'obtiens cette image avec ce code :

Sub OuvrirFichier() 'ESSAI ouverture userform seul
  Dim fichierAutre As String
  Dim wbk As Workbook
 Application.ScreenUpdating = False
 fichierAutre = "C:\Users\FRANCE\Desktop\Administratif SSLIA\Suivi km.xlsm"
 Set wbk = Workbooks.Open(fichierAutre)
  Application.ScreenUpdating = True
  Application.WindowState = xlMinimized
  Application.Run "'Suivi km.xlsm'!Open_UF_KmMC"
End Sub

j'ai essayé de changer de place Application.ScreenUpdating = True dans le code mais rien n'y fais. Comprend plus rien, moi !!

pierre.jy

Merci de ta contribution, mais désolé ta proposition bug sur l'ouverture de l'UF

Cdlt à vous

Et si tu minimisais après lancement du Userform ?

je l'ai tenté également, sans succès !!

Je joint 2 fichiers que j'ai fais rapidement représentant mes fichiers avec un minimum d'infos dessus. pour se rendre compte.

Fichier A : Test main courant

Fichier B : Test suivi km

47test-suivi-km.xlsm (53.55 Ko)

Est ce que l'histoire d'activation des macros feraient pas parties du soucis ?

pour moi je pense pas car quand le fichier s'affiche à l'écran cela fonctionne bien, c'est juste une idée.

Rechercher des sujets similaires à "acces fichier fermer"