Macro création d'un dossier

[criauto]

Bonjour grâce a ces lignes de code je peux créer un répertoire et mon fichier
Mais comment puis je enregistrer automatiquement le fichier dans ce répertoire ?


merci de votre aide



Sub enregistrer()
Worksheets("PLC").Select
Répertoire = ThisWorkbook.Path & "\" & Cells(19, 1) & " - " & Cells(19, 4) & " " & Cells(19, 7) & " - " & Cells(2, 4) & " - " & Cells(24, 13).Value
If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
MsgBox Répertoire
ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & "\" & "PL " & Cells(1, 6) & " " & Cells(19, 1) & " - " & Cells(2, 4) & " - " & Cells(3, 4).Value
Worksheets("Sommaire").Select
End Sub

 

[Dranreb]

Bonjour.
Mettez .FileName:=Répertoire & "\" & "PL " & Cells(1, 6) & " " & Cells(19, 1) & " - " & Cells(2, 4) & " - " & Cells(3, 4).Value

 

[criauto]

Bonjour merci de votre aidre
c'est parfait

merci encore

 

[criauto]

Bonjour est il possible de copier le dossier créer si dessus sur une adresse https SharePoint ayant un User&pass
merci

 

[Dranreb]

Bonjour.
J'ignore cela, dont je ne connais d'ailleurs pas le sens.

 

[criauto]

Bonjour je ne comprend pas la réponse
je me suis peut être mal exprimé

Je souhaiterai connaitre comment faire pour copier le dossier "Répertoire" et ce qu'il contient dans un dossier SharePoint https (protégé par un mot de passe et un USER)

merci



Sub enregistrer()
Worksheets("PLC").Select
Répertoire = ThisWorkbook.Path & "\" & Cells(19, 1) & " - " & Cells(19, 4) & " " & Cells(19, 7) & " - " & Cells(2, 4) & " - " & Cells(24, 13).Value
If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
MsgBox Répertoire
ActiveSheet.SaveAs Filename:=Répertoire & "\" & "PL " & Cells(1, 6) & " " & Cells(19, 1) & " - " & Cells(2, 4) & " - " & Cells(3, 4).Value
Worksheets("Sommaire").Select
End Sub

 

[Dranreb]

Oui, mais je ne sais absolument pas ce que c'est un 'dossier SharePoint https (protégé par un mot de passe et un USER)'
Si c'est un dossier comme un autre vous pouvez peut être utiliser un CopyFile ou des fonctionnalités du Scripting.FileSytemObject. Je n'ai pas de réponse à vous proposer.

 

[criauto]

Bonjour
ok merci