Discussion :

[jdc30]

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

[casefayere]

Bonjour,

une idée entree autres

Code :

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

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

[SfJ5Rpw8]

Bonsoir,
un petit-tour dans la Excel

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

Comment verifier si un dossier existe ?

- si oui enregistrer le fichier

Comment creer une copie de sauvegarde du classeur actif ?

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

Comment creer un dossier ?

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

Cherche un peu quand même

[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