XL 2010 Mettre un fichier dans un dossier sur un serveur en vba

[LOLO28]

Bonjour.
j'ai un fichier qui se trouve sur un serveur sur Z qui s'appelle nantes$(\\s44 abcde 964)
j'ai une macro qui crée un fichier excel que je veux mettre sur le même serveur dans un dossier
1-rapport 2018\9-SEPTEMBRE mais cela ne fonctionne pas
Ma macro
Dim fichier As String 'création d'une feuil et mise en place dans fichier
Sheets("RAPPORT").Copy
fichier = "RJ" & Format(Range("k3"), "DDMMYYYY") & ".xls"
MsgBox fichier
ActiveWorkbook.SaveAs Filename:="D:\1-RAPPORT 2018\9-SEPTEMBRE\" & fichier
Merci de votre aide

 

[Jacky67]

Bonjour.
j'ai un fichier qui se trouve sur un serveur sur Z qui s'appelle nantes$(\\s44 abcde 964)
j'ai une macro qui crée un fichier excel que je veux mettre sur le même serveur dans un dossier
1-rapport 2018\9-SEPTEMBRE mais cela ne fonctionne pas
Ma macro
Dim fichier As String 'création d'une feuil et mise en place dans fichier
Sheets("RAPPORT").Copy
fichier = "RJ" & Format(Range("k3"), "DDMMYYYY") & ".xls"
MsgBox fichier
ActiveWorkbook.SaveAs Filename:="D:\1-RAPPORT 2018\9-SEPTEMBRE\" & fichier
Merci de votre aide

Bonjour,
Ouvre un classeur situé sur ce serveur et lance cette macro

Sub test()
MsgBox ThisWorkbook.Path
End Sub

Tu devrais obtenir le chemin complet à utiliser.

 

[LOLO28]

Bonjour.
lors de essai cela me donne Z:
donc j'essaie z:\1-RAPPORT 2018\9-SEPTEMBRE\" & fichier mais cela ne fonctionne pas .
je bloque toujours.
merci

 

[Jacky67]

RE..
Essaye comme ceci
Les dossiers "1-RAPPORT 2018" et "9-SEPTEMBRE" doivent exister.
Si "K3" n'est pas dans la feuille active, il faudra préciser le nom de feuille

Sub test()
Dim Dossier As String, Fichier As String
Dossier = "Z:\1-RAPPORT 2018\9-SEPTEMBRE\""
Fichier = "RJ" & Format(Range("k3"), "DDMMYYYY")
Sheets("RAPPORT").Copy
ActiveWorkbook.SaveAs Dossier & Fichier, 56
ActiveWorkbook.Close
End Sub

Si les dossiers sont inexistants alors ceci
Si "K3" n'est pas dans la feuille active, il faudra préciser le nom de feuille

Sub test()
Dim Dossier As String, Fichier As String
On Error Resume Next
'création des dossiers
MkDir "Z:\1-RAPPORT 2018\"
MkDir "Z:\1-RAPPORT 2018\9-SEPTEMBRE\"
Dossier = "Z:\1-RAPPORT 2018\9-SEPTEMBRE\"
On Error GoTo 0
Fichier = "RJ" & Format(Range("k3"), "DDMMYYYY")
Sheets("RAPPORT").Copy
ActiveWorkbook.SaveAs Dossier & Fichier, 56
ActiveWorkbook.Close
End Sub