Discussion :

[Henri1830]

Bonjour à tous,

Voici le code que j'utilise pour ouvrir un fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' La valeur de SclFichOri au départ est "AAMMJJ - C&C - Signaletique clients.xls"
 
    If Left(SclFichOri, 6) = "AAMMJJ" Then
       SclFichOri = Right(Year(Now()), 2) & IIf(Len(Month(Now())) < 2, "0" & Month(Now()), Month(Now())) & IIf(Len(Day(Now())) < 2, "0" & Day(Now()), Day(Now())) & Mid(SclFichOri, 7, Len(SclFichOri))
    End If
    Fichier = SclFichOri
 
    If FichierExiste(Fichier) = True Then
        Workbooks.Open Filename:=SclFichOri
    Else
        SclFichOri = Application.GetOpenFilename("Fichier des Signalétiques clients, *.XLS; *.XLSX")
    End If

Il ne trouve pas le fichier car je n'en ai pas avec la date du jour et il ouvre donc la feuille habituelle de choix de fichier.
Je choisis le fichier, tout va bien, pas de message d'erreur sauf que... le fichier n'est pas ouvert.

Je n'y comprends rien. Si quelqu'un a une idée ; Welcome !

[umfred]

tu as vérifié que Fichier contient bien le chemin de ton fichier ? Workbooks.open a besoin du chemin du fichier, si pas dans le même dossier que le classeur appelant (il me semble)
C'est quoi la fonction FichierExiste ?????
Ta ligne 12 n'ouvre rien, elle récupère juste le chemin du fichier que tu lui indiques, donc il faut lui demander de l'ouvrir
et donc plutôt faire un

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim askedFile As Variant
' La valeur de SclFichOri au départ est "AAMMJJ - C&C - Signaletique clients.xls"
 
    If Left(SclFichOri, 6) = "AAMMJJ" Then
       Fichier = Right(Year(Now()), 2) & IIf(Len(Month(Now())) < 2, "0" & Month(Now()), Month(Now())) & IIf(Len(Day(Now())) < 2, "0" & Day(Now()), Day(Now())) & Mid(SclFichOri, 7, Len(SclFichOri))
    End If
If Not FichierExiste(Fichier) Then
    askedFile = Application.GetOpenFilename("Fichier des Signalétiques clients, *.XLS; *.XLSX")
    If askedFile =False then 'si on annule la fenêtre
        End 'on arrête tout, si on a cliquer sur annuler
   End If
End If
Workbooks.Open Filename:=Fichier

[Henri1830]

Mille mercis !
Ton idée m'a mis sur la voie.
J'ai trouvé la solution.
Le fichier n'était effectivement pas ouvert mais en plus, avec le "Application.GetOpenFilename", le nom du fichier se voyait également augmenté du disque et du répertoire ce qui semait la zizanie quelques lignes plus bas.

Merci encore et à un de ces jours !