Vilain
XLDnaute Accro
Bonjour à tous,
Je cherche à ouvrir un fichier via une boite de dialogue. J'utilise pour le moment ce bout de code :
Dim a As Variant, b As Variant, Nom As String, Nom2 As String
Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , True)
Cela fonctionne bien mais la boite dialogue qui s'ouvre est toujours celle de mon C: alors que je voudrais que ce soit celle dans lequel mon fichier est enregistré. Je ne parviens pas à faire le changement nécessaire.
Quelqu'un a une idée ?
Merci d'avance
Je cherche à ouvrir un fichier via une boite de dialogue. J'utilise pour le moment ce bout de code :
Dim a As Variant, b As Variant, Nom As String, Nom2 As String
Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , True)
Cela fonctionne bien mais la boite dialogue qui s'ouvre est toujours celle de mon C: alors que je voudrais que ce soit celle dans lequel mon fichier est enregistré. Je ne parviens pas à faire le changement nécessaire.
Quelqu'un a une idée ?
Merci d'avance