Vérification de l’existence d’un fichier (Microsoft Excel)
John a une colonne de invoice numéros dans une feuille de calcul. Il a un répertoire sur le réseau où le personnel enregistre un PDF de la facture réelle et le nomme en utilisant le même numéro de facture qui se trouve dans la feuille de calcul. Chaque numéro de facture dans la feuille de calcul doit avoir un fichier PDF nommé en conséquence dans le répertoire sur le réseau. John cherche un moyen, dans Excel, de vérifier et de vérifier qu’un PDF existe vraiment pour chaque numéro de facture.
Il n’y a aucun moyen de le faire à l’aide des commandes Excel intégrées. Vous pouvez cependant créer une macro qui effectuera la vérification à votre place. Par exemple, considérons la fonction simple définie par l’utilisateur suivante:
Function FileExists1(sPath As String) FileExists = Dir(sPath) <> "" End Function
La routine renvoie simplement une valeur True ou False, selon que le fichier spécifié existe. La valeur transmise à la fonction doit inclure un chemin d’accès complet et un nom de fichier. Par exemple, si la spécification du fichier (y compris le chemin) se trouvait dans la cellule A1, vous pouvez utiliser ce qui suit dans une cellule:
=FileExists1(A1)
Cependant, vous ne souhaiterez peut-être pas mettre le nom du chemin complet dans la cellule. Dans ce cas, vous pouvez le spécifier dans la formule actuelle, de cette manière:
=FileExists1("c:\your\path\here\" & A1 & ".pdf")
Bien sûr, vous pouvez à la place spécifier le chemin dans la fonction définie par l’utilisateur:
Function FileExists2(sFile As String) sPath = "c:\your\path\here\" & sFile & ".pdf" FileExists = Dir(sPath) <> "" End Function
Avec une telle fonction, vous pouvez facilement créer une formule dans votre feuille de calcul qui « marquerait » toute facture manquante dans le répertoire:
=IF(FileExists2(A1),"","Missing Invoice")
_Note: _
Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.
lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur]
.
ExcelTips est votre source pour une formation Microsoft Excel rentable.
Cette astuce (7512) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:
link: / excelribbon-Checking_for_the_Existence_of_a_File [Vérification de l’existence d’un fichier]
.