Besoin d'aide pour une Macro

[sersib]

Bonjour à vous tous,
Voilà j'aurais besoin d'un coup de mains des pros pour une macro (Excel 2007).
Je souhaiterais à partir d'un bouton:
Enregistrer le fichier courant avec le nom de 2 cellules "C1 et N3" (ex: CLIENT-CDE156789).
C1=CLIENT
N3= CDE156789
Et que ce fichier s'enregistre automatiquement vers un chemin bien précis avec création de dossier(s).
C'est-à-dire:
X:\CDE_CLIENT\CLIENT\CDE156789
- Création du dossier "CLIENT" s'il n'existe pas.
- Création du dossier "CDE156789" s'il n'existe pas.
Pensez-vous que ce soit possible ?
Si oui merci beaucoup d'avance.
Sergio

 

[Pierrot93]

Re : Besoin d'aide pour une Macro

Bonjour,

doit être possible effectivement.... regarde dans l'aide vba du coté de la fonction DIR et de l'instruction MKDIR, devrait t'aider à avancer dans ton projet...

bonne journée
@+

 

[sersib]

Re : Besoin d'aide pour une Macro

Merci Pierrot93,
Je vais regarder et essayer de comprendre 😉

 

[Dull]

Re : Besoin d'aide pour une Macro

Salut sersib, Pierrot🙂, le Forum

Un essai en pièce jointe

'Dans un Module Standard
Option Explicit

Sub EssAi()

Dim R As String, S As String, Fichier As String
'Création du dossier X:\CDE_CLIENT\CLIENT
If Dir("X:\CDE_CLIENT\" & Feuil1.[C1] & "\", vbDirectory) = "" Then MkDir ("X:\CDE_CLIENT\" & Feuil1.[C1] & "\")
R = "X:\CDE_CLIENT\" & Feuil1.[C1] & "\"
'Création du Sous dossier CDE156789 dans le Dossier X:\CDE_CLIENT\CLIENT\
'Ce qui donne X:\CDE_CLIENT\CLIENT\CDE156789
If Dir(R & Feuil1.[N3] & "\", vbDirectory) = "" Then MkDir (R & Feuil1.[N3] & "\")
S = R & Feuil1.[N3]
Fichier = Feuil1.[C1] & "-" & Feuil1.[N3] & ".xls"
'Sauvegarde du fichier dans le sous dossier crée
ActiveWorkbook.SaveCopyAs S & "\" & Fichier
End Sub

Bonne Journée

 

[sersib]

Re : Besoin d'aide pour une Macro

Salut sersib, Pierrot🙂, le Forum
Un essai en pièce jointe
Bonne Journée

Bonjour Dull
C'est génial ce que tu a fait c'est quasi parfait.
Le seul truc c'est qu'il enregistre une copie du fichier et non le fichier en cours ?
Encore merci

 

[Dull]

Re : Besoin d'aide pour une Macro

Re le Fil

Il suffit de changer

CopySaveAs

par

 SaveAs

Bonne Journée

 

[sersib]

Re : Besoin d'aide pour une Macro

Super génial Dull, tes un chef, respect !!!!