sangarmatha
XLDnaute Junior
Bonjour,
Plusieurs personnes ont souvent besoin de rapatrier des fichiers pdf (jusqu'à 100 parmi 200000 fichiers) d'un serveur distant type \\99.12.66.77\fichiers
Pour simplifier, la macro ci-dessous qui recopie localement les fichiers souhaités à partir d'une liste excel.
ça fonctionne chez moi (car le disque est mapé avec le MdP) mais puis-je intégrer dans la macro le mot de passe du serveur qui n'est pas un secret mais change tous les mois ? Et quelle syntaxe utiliser ?
Merci d'avance
Sub BonsInter()
DéplacerFichiers Sheets(2).Range("B2").Value, Sheets(2).Range("C2").Value 'Chemin concernant les répertoires origine et destination
End Sub
Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For i = 4 To Sheets(1).Range("C2000").End(xlUp).Row
fso.CopyFile Dequel_dossier & "\" & Cells(i, 3) & ".pdf", A_queldossier & "\"
MOT DE PASSE??????
Next
On Error GoTo 0
End Sub
Plusieurs personnes ont souvent besoin de rapatrier des fichiers pdf (jusqu'à 100 parmi 200000 fichiers) d'un serveur distant type \\99.12.66.77\fichiers
Pour simplifier, la macro ci-dessous qui recopie localement les fichiers souhaités à partir d'une liste excel.
ça fonctionne chez moi (car le disque est mapé avec le MdP) mais puis-je intégrer dans la macro le mot de passe du serveur qui n'est pas un secret mais change tous les mois ? Et quelle syntaxe utiliser ?
Merci d'avance
Sub BonsInter()
DéplacerFichiers Sheets(2).Range("B2").Value, Sheets(2).Range("C2").Value 'Chemin concernant les répertoires origine et destination
End Sub
Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For i = 4 To Sheets(1).Range("C2000").End(xlUp).Row
fso.CopyFile Dequel_dossier & "\" & Cells(i, 3) & ".pdf", A_queldossier & "\"
MOT DE PASSE??????
Next
On Error GoTo 0
End Sub