XL 2016 Détection de fichier PDF dans un dossier

Tom.H · 8 Août 2019

Bonjour,

Pour un projet interne à ma société, j'ai créé un fichier excel qui permet de copier/coller les dossiers de nos affaires du local vers le serveur "europe". (plusieurs pays travail sur un même projet)
Je souhaite désormais détecter les fichiers PDF de la manière suivante:

1- identification des fichier(s) pdf detecté(s) sur serveur europe et non présent sur serveur local :
->écrire la liste dans la colonne A "nouveaux PDF"
2- identification des fichier(s) pdf detecté sur serveur europe mais présent sur serveur local :
-> écrire la liste dans la colonne B "PDF présent à remplacer (MaJ)"
3- Userforme -> Msgbox " nb1 Nouveaux PDF trouvés" & "nb2 PDF seront remplacés par leur dernière version"
-> "Voulez vous continuer ? Oui/non
Si non fermer Userform
Si oui alors copie colle de ce(s) fichier(s) dans le dossier affaire X (serveur local)

Actuellement, je ne sais pas réaliser l'étape 1 et 2 et je n'ai rien trouvé sur internet.

Merci de votre aide.

Cordialement

Tom.H · 8 Août 2019

J'ai oublié de préciser, les fichiers PDF peuvent se trouver dans des sous dossiers du dossier de l'affaires. on doit pouvoir les détecter

merci

Tom.H · 8 Août 2019

après quelques essais j'ai trouvé :

VB:

Sub InsertionVE()
  
Dim Dossier As String, Fichier As String, i As Integer

Dossier = "Y:\PDM\OFFRES\38.ISF\FRANCE\CRODAROM\579973 Skid de conditionnement\"

i = 0

Fichier = Dir(Dossier & "*.pdf")

Do While Fichier <> ""

  i = i + 1

  Sheets("Feuil1").Range("A" & i) = Fichier

  Fichier = Dir

Loop
    
End Sub

Le problème étant que ça ne vas pas chercher dans les sous dossiers ... avez vous une solution?

XL 2016 Détection de fichier PDF dans un dossier

Tom.H

XLDnaute Nouveau

Tom.H

XLDnaute Nouveau

Tom.H

XLDnaute Nouveau

Discussions similaires