Note utilisateur: 5 / 5

Etoiles activesEtoiles activesEtoiles activesEtoiles activesEtoiles actives
 

macro

 

 

Quand on manipule les chemins de fichiers, on est souvent amené à concaténer des "bouts de chemins" à des noms de fichiers.

De la même manière, dans le processus, il y a toujours un \ qui doit figurer en fin de chemin.

D'où ce test fréquent : "si le chemin ne se termine pas par un \, alors ajouter le \".

Voici une petite fonction sans prétention qui devrait éviter de réécrire le test systématiquement.

 

 

Création du module

Dans la fenêtre de Base de données, cliquez sur le groupe "Modules", puis sur "Nouveau"

alt

 

 

Copiez-Collez le code suivant :

' ---
 ' AJOUT D'UN \ EN FIN DE CHEMIN
 ' ---
 ' Entrée : strFolder <- chemin="" retraiter="" span="">
 ' Sortie : Chemin avec \ ajouté à la fin si nécessaire.
 '
 Function AddBackslash( _

ByVal strFolder As String) As String
 
strFolder = Trim(strFolder)
If Right(strFolder, 1) "\" Then strFolder = strFolder & "\"
AddBackslash = strFolder
End Function

 

  Puis, sauvegardez votre module, en le nommant par exemple "modbackSlash"

 

 

 

Utiliser cette fonction

Pour utiliser cette fonction, vous lui transmettez un chemin (sans le nom de fichier final).

La fonction vous renvoie le même chemin, avec un "\ "ajouté à la fin, si nécessaire.

Dim strChemin As String
Dim strImage As String
 
strChemin = "C:\Users\Hervé\Documents"
strImage = AddBackslash(strChemin) & "photo.jpg"
MsgBox strImage

 

Le chemin final de l'image sera bien C:\Users\Greg\Documents\learnup.jpg.

Bien sûr, l'exemple du dessus fausse un peu le jeu : mais imaginez plutôt que strChemin a été lu dans une table, et qu'on ne sait pas si le chemin se termine par \.

 

 

greg

 

1000 caractères restants