Copier des files contenant un mot-key d'un sous-dossier vers un nouveau dossier contenant le même mot-key

J'ai donc travaillé sur un code pendant un certain time, mais je suis coincé sur quelque chose. Fondamentalement, mon code appelle "GetFolder" qui prend le directory que je veux et met cette string dans 1,1, puis appelle "comstackDSoutputsPrompt" qui invite l'user à entrer jusqu'à 9 numéros (pourrait être n'importe quel nombre mais pour l'instant je dirai 100 , 450, 900) et les colle dans la colonne 1, colonne i, à partir de la colonne 2.

^ Tout va bien. J'utilise ensuite DSoutputsComstackr pour prendre ces inputs user et créer des dossiers correspondants dans le même directory que Cells (1,1). Bien, cela fonctionne aussi.

Maintenant, je souhaite find des files excel, contenant ces "mots-keys" / "keynumbers" entrés par l'user, si vous le souhaitez, dans les sous-dossiers de mon directory Cells (1,1), et copyz-les dans les dossiers correspondants nouvellement créés contenant le même mot-key "/"numéro de key".

J'ai vu la search de files dans VBA mais cela ne fonctionnait pas vraiment pour moi, car je ne pouvais pas get le file effectivement copié.

• 1004 Pastespecial of range failed
• Est-il possible d'accélérer une requête Excel dans PowerShell?
• Obtenir ExecuteExcel4Macro pour reconnaître les cellules vides
• Mettre à jour la valeur de colonne Excel à partir de C # en utilisant OLEDB
• Est-il possible d'avoir Excel simplifier une fonction avec une variable?

Toute aide serait grandement appréciée, veuillez vous référer au code ci-dessous!

Merci pour votre time!

Sub DSoutputsComstackr() Dim sPath As Ssortingng Dim sFil As Ssortingng Dim strName As Ssortingng Call GetFolder If Cells(1, 1) = 0 Then Exit Sub End If Call comstackDSoutputsPrompt If Cells(1, 2) = 0 Then Exit Sub End If Dim j As Integer Dim i As Integer Dim ResultsFile Set FSO = CreateObject("scripting.filesystemobject") For i = 2 To 9 If (Cells(1, i) <> Empty) Then MkDir (Cells(1, 1) & "ComstackdDSOutputs" & Cells(1, i)) sPath = Cells(1, 1) sFil = Dir(sPath & "*" & Cells(1, i) & "*.xl*") Do While sFil <> "" strName = sPath & sFil sFil = Dir 'So I guess here is where I would copy the file and paste it to the newly created folder j = j + 1 Loop End If Next i End Sub 

Edit: J'ai aussi besoin du nom de file exact dans le nouveau dossier. J'ai remplacé ceci:

 Do While sFil <> "" strName = sPath & sFil sFil = Dir j = j + 1 Loop 

Avec ça:

 SourceFile = Cells(1, 1) & "*" & Cells(1, i) & "*.xl*" Filename = Replace(SourceFile, Cells(1, 1), "") DestinationFile = Cells(1, 1) & "ComstackdDSOutputs" & Cells(1, i) & "\" & Filename FileCopy(SourceFile, DestinationFile) 

Je l'ai couru 2 fois et j'ai eu 2 erreurs différentes, l'un était un mauvais nom de file, l'autre était l'erreur d'access au path d'access / file.

Quelqu'un peut-il me dire où je me trompe et / ou me dire dans la bonne direction?

Merci encore

• Excel, Créez une gamme nommée à partir du contenu des cellules Formules de cellule Usign
• Code VBA pour copyr datatables de la table pivot et remplir un champ
• VBA: Macro pour copyr des cellules qui sont conditionnées par un nouvel onglet
• Comment puis-je créer une table dans Excel en fonction de 2 valeurs dans un autre tableau
• L'URL de l'object de travail de VSTS à EXCEL (Intégration Office TFS)