Code VBA enregistrer sur un serveur commun entreprise

Bonjour,

J'ai besoin d'aide concernant un code VBA. Le voici :

Sub enregistrer() 'macro écrite par loïs - enregistrer sous, nom, date
Dim nom As String
ChDir "S:\Serveur commun\Service\COUPE\Suivi quotidien coupe"
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & Format(Now(), "hh mm AMPM") & ".xls"
ActiveWorkbook.SaveAs (nom)
MsgBox ("Document enregistré")
End Sub

Le problème est que mon fichier ne va pas s'enregistrer dans le dossier souhaité (S:\Serveur commun\Service\COUPE\Suivi quotidien coupe), il va s'enregistrer dans sur mon OneDrive\document\bureau.

Pourvez-vous m'indiquer commun remédier à mon problème svp

Merci

Bonjour LRK50,

Un essai ...

Sub enregistrer() 'macro écrite par loïs - enregistrer sous, nom, date
Dim nom As String, chemin As String

    chemin "S:\Serveur commun\Service\COUPE\Suivi quotidien coupe\"
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & Format(Now(), "hh mm AMPM") & ".xls"
    ActiveWorkbook.SaveAs (chemin & nom)
    MsgBox ("Document enregistré")
End Sub

ric

Eric,

Merci d'accepter de m'aider.

Lorsque j'essaie votre code, le mot chemin ne fonctionne pas.

un message "erreur de compilation: Sub, Function ou Property attendue" s'affiche

Loïs

Bonjour LRK50,

Peut-être ce mot entre en conflit avec autre chose ..

Essai ...

Sub enregistrer() 'macro écrite par loïs - enregistrer sous, nom, date
Dim nom As String, MonChemin As String

    MonChemin "S:\Serveur commun\Service\COUPE\Suivi quotidien coupe\"
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & Format(Now(), "hh mm AMPM") & ".xls"
    ActiveWorkbook.SaveAs (MonChemin & nom)
    MsgBox ("Document enregistré")
End Sub

ric (ric pas Eric)

Ric (pardonnez moi j'ai mal lu..)

Toujours le même soucis en remplaçant "Chemin" par "MonChemin"

Loïs

Bonjour LRK50,

Je n'ai pas de serveur pour tester ... mais sur une autre lettre d'unité locale ... ça fonctionne bien ...

Une dernière tentative ...

Sub enregistrer() 'macro écrite par loïs - enregistrer sous, nom, date
Dim nom As String, 

    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & Format(Now(), "hh mm AMPM") & ".xls"
    ActiveWorkbook.SaveAs ("S:\Serveur commun\Service\COUPE\Suivi quotidien coupe\" & nom)
    MsgBox ("Document enregistré")

End Sub

ric

Bonjour Ric,

Cela vient de fonctionner ! Merci pour votre aide.

Cordialement

Loïs Roussel