Bonsoir le foum,
Après plusieurs recherches, je ne trouve pas.
En fait, j'ai défini un chemin cible lorsque je fais un 'enregistrer sous'.
si le chemin cible n'existe pas, je voudrais vérifier si le répertoire parent existe et ainsi de suite...
Si le noms de mon fichier est par exemple : "1-2-3-4-5.xlsm"
l'enregistrement doit se faire sous
chemin cible : D:/1/2/3/4/5
si le dossier 6 n'existe pas, voir si le répertoire précédent existe (4) ...
Ci-joint un exemple
J'ai essayé avec le code, mais je n'rrive pas faire autre chose, je suis un peu perdue :
Après plusieurs recherches, je ne trouve pas.
En fait, j'ai défini un chemin cible lorsque je fais un 'enregistrer sous'.
si le chemin cible n'existe pas, je voudrais vérifier si le répertoire parent existe et ainsi de suite...
Si le noms de mon fichier est par exemple : "1-2-3-4-5.xlsm"
l'enregistrement doit se faire sous
chemin cible : D:/1/2/3/4/5
si le dossier 6 n'existe pas, voir si le répertoire précédent existe (4) ...
Ci-joint un exemple
J'ai essayé avec le code, mais je n'rrive pas faire autre chose, je suis un peu perdue :
Code:
Sub Tst()
Dim chemin1 As String
Dim chemin2 As String
Dim i As Integer
chemin1 = Sheets("F1").Range("A2")
chemin2 = Sheets("F1").Range("A3")
Fichier = Dir(chemin1)
If chemin1 = "" Then
i = chemin2 'And Fichier = ""
Else: i = chemin1
Application.GetSaveAsFilename (i)
End If
End Sub