Discussion :

[viper80400]

bonjour a tous

je suis pas un grand expert du Vba mais voila sur le fichier j ai fait plusieurs macro en vba qui donne un résultat des conditions souhaité

après quelqu'un plus expert arriverai a faire cela en un click

donc si une personne ou des personne peut me résoudre cela je serai ravis est comprendre aussi les possibilité en vba

un bouton pour choisir le répertoire : de sources a sélectionné au lieux de le rentré dans la Vba a chaque fois

es que c'est possible de compilé les divers code que j ai fait pour que sa marche sur un bouton mise en condition

l'autre bouton pour l'envoie et avoir le retour d information de la copy effectuer en colonne F
j ai testé ce code la et pas moyen
lorsque quand j avais fait les teste rentré la source en manuel sa marché et la pas moyen

après si quelqu'un et plus inventif a simplifier la chose je suis preneur

merci d avance a ceux qui ce pencherons sur mon sujet

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
29
30
31
32
33
34
35
 
Sub CopierFichier()
 
    Dim fso As Object
    Dim Source As String
    Dim Destination As String
    Dim lastRow As Long
    Dim i As Long
 
    ' Find the last row with data in column A
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    ' Loop through each row starting from the second row (assumed headers in row 1)
    For i = 2 To lastRow
        ' Construct the full path of the source file
        Source = Range("B" & i).value & Range("A" & i).value
        ' Get the destination folder path
        Destination = Range("C" & i).value
 
        ' Check if the necessary data is available
        If Range("A" & i).value <> "" And Source <> "" And Destination <> "" Then
            ' Create a File System Object
            Set fso = VBA.CreateObject("Scripting.FileSystemObject")
 
            ' Check if the destination folder exists, create it if not
            If Not fso.FolderExists(Left(Destination, Len(Destination) - 1)) Then
                fso.CreateFolder Destination
                Destination = Destination & "\"
            End If
 
            ' Copy the file from source to destination
            Call fso.CopyFile(Source, Destination)
        End If
    Next i
 
End Sub

[Invité]

un bouton pour choisir le répertoire : de sources a sélectionné au lieux de le rentré dans la Vba a chaque fois

Votre demande n'est pas très clair tu veux copier juste les fichiers au niveau de ce dossier ou également ceux dans les sous-dossiers .. et fichiers seront enregistrés avec leurs mêmes noms ?

Pour sélectionner un dossier

Code :

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

1
2
3
4
5
6
7
8
 Dim Dlg As FileDialog
 
 Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
 Dlg.AllowMultiSelect = False
 If Dlg.Show = -1 Then
     MsgBox Dlg.SelectedItems(1)
 
 End If