Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

[vba] ouvrir un classeur

Dernière réponse le 31 jan 2008 à 19:25:02 fjefflu, le 26 jan 2008 à 13:06:34

Signaler ce message aux modérateurs

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

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « [vba] ouvrir un classeur » dans :

[VBA - Ouvrir un classeur en masqué (Résolu) Voir

Excel VBA ouvrir fichier / partie gauche nom Voir

Vba ouvrir un classeur (Résolu) Voir

Macro vba [ouvrir un fichier] (Résolu) Voir

Démarrage Macro VBA 'ouverture de Power Point Voir

[macro VBA] enregistrer classeur nom cellule (Résolu) Voir

Ouverture d'un fichier VoirOuverture d'un fichier existant crée avec le même logiciel Il existe fondamentalement deux méthodes pour ouvrir un fichier sous Windows : Choisissez dans le menu du logiciel concerné Fichier > Ouvrir et naviguez jusqu’au fichier concerné dans la...

Posez votre question Répondre

dandypunk, le 26 jan 2008 à 14:11:36

Essayes
Workbooks.open Filename:="NomDuClasseur"

Répondre à dandypunk

fjefflu, le 26 jan 2008 à 14:36:31

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.

Répondre à fjefflu

dandypunk, le 26 jan 2008 à 14:45:03

Désolé pas d'idée

Répondre à dandypunk

le père, le 26 jan 2008 à 14:51:10

Bonjour

Application.Dialogs(xlDialogOpen).Show repertoire$

Répondre à le père

Zoltar, le 31 jan 2008 à 18:01:47

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

Répondre à Zoltar

Lupin.A, le 31 jan 2008 à 19:25:02

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

Répondre à Lupin.A

Posez votre question Répondre