Ouverture d'un classeur excel Macro VBA Résolu

Question

Bonjour à tous,
Merci par avance pour votre aide.

Je cherche une condition qui signale à l'utilisateur que le fichier recherché n'existe pas.
C'est à dire que l'ouverture du fichier excel dépend de la date qui a été sélectionné
par l"utilisateur, il se peut qu'il n'existe aucun fichier à chargé, et dans ce cas excel n'ouvrira aucun classeur. Est ce que je peux le retranscrire dans une macro.

Exemple si je recherche le classeur nommé 01 01 1901 il y a peu de chances que je le trouve :) La partie en gras ne fonctionne pas bien entendu.

Voici mon code :

Sub CommandButton1_Click()
    Dim wb As Workbook
    Dim Ligne As Long
    Dim nom As String
    With Sheets("Donnees")
    Ligne = Sheets("Donnees").Cells.SpecialCells(xlCellTypeLastCell).Row - 1

    With Sheets("Chargement")
    Workbooks.Open ("C:\" & Format([A3].Value, "dd mm yyyy") & ".xls")
    If Workbooks.notopen Then
    MsgBox "Il n'existe aucun fichier à charger."
    
    Application.ScreenUpdating = False


    ' Copier les données de la feuille "Temps Conseillers" dans la première ligne vide de la feuille "Données"
    Worksheets("Temps Conseillers").Range("A2:K39").Copy Destination:=Workbooks("Test.xlsm").Worksheets("Donnees").Range("A" & Ligne + 2)
    
    End With
    End With
    'Fermeture du calendrier lorsque l'utilisateur valide
    Unload Me
    Unload Acceuil
    
    'Fermeture des classeurs inactifs
    For Each wb In Workbooks
    If Not wb Is ThisWorkbook Then
    wb.Close False
    End If
    Next
    
    Application.ScreenUpdating = True
    
    'Sauvegarde du classeur actif
    ActiveWorkbook.Save
    MsgBox "Vos données ont été chargé et sauvegardé"
End Sub

Merci de votre aide encore une fois.

Configuration: Windows XP / Safari 535.19

eriiic · Answer

Bonjour, 

tu peux utiliser Dir() : 
If Dir("C:	oto.xls") = "" Then MsgBox "le fichier est introuvable!"
eric

clark...kent · Answer

Ok merci du conseil, j'essaye ca et je te tiens au courant d'ici cet après midi

clark...kent · Answer

Alors je n'ai pas testé ton code pour la simple et bonne raison que le mien ne fonctionne pas à la base, je l'ai mal testé. 

Cela concerne une autre partie du code : 

Sub Workbook_Open() 

    Sheets("Chargement").Select 
    'Démarre à la date du jour -1 
    Range("A2") = CDate(Format(Date - 1, "dd mm yyyy")) 
    Range("A3") = CDate(Format(Date - 1, "dd mm yyyy")) 
     
    'Recule de 3 jours si date = Lundi 
    If Range("A2") = dimanche Then 
    Range("A3") = CDate(Format(Date - 3, "dd mm yyyy")) 
    Range("A2") = CDate(Format(Date - 3, "dd mm yyyy")) 
    End If 

    Acceuil.Show 
End Sub 

L'objectif est, dès l'ouverture d'excel, initialisé la date du jour - 1 dans A2 (ou A2= Lundi, Mardi, ect et ou A3 = 17 04 2012, 18 04 2012, ect...). Puisque ces mêmes critères me permettent ensuite d'utilisé le code que j'ai transmis plus haut pour ouvrir le fichier. 

Le format "DDDD" ne fonctionne pas pour A2 mais aucune importance car j'ai paramétré la cellule dans excel et il m'affiche : lundi, mardi, mercredi, ect... 

Le problème est que soit il m'affiche Date - 1 mais pas Date - 3 si on est Lundi, ou inversement, il ne m'affiche que Date - 3 quelque soit le jour de la semaine 

En gros, soit le if ne fonctionne pas, soit il prend le dessus sur la première déclaration de Date - 1. 

Je ne sais pas si il y a une influence (je ne pense pas) mais j'ai intitulé A2 en "Jour"  et A3 en "jour1".  

Merci de ton aide eriiic

clark...kent · Answer

J'ai quand meme essayé ta formule, et ca ne fonctionne pas, si il ne trouve pas de fichier il me revoit à ma fonction VBA suivante : 

 With Sheets("Chargement") 
     
    Workbooks.Open ("C:\" & Format([A3].Value, "dd mm yyyy") & ".xls") 
    If Dir("C:\" & Format([Date - 3].Value, "dd mm yyyy") & ".xls") = "" Then MsgBox "le fichier est introuvable!"

eriiic · Answer

Bonjour,

Ce n'est pas parce que tu changes le format d'affichage que tu changes la valeur.
Dans A2 tu as toujours une date..
If Weekday(Range("A2"), vbMonday) = 7 Then
eric

clark...kent · Answer

Raahh j'avais tenté la fonction weekday mais en écrivant sunday au lieu de monday... Merci bien...ça fonctionne, j'ai rajouté un elseif pour le positionnement du samedi du coup :)

Finalement tu as autre une idée pour mon premier soucis de fichier non trouvé?

clark...kent · Answer

Merci de ton aide, ils étaient bien imbriqués.

J'ai trouvé une autre solution toute simple, je fais exit sub à la fin du if :)

Soilution vraiment toute bête merci pour ton temps!

clark...kent · Answer

Et bien écoute j'ai repris le tout dans une macro toute simple : 
Sub Valider_Click()

    'Ouvre le classeur de Franck selon la date en A3 dans la feuille Chargement
    If Dir("C:\" & Format([A3].Value, "dd mm yyyy") & ".xls") = "" Then MsgBox "le fichier est introuvable!"
    Exit Sub
    End If

    'ouvrir le fichier 
    Workbooks.Open ("C:\" & Format([A3].Value, "dd mm yyyy") & ".xlsx")

Unload Me

End Sub

Et la surprise il me dit qu'il y a un End If sans bloc If!!!

Ouverture d'un classeur excel Macro VBA

8 réponses

Discussions similaires

Newsletters