Code Ouverture Classeur Excel VIA Userform
Bonjour,
J'ai créer un fichier excel nommé "Lanceur" ci joint qui ouvre automatiquement mon userform avec :
- 1 Bouton "QUITTER"
- j'aurais besoin du code pour fermer ce userform avec le classeur y référent
- Bouton " ouverture fichier tonton"
- j'aurais besoin du code pour ouvrir le fichier excel qui ce trouve dans le même répertoire que le fichier lanceur
sont nom est "TONTON"
Merci d'avance.
Bonjour le forum
Bonjour Marc
Règle de base : lorsque l'on met en ligne un fichier, celui-ci doit être anonymisé et surtout "propre" pour celui qui l'ouvre, surtout s'il s'agit d'un néophyte en vba.
Tu ouvres ton UserForm par le biais de WorkBoook_Open en faisant en sorte que seul ton USF soit apparent, EXCEL étant caché à l'ouverture et durant l’exécution de ton programme via "Application.Visible = false". Pense à remettre l'application à True à la fermeture de ton fichier....Merci
@+ Ericcool02
Re, sinon, dans le code de ton CommandButton, tu mets :
Private Sub CommandButton1_Click()
ChDir "C:\a\dossier\Tonton" <== A adapter
Workbooks.Open Filename:="C:\a\dossier\Tonton.xlsm" <== Chemin à adapter
Unload Me
End Sub
@+Ericcool02
Bonjour,
J'ai essayer de faire ceci et cela ne fonctionne pas :
Private Sub CommandButton3_Click()
LeRep As String
LeRep = ThisWorkbook.Path & "\PREPA_SALAIRE" & "\" & "Tonton" & ".xlsm"
ChDir LeRep
Workbooks.Open Filename:=LeRep
Unload Me
End SubPlease HELP
Mrci
Je me répond a moi même,
Private Sub CommandButton3_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
fileToOpen = ThisWorkbook.Path & "\" & "Tonton" & ".xlsm"
Workbooks.Open fileToOpen
myFile = ActiveWorkbook.Name
Unload Me
ThisWorkbook.Close
End Subet voila
Re le forum
Merci Marc de m'avoir ignoré.... Ton code fait exactement la même chose que ce que je t'avais proposé. ???
Re le forum
Merci Marc de m'avoir ignoré.... Ton code fait exactement la même chose que ce que je t'avais proposé. ???
Désoler, je ne t'ai pas ignorer, merci encore de votre aide