[vba] ouvrir un classeur Résolu

Question

Bonjour,
Encore une fois j'ai besoin de votre aide,cette fois ci je suis confronté à un problème d'ouverture de classeur,je souhaiterai ouvrir un classeur avec "Getopenfilename" par exemple ,mais je souhaiterai indiquer le répertoire  ou se trouvent les fichiers ,j'utilise déja une macro d'ouverture mais elle ne semble pas adaptée à mon besoin,avec" filesearch" on peut indiquer "lookin",mais je n'arrive pas à trouver d'équivalent avec "getopenfile".
Merci d'avance

Utilisateur anonyme · Accepted Answer

Bonjour,

Autre suggestion :

Sub OuvrirClasseur()

    Dim strFichier As String
    
    ChDrive ("C:")
    ChDir "\Dossier\Excel\"
    
    strFichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
    If (strFichier <> "") Then
        If (strFichier <> "Faux") Then
            MsgBox strFichier
        End If
    End If

End Sub
'

Lupin

dandypunk · Answer

Essayes
Workbooks.open Filename:="NomDuClasseur"

fjefflu · Answer

Le problème ,je me suis mal exprimé ,c'est qu'il s'agit d'ouvrir la boite de dialogue "ouvrir" déja "positionnée" sur le bon repertoire et que la personne puisse choisir un des classeurs présent dans ce repertoire.

dandypunk · Answer

Désolé pas d'idée

le père · Answer

Bonjour

Application.Dialogs(xlDialogOpen).Show repertoire$

Zoltar · Answer

Bonjour,

J'ai eu le même problème et utilisé la fonction suivante :

Application.Dialogs(xlDialogOpen).Show ("C:\Repertoire\")

Pour info, dans mon cas, j'ai ajouté une attente de réponse qui permet de sortir de la procédure si l'utilisateur décide d'annuler la boite de dialogue "ouvrir"...

Ca donne (après avoir déclaré Reponse en byte) :

Reponse = Application.Dialogs(xlDialogOpen).Show("C:\Repertoire\sous-repertoire\...\")
        If Reponse = 0 Then
            Exit Sub
        End If

[vba] ouvrir un classeur

6 réponses

Discussions similaires

Newsletters