Discussion :

[nunnu27]

Bonjour le forum,

J'ai besoin une nouvelle fois de votre aide...

J'ai ce code (aimablement modifié par Mercatog )

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Next_Control()
 
'-----------affichage boite de dialog pour recherche de fichier pour ouverture nouveaux classeur
 
Dim strFiles As Variant
Dim blnOuvert As Boolean
Dim wbk As Workbook
 
' Affiche la boîte de dialogue Ouvrir
strFiles = Application.GetOpenFilename _
           (filefilter:="Fichiers Excel (*.xlsm),*.xlsm,(*.xls),*.xls", _
            Title:="Sélectionnez les fichiers à ouvrir", _
            MultiSelect:=False)
' Teste si un fichiert a été sélectionné
If strFiles <> False Then
    For Each wbk In Workbooks
        If wbk.FullName = strFiles Then
            blnOuvert = True
            Exit For
        End If
 
    Next wbk
    If blnOuvert Then
        MsgBox "Fichier déjà ouvert"
    Else
        Workbooks.Open Filename:=strFiles
 
    End If
Else
    MsgBox "Aucun fichier sélectionné"
End If
 
End Sub

Le soucis est que cette macro est appelé via un bouton sur un classeur. Donc ouverture du nouveau fichier "par dessus" l'ancien(qui contient la macro").L'ancien passe donc au second plan.
Apres plusieurs essais (sans resultat pour changer) j'ai besoin de votre aide :
Quel est la ligne de code stipulant au nouveau fichier de se mettre en arriere plan (ceci me permetra de fermer l'ancien classeur).

Merci encore une fois pour votre aide.

Cordialement

[nunnu27]

Re,

Au temps pour moi, je viens de decouvrir la FAQ Excel (veritable bible...).

L'affichage multiple peut etre une solution temporaire le temps que je trouve comment fermer l'ancien classeur.

Cordialement

[asengs]

Comment as-tu fait pour résoudre ton problème

merci