Besoin modification de code

[apdf1]

Bonjour,

J'ai récupéré se code qui me vas très, bien mais j'aimerais lui apporté une petite modification.
Quand je sélectionne un dossier il s'ouvre et se met a chaque fois derrière ma feuille active.
Peut on remédier a ce problème et faire en sorte qu'il se trouve devant ma page active?

Ci joint mon code.

Private Sub CommandButton6_Click()
Dim a As Variant, Nom As String
Application.ScreenUpdating = False
Nom = ActiveWorkbook.Name
ChDrive "E:"       ' Choix du lecteur
ChDir "E:\Apdf\factures"     'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xlsm), *.xlsm", _
    , "Sélection de vos fichiers excel", , True) 'Choix du de l'extention
Select Case TypeName(a)
    Case Is = "Boolean"
        Exit Sub
    Case Else
  
        For B = LBound(a) To UBound(a)
            Workbooks.Open a(B)
        Next
 End Select
 Application.ScreenUpdating = True
Workbooks(Nom).Activate

End Sub

Si quelqu'un peut m'aider je le remercie d'avance.

Bonne journée

Max

 

[pierrejean]

Re : Besoin modification de code

Bonjour apdf1

A priori il suffit de mettre en commentaire la ligne

Workbooks(Nom).Activate

 

[apdf1]

Re : Besoin modification de code

Bonjour Pierre Jean,

Le code que vous me donnée il si trouve à l'avant dernière ligne
A moins qu'il faut la déplacer ?

@+
Max

 

[pierrejean]

Re : Besoin modification de code

Re
Mettre en commentaire signifie mettre ' devant la ligne (la ligne passe en vert et n'est plus interpretée par Excel)

 

[apdf1]

Re : Besoin modification de code

Re,

Merci Pierre Jean mais j'ai essayer sa ne marche pas !

@+