Discussion :

[graphikris]

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.

[DeTraX]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[graphikris]

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

[DeTraX]

Cette procédure fonctionne chez moi

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 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 ?

[graphikris]

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