Discussion :

[ericdev67]

Bonjour,

Le petit souci :

J'ai dans un dossier des classeurs xls (exemple :a.xls) et des documents (a.pdf).
Le fichier "a" est en fait le même (=1 enregistré sous excel et l'autre sous pdf)

Il m'arrive de me tromper et donc d'enregistrer un fichier "a" en xls et d'oublier de l'enregistrer en .pdf (je schématise volontairement)

J'essaye d'utiliser la méthode de Silky Read (au passage, merci pour tes excellentes FAQ ) pour lister dans un colonne les fichiers .xls et dans l'autre les fichier .pdf. La colonne A regroupant l'indice "a"

En fait, j'essaye de comparer la colonne des .xls et des .pdf et de m'avertir s'il y a un décalage....c'est à dire colonne A, le nom du fichier, colonne B si le fichiera.xls existe, colonne C, si le fichier a.pdf existe...et ça couince.....: j'ai "vrai-vrai-" alors que le fichier n'existe pas dans le dossier....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
 
 
        Dim c As Range
 
   ' ouverture base des chemins
   i = 1
  For Each c In Range("a2", Range("a2").End(xlDown))
    If c <> "" Then
   i = i + 1
   Cells(i, 2) = DossierExiste("C:\Essai\er\c.Value.xls")
Cells(i, 3) = DossierExiste("C:\Essai\er\c.Value.pdf")
 
 
    End If
    Next
End Sub
 
 
Function DossierExiste(NomDossier As String) As Boolean
    DossierExiste = Dir(NomDossier, vbSystem + vbDirectory) = ""
End Function

Une idée d'où je déconne ????

Merci,
A+

[JackOuYA]

bonsoir,

j'ai pas tout lu, mais à moins que tes fichiers se nomment c.value.xls , sort c.value des " :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Cells(i, 2) = DossierExiste("C:\Essai\er\" & c.Value & ".xls")
Cells(i, 3) = DossierExiste("C:\Essai\er\" & c.Value & ".pdf")

et dis nous quoi.

[ericdev67]

y a pas d'autres mots....

Evidemment ..........dire que je planche dessus depuis 1h, alors que c'était devant moi.......

Trop cool JackOuYA,

Merci pour ravoir rallumé la lumière de ma "conscience"

Merci,
A+

[ucfoutu]

Bonsoir,
Mais non ...

L'erreur essentielle (en plus de celle relevée) est dans la fonction elle même (remplacer = par <>, pardi...

Encore que je n'aime pas le nom de cette fonction, qui donne à penser que l'on recherche l'existence d'un dossier et non d'un fichier ... mais bon ...

Analyse, comprens et adapte cet exemple :

Appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim mon_fichier As String
  mon_fichier = "d:\essai.txt"
  MsgBox DossierExiste(mon_fichier)

Fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function DossierExiste(NomDossier As String) As Boolean
    DossierExiste = Dir(NomDossier, vbNormal Or vbHidden Or vbSystem) <> ""
End Function

Edit : si tu ne fais pas ce que je te dis, tu auras bien des True et des False, mais certainement pas ceux que tu attends ...... ne serait-ce qu'en raison de ton VbDirectory !!! (fais tes essais et tu comprendras le coup !)

[ericdev67]

Merci ucfoutu,


Effectivement, j'avais fait cette erreur (tout comme celle de Read, au lieu de ROAD (encore pardon.....)), mais comme j'ai bossé dessus, j'ai effectivement changé le = par les <>, qui, comme tu me le conseilles si bien ,fonctionnent vachement mieux !!!!! et sont surtout, plus logiques....

Merci .....



A+ pour de prochaines aventures.....