Création et enregistrement automatique de fichier en VBA

Version imprimable

05/12/2014, 16h15
jdc30

Création et enregistrement automatique de fichier en VBA

Bonjour,

Je vous expose mon problème car étant novice en VBA je ne trouve pas la solution.
J'ai un fichier Excel, dans une cellule ce trouve le chemin d’accès pour l'enregistrement du classeur, avec ou non le nom du fichier que je peux mettre dans une autre cellule.
Je voudrai réaliser une macro qui puisse :
- Vérifier si le chemin d'accès existe :
- si oui enregistrer le fichier
- si non créer le sous répertoire et en suite enregistrer le fichier.

Merci d'avance pour votre aide.

"Quand tu ne sais pas demande et quand tu sais, aide"

Jean-Daniel

Bonjour,

une idée entree autres

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub une_idee_a_exploiter()
Dim nomfichier As String
Dim repert As String
Dim verif As String
nomfichier = Sheets("feuil1").Range("A2") 'jimagine ton nom de fichier ici, à adapter
repert = Sheets("feuil1").Range("A1") 'jimagine ton chemin d'accès ici, à adapter
If (verif = Dir(repert & "\", vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire nomdossier
Else
   MkDir Workbooks(ThisWorkbook.Name).Path & "\" & repert 'on le crée s'il n'existe pas, à toi de choisir ou
   repert = Workbooks(ThisWorkbook.Name).Path & "\" & repert
End If
'il ne te reste qu'à enregistrer ton fichier dans le repertoire trouvé ou créé
ActiveWorkbook.SaveAs Filename:= _
        repert & "\" & nomfichier & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 'attention si tu as déjà précisé l'extension dans ta cellule
End Sub

07/12/2014, 18h18
SfJ5Rpw8

Bonsoir,
un petit-tour dans la :faq: Excel

Citation:

Envoyé par jdc30

Bonjour,
- Vérifier si le chemin d'accès existe :

Comment verifier si un dossier existe ?

Citation:

Envoyé par jdc30

- si oui enregistrer le fichier

Comment creer une copie de sauvegarde du classeur actif ?

Citation:

Envoyé par jdc30

- si non créer le sous répertoire et en suite enregistrer le fichier.

Comment creer un dossier ?

Citation:

Envoyé par jdc30

"Quand tu ne sais pas demande et quand tu sais, aide"

Cherche un peu quand même ;)
08/12/2014, 10h18
jdc30

Merci casefayere, j'y ai apporté des modification mais cela m'a bien aidé, pour ce qui est de la réponse du pro en VBA, un petit coup de main nous permet d'avancer même si nous cherchons la réponse. Les deux informations m'ont permis d'y arrivé.

Cordialement