VBA - Excel - Chaine de caractères

[Prof_Matches]

Bonjour,

Je bloque sur ceci :
J'ai un fichier qui s'appelle devis.xlsm Quand le devis est rempli et que mon client veut sauvegarder le fichier, la macro crée un répertoire (en fonction de la valeur d'une cellule : par exemple : Dupont - Colfontaine) et enregistre le fichier sous un autre nom (en fonction d'autres champs du fichier par exemple : Dupont - Colfontaine - FRBA 20111121-2.xlsm). Jusque là ... pas de soucis.

Mais je n'arrive pas à tester si, lors de l'enregistrement, le fichier est déjà dans le répertoire 'Dupont - Colfontaine' ou si le fichier est encore dans le répertoire d'origine (qui peut être différent en fonction de la personne qui utilise le fichier).
Je pense donc qu'il serait utile de vérifier dans le chemin du classeur (ActiveWorkbook.path) si le nom du répertoire (Dupont - Colfontaine) se trouve bien dedans. Comment faire ?

Merci d'avance.

[Qwazerty]

Salut

Si le fichier se trouve dans le répertoire "final" la fin de ActiveWorkbook.path correspond à

Code :

1
2
3
Dim StrPartielPath as string
 
StrPartielPath = CelluleDupont & "\" & CelluleColfontaine  & "\" & CellueNomFichier

Ensuite on regarde si cela correspond bien à la chaîne path en contrôlant le x derniers caractère. X correspondant au nombre de caractère dans la chaîne ou se trouve la texte a rechercher.

Code :

1
2
3
4
5
6
7
if right(ActiveWorkbook.path,len(StrPartielPath)) = StrPartielPath then
  'On se trouve bien dans le répertoire final
 
Else
  'On est pas dans le répertoire final
 
End if

Il serait également possible d'utiliser InStr, mais attention, la chaîne recherchée peut se trouver n'importe ou dans path, ce qui peut poser problème si par exemple on rechercher le nom des répertoires sans le nom fichier ou sans l’extension du fichier. Ce qui n'est pas le cas ici.

++
Qwaz

[Prof_Matches]

Merci pour la réponse.
C'est une bonne idée de travailler sur la longueur du champ. Je retiens pour la prochaine fois.

Entre temps j'avais trouvé cette solution :

Code :

If ActiveWorkbook.Path Like "*" & nom_repertoire_client & "*" Then MsgBox "C'est dans le bon répertoire !."

Bon ou pas bon ?

[kiki29]

Salut, te renseigner sur FSO et FileExists ou plus simple

Code :

1
2
3
Function ExistenceFichier(sFichier As String) As Boolean
    ExistenceFichier = Dir$(sFichier) <> ""
End Function

[Qwazerty]

Envoyé par kiki29

Salut, te renseigner sur FSO et FileExists ou plus simple

Salut

La demande initiale n'est pas de savoir si le fichier existe déjà mais de savoir où le fichier sur lequel il travaille est enregistré.

++
Qwaz