Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 18/01/2012, 15h19   #1
Nouveau Membre du Club
 
Homme tof tim
Technicien maintenance
Inscription : septembre 2011
Messages : 101
Détails du profil
Informations personnelles :
Nom : Homme tof tim
Localisation : Belgique

Informations professionnelles :
Activité : Technicien maintenance
Secteur : Bâtiment Travaux Publics

Informations forums :
Inscription : septembre 2011
Messages : 101
Points : 39
Points : 39
Par défaut vba : ouvrir boite de dialogue dans dossier choisi ?

bonjour à tous,

je n'arrive pas en VBA à ouvrir une boite de dialogue dans un dossier que j'ai choisi...
çà m'ouvre toujours le dossier par defaut...pour choisir un fichier excel

je suis sous xl2007 et win7

il m'ouvre: \Bibliothèque\Documents\
moi j'aimerai qu'il m'ouvre x:\xls\

voici mon code
Code :
1
2
3
4
5
Sub OuvrirDossier()
 
Application.Dialogs(xlDialogOpen).Show ("X:\xls")
 
End Sub
Merci beaucoup pour votre aide...

Tim.
timtof2011 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/01/2012, 15h30   #2
Nouveau Membre du Club
 
Homme tof tim
Technicien maintenance
Inscription : septembre 2011
Messages : 101
Détails du profil
Informations personnelles :
Nom : Homme tof tim
Localisation : Belgique

Informations professionnelles :
Activité : Technicien maintenance
Secteur : Bâtiment Travaux Publics

Informations forums :
Inscription : septembre 2011
Messages : 101
Points : 39
Points : 39
c'est formidable...
ça fait deux fois que je pose une question alors que je cherche depuis plus d'une heure et que je rame...

Ici je viens de trouver pour mon problème...

j'utilisai une macro et je la démarrai par un bouton sur un usf alors que j'ai copier directement ma commande dans mon bouton et ça marche...
Code :
1
2
3
Private Sub CommandButton8_Click()
    Application.Dialogs(xlDialogOpen).Show ("X:\Devis\")
End Sub
bien à vous tous.
Tim.
timtof2011 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 06h44.


 
 
 
 
Partenaires

Hébergement Web