Comment ouvrir un classeur automatiquement ?

[WDAndCo]

Bonsoir le Forum

Comment ouvrir automatiquement le classeur choisi (lorsqu'il en reste 1) a l'aide de l'UserForm ou un clic dans la ListView (Voir la feuille Choix)
Le nom du classeur a ouvrir est en colonne R, il est dans un dossier qui ce nomme Feuille MP.
Le classeur est joint.

D'avance merci.
Dominique

 

[WDAndCo]

Re : Comment ouvrir un classeur automatiquement ?

Bonsoir le Forum, non rien juste un up !

 

[néné06]

Re : Comment ouvrir un classeur automatiquement ?

bonsoir WDAndCo

la procédure pour ouvrir un classeur est:
Workbooks.Open Range ("R12").Value

"R12" est pris au Hasard.

A+

 

[WDAndCo]

Re : Comment ouvrir un classeur automatiquement ?

Bonsoir le Forum
Merci néné06
C'est surtout modifier les codes suivants. Ceux ci au départ devais afficher une feuille, mais ce classeur étant devenu trop volumineux il faut qu'il ouvre un des classeur !

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  Pge = Me.ListView1.ListItems(Item.Index).ListSubItems(17)
  Va_Page
End Sub

Sub Va_Page()
Dim nom As String 'déclare la variable nom
Dim noncomplet As String 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = Pge 'définit la variable nom (début du nom du fichier)
chem = ActiveWorkbook.Path 'définit la variable chem (chemin d'accès du classeur actuel, à adapter)
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
'.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
End If
End With


  'On Error Resume Next
  'Sheets(Pge).Visible = True
  'If Err.Number > 0 Then
    'MsgBox "Le Classeur " & Pge & " est inexistant !"
  'Else
    'Sheets(Pge).Select
    
     'Unload Me
    'Sheets("choix").Visible = False
  'End If
End Sub