Bonjour,
Entrant dans le monde vba, j'ai quelques soucis sur des requêtes d'automatisation...
J'ai généré un listing arborescence/ nom_de_fichier de fichiers de formats divers (txt, pdf, etc...) présents dans des arborescences différentes.
Ces informations sont renseignées dans une feuille excel (ici Feuil2).
J'essaie de générer une macro vba procédant à l'automatisation du copier coller de ces fichiers vers un dossier cible via FileCopy, en bouclant sur la lecture de chaque ligne de ma feuille et copier coller vers une destination déjà existante, renseignée via box de dialogue.
J'ai malheureusement un retour d'erreur : Erreur d'exécution '52' : Nom ou numéro de fichier incorrect.
Mes recherches n'aboutissent pas....
Auriez vous une piste à m'indiquer pour résoudre mon problème s'il vous plait ?
Mille merci par avance.
Ci-dessous Macro et exemple de données présentes sur la feuil2
1. Macro :
Sub Transfert()
Dim objShell As Object, objFolder As Object, oFolderItem As Object, Fso As Object
Dim Source As String, Inter1 As String, Inter2 As String, Destination As String
Dim counter As Integer
counter = 1
'localiser arbrorescence de sauvegarde
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire de destination", &H1&)
Set oFolderItem = objFolder.Items.Item
'Sauvegarde dans un dossier
Inter1 = oFolderItem.Path
Destination = """" & Inter1 & """"
'feuille = sheet
'classeur = workbook
'classeur actif = activeworkbook
For Each s In ActiveWorkbook.Sheets
ActiveWorkbook.Sheets("Feuil2").Cells(counter, 1) = Inter2 'Boucle et chargement de chaque chemin accès
Source = """" & Inter2 & """"
counter = counter + 1
'Copie Source vers Destination
FileCopy Source, Destination
Next s
End Sub
2. Feuil2 :
D:\Documents\TOTO\Travail\BDD\ANALYSE.xlsx
D:\Documents\TOTO\Travail\BDD\ANALYSE_20220221.xlsx
D:\Documents\TOTO\Travail\BDD\compare.py
D:\Documents\TOTO\Travail\BDD\DIR-LIST1.1.xlsm
D:\Documents\TOTO\Travail\BDD\EXTRACT.txt
D:\Documents\TOTO\Travail\BDD\ANALYSE.docx
Entrant dans le monde vba, j'ai quelques soucis sur des requêtes d'automatisation...
J'ai généré un listing arborescence/ nom_de_fichier de fichiers de formats divers (txt, pdf, etc...) présents dans des arborescences différentes.
Ces informations sont renseignées dans une feuille excel (ici Feuil2).
J'essaie de générer une macro vba procédant à l'automatisation du copier coller de ces fichiers vers un dossier cible via FileCopy, en bouclant sur la lecture de chaque ligne de ma feuille et copier coller vers une destination déjà existante, renseignée via box de dialogue.
J'ai malheureusement un retour d'erreur : Erreur d'exécution '52' : Nom ou numéro de fichier incorrect.
Mes recherches n'aboutissent pas....
Auriez vous une piste à m'indiquer pour résoudre mon problème s'il vous plait ?
Mille merci par avance.
Ci-dessous Macro et exemple de données présentes sur la feuil2
1. Macro :
Sub Transfert()
Dim objShell As Object, objFolder As Object, oFolderItem As Object, Fso As Object
Dim Source As String, Inter1 As String, Inter2 As String, Destination As String
Dim counter As Integer
counter = 1
'localiser arbrorescence de sauvegarde
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire de destination", &H1&)
Set oFolderItem = objFolder.Items.Item
'Sauvegarde dans un dossier
Inter1 = oFolderItem.Path
Destination = """" & Inter1 & """"
'feuille = sheet
'classeur = workbook
'classeur actif = activeworkbook
For Each s In ActiveWorkbook.Sheets
ActiveWorkbook.Sheets("Feuil2").Cells(counter, 1) = Inter2 'Boucle et chargement de chaque chemin accès
Source = """" & Inter2 & """"
counter = counter + 1
'Copie Source vers Destination
FileCopy Source, Destination
Next s
End Sub
2. Feuil2 :
D:\Documents\TOTO\Travail\BDD\ANALYSE.xlsx
D:\Documents\TOTO\Travail\BDD\ANALYSE_20220221.xlsx
D:\Documents\TOTO\Travail\BDD\compare.py
D:\Documents\TOTO\Travail\BDD\DIR-LIST1.1.xlsm
D:\Documents\TOTO\Travail\BDD\EXTRACT.txt
D:\Documents\TOTO\Travail\BDD\ANALYSE.docx