Salut le forum
Je souhaite enregistrer mon fichier dans le dossier "Commercial" du serveur01.
Voici le chemin d'acces du fichierVoici le code que j'utilise:
Code : Sélectionner tout - Visualiser dans une fenêtre à part \\serveur01\commercial\exercices 2013\proforma 2013
Il y'a debogage et le message d'erreur est le suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub Enreg() Dim Dossier As String, Exercice As String, Proforma As String 'Dossier = "C:\Commercial" Dossier = "\\serveur01\commercial" Exercice = Dossier & "\EXERCICE " & Format(Date, "yyyy") If Dir(Exercice, vbDirectory) = "" Then MkDir Exercice Proforma = Exercice & "\PROFORMA " & Format(Date, "yyyy") If Dir(Proforma, vbDirectory) = "" Then MkDir Proforma ThisWorkbook.SaveAs Filename:=Proforma & "\" & Feuil1.Range("A1") ', FileFormat:=xlOpenXMLWorkbookMacroEnabled End Sub
Erreur d'exécution '1004'
La Méthode 'Saveas' de l'objet'_Workbook' a échoué.
Merci de me donner un coup de main
Partager