Bonjour à tous,
J'ai un petit soucis avec un de mes codes dans mon Userform.
J'ai un bouton qui me permet d'ouvrir un fichier excel via un lien.
La boite de dialogue pour ouvrir le fichier fonctionne et va très bien sur le lien demandé. Mais au moment de sélectionner le fichier excel désiré et de faire "ouvrir" cela ne fonctionne pas.
Il faudrait que lorsqu'on clique sur le bouton ouvrir de la boite de dialogue l'userform se ferme et que cela ouvre juste le fichier sélectionné.
Mais je pense avoir trouvé le soucis. Dans mon module, j'ai choisi de cacher mon fichier excel (ma base de donnée d'où est tiré mon userform), qui était en fond. Je ne veux pas qu'elle apparaisse. Mais cela cache aussi mon fichier excel ouvert via mon bouton.
Le code de mon bouton pour ouvrir le fichier excel demandé
Quelqu'un a t-il la solution me permettant de cacher ma base de donnée et de pouvoir tout de même ouvrir un fichier excel via mon bouton ?
Merci d'avance
J'ai un petit soucis avec un de mes codes dans mon Userform.
J'ai un bouton qui me permet d'ouvrir un fichier excel via un lien.
La boite de dialogue pour ouvrir le fichier fonctionne et va très bien sur le lien demandé. Mais au moment de sélectionner le fichier excel désiré et de faire "ouvrir" cela ne fonctionne pas.
Il faudrait que lorsqu'on clique sur le bouton ouvrir de la boite de dialogue l'userform se ferme et que cela ouvre juste le fichier sélectionné.
Mais je pense avoir trouvé le soucis. Dans mon module, j'ai choisi de cacher mon fichier excel (ma base de donnée d'où est tiré mon userform), qui était en fond. Je ne veux pas qu'elle apparaisse. Mais cela cache aussi mon fichier excel ouvert via mon bouton.
Code:
Private Sub Workbook_Open()
Application.Visible = False
Load UserForm1
UserForm1.Show
ActiveWorkbook.Close False
End Sub
Le code de mon bouton pour ouvrir le fichier excel demandé
Code:
Private Sub CommandButton3_Click()
Dim Fichier As String
Fichier = "C\Lien du document" & ComboBox1.Value
If Dir(Fichier, vbDirectory) <> "" Then
Application.Dialogs(xlDialogOpen).Show Fichier
Else
MsgBox "Fichier introuvable"
End If
Quelqu'un a t-il la solution me permettant de cacher ma base de donnée et de pouvoir tout de même ouvrir un fichier excel via mon bouton ?
Merci d'avance