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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.