Discussion :

[gwems]

bonjour je voudrai pouvoir tester si mon fichier existe pour ce faire j ai essayer le code suivant ...sans résultat

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
chemin1 = "matériel.xls"
chemin2 = "matériel_lt1.xls"
répertoire_te9 = Lecteur & chemin1
répertoire_lt1 = Lecteur & chemin2
 
If Not Len(Dir(repertoire_te9, vbDirectory)) = 0 Then
' # Suppression du contenu des tables #
CurrentDb.Execute "DELETE * FROM matériel"
' ###   IMPORTATION DE FICHIER EXEL ###
'  3°) importation de la table matériel
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "matériel", répertoire_te9, True
End If
 
If Not Len(Dir(repertoire_lt1, vbDirectory)) = 0 Then
' # Suppression du contenu des tables #
CurrentDb.Execute "DELETE * FROM matériel_lt1"
' ###   IMPORTATION DE FICHIER EXEL ##
'  4°) importation de la table matériel_Lt1
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "matériel_lt1", répertoire_lt1, True
End If

merci de votre aide

[ilank]

Bonjour,

Code :

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

If Not Len(Dir(repertoire_te9, vbDirectory)) = 0 Then

tu recherches un dossier ou un fichier ?
VbDirectory => Répertoire
VbNormal => Fichier

[gwems]

je recherche la présence d' un fichier Excel. (enfin de deux plus exactement )

je viens de tester avec "VbNormal" à la place de "vbDirectory"

il me met toujours la meme erreur : Incompatibilité de type ...

ps: je souhaite réaliser certaines lignes de code uniquement si le fichier est présent !!!
merci de votre aide.

[Dolphy35]

Bonsoir,

Code :

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

1
2
3
4
5
If Dir("C:\.....\Classeur.xls") = "" Then
    'Pas de Fichier
Else
    'Fichier présent
End If

Dolphy

[LedZeppII]

Bonsoir,

C'est parce que la variable repertoire_te9 n'est surement déclarée nul part.
Du coup elle est de type Variant et contient Empty, incompatible avec le type String attendu.

Code :

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

1
2
répertoire_te9 = Lecteur & chemin1
If Not Len(Dir(repertoire_te9, vbDirectory)) = 0 Then

A+

[gwems]

ok résolu merci à Dolphy et à tous les gens qui se sont interessé a mon problèm.



ps: meme en les déclarant en string ca ne fonctionne pas j ai donc utiliser ce code:

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
23
24
25
26
Private Sub btn_importer_Click() '************************* Importation des mises à jour ****************
chemin1 = "matériel.xls"
chemin2 = "matériel_lt1.xls"
répertoire_te9 = Lecteur & chemin1
répertoire_lt1 = Lecteur & chemin2
 
If Dir(répertoire_te9) = "" Then
    MsgBox "Le Fichier " & chemin1 & " est introuvable"
Else
  ' # Suppression du contenu de la table matériel #
  CurrentDb.Execute "DELETE * FROM matériel"
  ' ###   IMPORTATION DE FICHIER EXEL ###
  '  3°) importation de la table matériel
  DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "matériel", répertoire_te9, True
End If
 
If Dir(répertoire_lt1) = "" Then
   MsgBox "Le Fichier " & chemin2 & " est introuvable"
Else
  ' # Suppression du contenu de la table marériel_lt1 #
  CurrentDb.Execute "DELETE * FROM matériel_lt1"
  ' ###   IMPORTATION DE FICHIER EXEL ##
  '  4°) importation de la table matériel_Lt1
  DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "matériel_lt1", répertoire_lt1, True
End If
end sub

[LedZeppII]

ps: meme en les déclarant en string ca ne fonctionne pas

Normal.
Au début de ton code tu utilises une variable répertoire_te9, mais dans Dir(..) tu en utilises une autre.
Le é est devenu e.
Cette autre variable (repertoire_te9 sans é), si elle n'est pas déclarée ou déclarée sans type, est de type Variant et contient Empty tant qu'on ne lui a affecté aucune valeur.

A+