Discussion :

[Monfy29]

Bonjour à tous,

Je viens vers vous car je suis confronté à la problématique suivante : j'aimerais, dans une macro, effectuer les opérations ci-dessous :

- ouverture d'un explorateur afin de choisir le répertoire d'archivage ;
- récupération du chemin d'archivage ;
- archivage du fichier.

Pour archiver un classeur, j'utiliserais volontiers SaveCopyAs, mais cette fonction demande un chemin comme argument... Comme celui-ci peut varier, je voudrais savoir si il est possible d'ouvrir automatiquement un explorateur grâce auquel l'utilisateur pourrait choisir le chemin et le nom du fichier archivé.

Merci pour vos idées.

PS : et oui pardon, je suis sur Excel 2003.
PS n°2 : en fait, basiquement ce que je cherche à faire, c'est un "enregistrer sous", mais sans que le classeur initial soit modifié : un "enregistrer sous" qui ferait une copie du fichier, en somme.

[aalex_38]

Un exemple pour récupérer un chemin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
     With Dossier: .AllowMultiSelect = False
               .InitialFileName = InitRep
               .Title = "Choix du dossier" ' & libdos
                If .Show = -1 Then: NomDossier = .SelectedItems(1) & "\": BSelect = True:
      End With
 
        If BSelect Then
            Chemin = NomDossier
        End If