Enregistrer un classeur dans le bon dossier
Résolu/Fermé
thechoux
Messages postés
24
Date d'inscription
lundi 27 janvier 2014
Statut
Membre
Dernière intervention
23 septembre 2015
-
9 juil. 2014 à 10:56
thechoux Messages postés 24 Date d'inscription lundi 27 janvier 2014 Statut Membre Dernière intervention 23 septembre 2015 - 21 juil. 2014 à 15:56
thechoux Messages postés 24 Date d'inscription lundi 27 janvier 2014 Statut Membre Dernière intervention 23 septembre 2015 - 21 juil. 2014 à 15:56
A voir également:
- Enregistrer un classeur dans le bon dossier
- Audacity enregistrer son pc - Guide
- Mettre un mot de passe sur un dossier - Guide
- Enregistrer son ecran - Guide
- Dossier appdata - Guide
- Enregistrer video youtube - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 10/07/2014 à 09:31
Modifié par michel_m le 10/07/2014 à 09:31
Bonjour
Il manquait quelques renseignements dans ta demande: j'ai donc considéré qu'il pouvait y avoir plusieurs classeurs dans le sous dossier demandé en B8 mais que l'on avait l'adresse du dossier toujours en B8
Michel
Il manquait quelques renseignements dans ta demande: j'ai donc considéré qu'il pouvait y avoir plusieurs classeurs dans le sous dossier demandé en B8 mais que l'on avait l'adresse du dossier toujours en B8
Option Explicit
'------
Sub test()
Sauvegarder_dans_dossier ("zaza32.xlsm")
End Sub
Function Sauvegarder_dans_dossier(classeur)
Dim Chemin As String, T_adresse, Signe As Byte, Etage1 As String, Etage2 As String
With ActiveWorkbook
Chemin = "D:\documents\" ' A adapter au contexte
ChDir Chemin
T_adresse = Split(Sheets(1).Range("B8"), "-")
Etage1 = T_adresse(0)
On Error Resume Next 'gestion etage1 existant
MkDir Etage1
On Error GoTo 0
ChDir Etage1
For Signe = 1 To UBound(T_adresse)
Etage2 = Etage2 & T_adresse(Signe)
Next
On Error Resume Next
MkDir Etage2
On Error GoTo 0
'Chemin = Chemin & Etage1 & "\" & Etage2 & "\"
ChDir Etage2
.SaveAs Filename:=classeur
MsgBox classeur & " enregistré dand le dossier " & Chemin & Etage1 & "\" & Etage2 & "\"
End With
End Function
Michel
21 juil. 2014 à 15:56