Discussion :

[vinystic]

Bonjour,
J'ai crée une application excel avec des userform.
J'aimerais pour cliquez sur un bouton pour ouvrir un autre fichier excel (jusque la pas de pb pour moi) et pouvoir acceder à ce fichier. Or quand je clique sur mon bouton, le fichier s'ouvre en arrière plan, mais je ne peux pas le voir tant que mes userform sont ouverts.

Merci pour votre aide.

[allergique]

Bonjour,

Il faut que tu ouvres ton fichier dans une nouvelle application, au lieu de le faire dans le même classeur.

Essaye si ce code te convient:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
Dim newfich As Excel.Application
Set newfich = New Excel.Application
 
newfich.Visible = True
newfich.Workbooks.Open ("c:\01.xls")
 
End Sub

[vinystic]

Merci,
Ca fonctionne bien, le pb est que je contrôle plus cette nouvelle application avec la macro de ma première application.

[allergique]

Tu peux déclarer ton fichier d'origine comme workbook (myexcel dans l'exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
 
Dim myexcel  As Workbook
Set myexcel = ThisWorkbook
 
Dim newfich As Excel.Application
Set newfich = New Excel.Application
 
newfich.Visible = True
newfich.Workbooks.Open ("c:\01.xls")
 
'exemple de copie de cellule dans myexcel
myexcel.Activate
Range("A5") = newfich.Range("A1")
 
End Sub

[Didier Gonard]

Bonjour,

Vois du côté des méthodes des userform dans l'aide vba au niveau de : Hide et de ShowModal,

vois surtout ici, qui est un tuto qui te permettra de comprendre et d'avancer plus vite ensuite

http://silkyroad.developpez.com/VBA/UserForm/

cordialement,

Didier