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

LOLO28 · 7 Septembre 2018

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 · 7 Septembre 2018

LOLO28 à dit:
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

VB:

Sub test()
MsgBox ThisWorkbook.Path
End Sub

Tu devrais obtenir le chemin complet à utiliser.

LOLO28 · 11 Septembre 2018

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 · 11 Septembre 2018

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

VB:

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

VB:

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

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

LOLO28

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

LOLO28

XLDnaute Nouveau

Jacky67

XLDnaute Barbatruc

Discussions similaires