Comment ouvrir un fichier à partir d'un userform et le modifier avec l'userform

Question

J'ai un userform avec des cases à cocher, des champs de texte et les choses habituelles, y compris un bouton que j'aimerais utiliser pour ouvrir une feuille de calcul Excel. C'est assez facile à faire:

Private Sub CMB2_Click() 
    Workbooks.Open Filename:="G:\Formular.xlsm" 
End Sub 

En faisant cela, le fichier ne peut pas être travaillé; en d'autres termes, il n'est pas actif. Le fichier est actif et, tant que le formulaire n'est pas fermé ou annulé, le fichier est verrouillé. Je l'appelle verrouillé pour un manque d'une meilleure description.

Si je rends la forme modale, tous les champs du formulaire perdent leur fonction, à l'exception des boutons, mais au moins je peux travailler dans la feuille de calcul ouverte.

UserForm1.Show vbModeless 

Comment puis-je obtenir les deux? Je veux travailler dans la feuille de calcul ouverte et continuer sur le formulaire une fois terminé.

Answer 1

vous devez ouvrir d'autres fichiers dans la nouvelle instance d'Excel. le code suivant le fera pour vous

Dim xlApp as Excel.Application 
set xlApp = CreateObject("Excel.Application") 
xlApp.Visible = True 
xlApp.Workbooks.Open FileName:="G:\Formular.xlsm"