Discussion :

[marinef]

Bonjour,

A partir d'un fichier Excel, je voudrais lorsque je clique sur un bouton:

-que je puisse selectionner un fichier dans un dossier

- puis qu'automatiquement ça enregistre ce fichier sous un dossier "Temporaire" et sous le nom "DTTemporaire"

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Bouton43_QuandClic()
 
'Sélection d'un dossier
 
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    Dim vrtSelectedItem As Variant
    With fd
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                DirOpen = vrtSelectedItem
            Next vrtSelectedItem
        Else
            DirOpen = VbNulllString
        End If
    End With
    Set fd = Nothing
        Workbooks(ThisWorkbook.Name).Worksheets("Feuil1").Range("E5") = DirOpen
 
 
    ChDir "\\Fraix01fs01\Areva\Affaires\DT EN COURS\Temporaire"
        DirOpen.SaveAs Filename:= _
        "\\Fraix01fs01\Areva\Affaires\DT EN COURS\Temporaire\DTTemporaire.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
 
End Sub

Je peux sélectionner mon fichier, ça marque l'adresse dans ma cellule E5 mais ça n'enregistre pas sous mon dossier Temporaire!

Merci...

[Antoniom]

Hello,

Essaie ChDrive "C" avant le ChDir.
(C étant le disque où va le fichier, donc à adapter).

Je vois aussi qu'il y a deux backslash au début du chemin ??

Bref, ça donnerait un truc comme ça.

Code :

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

1
2
3
4
5
6
ChDrive "C"
ChDir "C:\\Fraix01fs01\Areva\Affaires\DT EN COURS\Temporaire"
        DirOpen.SaveAs Filename:= _
        "C:\\Fraix01fs01\Areva\Affaires\DT EN COURS\Temporaire\DTTemporaire.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

ou donc

Code :

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

1
2
3
4
5
6
ChDrive "C"
ChDir "C:\Fraix01fs01\Areva\Affaires\DT EN COURS\Temporaire"
        DirOpen.SaveAs Filename:= _
        "C:\Fraix01fs01\Areva\Affaires\DT EN COURS\Temporaire\DTTemporaire.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

Cdt, Antoniom.