Enregistrer sous par macro

Bonjour,

J'ai posté il y a un petit moment une contribution sur laquelle j'ai relevé ce jour un souci tout bête.(ligne 61 à 65)

Je voudrais enregistrer le classeur à un endroit précis sur un serveur. Actuellement le code est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'-------adresse du répertoire ou sera enregistré le fichier AdresseRépertoire = ActiveWorkbook.Path 'AdresseRépertoire = "O:\TRAVAIL\Intercommandement\CDOL\Transfert Svg\Mail\" '---------------------copie de la feuille à envoyer Application.DisplayAlerts = False Sheets("Matrice Mail").Copy '---------------------Nom du fichier à envoyer Fichier = ThisWorkbook.Path & "\ICCS du " & _ Replace(Replace(Replace(Left(Now, 16), ":", "h"), " ", " à "), "/", "-") & ".xls"   ActiveWorkbook.SaveAs Fichier ActiveWorkbook.Close

---

Il faudrait que le fichier aille s'enregistrer ici :
O:\TRAVAIL\Intercommandement\CDOL\Transfert Svg\Mail\
ligne 3 du code mais il ne veut rien entendre, il s'enregistre dans le chemin où est enregistré ma base de données.
J'ai mis en ligne 3 une cote pour que la macro passe son chemin.
Pour essayer ce que je veux faire, j'ai mis une cote sur la ligne 2 et supprimer celle de la ligne 3.
Mais toujours pareil.

Cordialement
Graphikris.

Bonjour,

Dans ce que tu veux faire, tu modifies aussi cette ligne

Code:

---

1 2	Fichier = ThisWorkbook.Path & "\ICCS du " & _ Replace(Replace(Replace(Left(Now, 16), ":", "h"), " ", " à "), "/", "-") & ".xls"

---

par

Code:

---

1 2	Fichier = AdresseRépertoire & "ICCS du " & _ Replace(Replace(Replace(Left(Now, 16), ":", "h"), " ", " à "), "/", "-") & ".xls"

---

Il faut bien penser à enlever le "\" vu que tu l'as déjà mis en fin de valeur pour la variable AdresseRépertoire

Bjr et merci Detrax,
J'ai aussi essayé çà mais idem.

Cette procédure fonctionne chez moi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub SavWorkbook() Dim FolderSAV As String: FolderSAV = "C:\Temp\Test\" 'Dim FolderSAV As String: FolderSAV = "O:\TRAVAIL\Intercommandement\CDOL\Transfert Svg\Mail\" Dim WbName As String: WbName = "ICCS du " & Format(Now, "dd-mm-yyyy à hh_nn") ' WbName = Replace(WbName, "_", "h") ' Application.DisplayAlerts = False   ActiveWorkbook.SaveAs FolderSAV & WbName ActiveWorkbook.Close Application.DisplayAlerts = True End Sub

---

- Suppression de la ligne Sheets("Matrice Mail").Copy qui ne sert à rien
- Rajout de Application.DisplayAlerts = True en fin de procédure
- Simplification de la mise en forme du nom en fonction de la date.

En fait tu as peut être un avertissement qui ne s'affiche pas... Tu as essayé de tester sans désactiver leur affichage ?

Désolé pour la reponse mais je n'etais pas chez moi.
J'ai testé et çà marche Merci

:ccool: