Discussion :

[Seb-Office]

Bonjour,

Je souhaiterais écrire cette ligne dans une cellule:

= SI(fichierexiste("C:\Fichier1.xlsx");"OK";"File not found")

Pour cela j'ai écrit le code suivant:

Code :

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

CompleteRAWDataSheet.Cells(Ligne, 241) = "= SI(FichierExiste(" & Chr(34) & Liste_fichiers_forcheck(Numero_fichier) & Chr(34) & ");" & Chr(34) & "OK" & Chr(34) & ";" & Chr(34) & "File not found" & Chr(34) & ")"

Où:

1- CompleteRAWDataSheet est déclaré comme suit:

Code :

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

Set CompleteRAWDataSheet = Application.ActiveWorkbook.Worksheets("Dynamic RAW Data")

2- FichierExiste est la fonction Excel personnalisée codée comme suit:

Code :

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

1
2
3
Function FichierExiste(nomfich As String) As Boolean
    FichierExiste = Dir(nomfich) <> ""
End Function

3- Liste_fichiers_forcheck(Numero_fichier) est le contenu de la case du tableau Liste_fichiers_forcheck qui est rempli grâce au code suivant:

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
With Recherche
 
    .FolderPath = Path
    .SubFolders = False
    .SortBy = sort_Name
    .Execute
    Nombre_fichiers = .FoundFilesCount
 
    ReDim Liste_fichiers(Nombre_fichiers)
    ReDim Liste_fichiers_forcheck(Nombre_fichiers)
 
    'Détermine le chemin complet du fichier
    For i = 1 To .FoundFilesCount
        'File_Path = .Files(i).strPathName & "\[" & .Files(i).strFileName & "]"
        File_Path_forcheck = .Files(i).strPathName & "\" & .Files(i).strFileName
        'Liste_fichiers(Numero_fichier) = File_Path
        Liste_fichiers_forcheck(Numero_fichier) = File_Path_forcheck
        Numero_fichier = Numero_fichier + 1
    Next
 
End With

Mon soucis est qu'arriver sur cette ligne:

Code :

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

CompleteRAWDataSheet.Cells(Ligne, 241) = "= SI(FichierExiste(" & Chr(34) & Liste_fichiers_forcheck(Numero_fichier) & Chr(34) & ");" & Chr(34) & "OK" & Chr(34) & ";" & Chr(34) & "File not found" & Chr(34) & ")"

Excel me signale une erreur 1044: Erreur definie par l'action ou par l'objet

Et cela ne m'aide pas beaucoup...

[babaothe]

salut
si tu veux attribuer à une cellule une fonction depuis VBA :
- Voir FormulaLocal dans l'aide si tu veux l'écrire en français
- voir Formula si non, mais alors : en anglais (IF = SI etc...)

EDIT : et je te conseille l'emploi de Formula et donc de l'anglais (surtout si ton appli doit être distribuée)

[tedo01]

Bonjour,
Avec des virgules à la place des points-virgules ça fonctionne :

Code :

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

CompleteRAWDataSheet.Cells(Ligne, 241) = "= SI(FichierExiste(" & Chr(34) & Liste_fichiers_forcheck(Numero_fichier) & Chr(34) & ")," & Chr(34) & "OK" & Chr(34) & "," & Chr(34) & "File not found" & Chr(34) & ")"

La ligne pourrait être allégée en doublant les guillemets à la place de concaténer Chr(34) :

Code :

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

CompleteRAWDataSheet.Cells(Ligne, 241) = "= SI(FichierExiste(""" & Liste_fichiers_forcheck(Numero_fichier) & """),""OK"",""File not found"")"

[Pierre Fauconnier]

ted01,

As-tu testé le contenu de la cellule dans Excel?

Sans préciser la propriété FormulaLocal, tu dois rédiger la formule avec les noms anglais des fonctions, donc, cela m'étonnerait que SI soit accepté dans la syntaxe que tu emploies...

[tedo01]

Bonjour Pierre,
Je sais que c'est bizarre mais ça a fonctionné, il a reconnu la fonction SI(), mais converti les virgules en points-virgules...
Par contre sur le principe tu as tout à fait raison, c'est plus propre :-)

[Pierre Fauconnier]

C'est "amusant" car sur mon 2010 français, il me met systématiquement une erreur #NOM? lorsque j'introduis une fonction en français...

Je vais tester deux trois trucs pour tenter de comprendre le pourquoi du comment.

A titre d'infos, pourrais-tu tester avec d'autres fonctions en français?

Merci.