Ouverture d'un classeur excel Macro VBA

Résolu

clark...kent -
clark...kent - 25 avril 2012 à 14:39

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.

A voir également:

Ouverture d'un classeur excel Macro VBA
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Trier un tableau excel - Guide
Déplacer colonne excel - Guide

8 réponses

Réponse 1 / 8

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonjour,

tu peux utiliser Dir() :

If Dir("C:\toto.xls") = "" Then MsgBox "le fichier est introuvable!"

eric

Réponse 2 / 8

clark...kent

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

Réponse 3 / 8

clark...kent

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

Réponse 4 / 8

clark...kent

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!"

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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

Réponse 6 / 8

clark...kent

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é?

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Ben non puisqu'elle est simple et marche très bien.
Fais le test d'existence avant d'essayer de l'ouvrir.
eric

clark...kent

Déjà essayé. il éxécute bien le if mais aussi la commande ouvrir du coup.

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

imbrique tes if correctement.
Par exemple :

If Weekday(Range("A2"), vbMonday) = 7 Then
  If Dir("path/nomDuFichier") = "" Then 
    MsgBox "le fichier est introuvable!"
  else
    'traitement 
    'ouvrir le fichier
    '...
  endif
endif

eric

Réponse 7 / 8

clark...kent

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!

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

parfait, n'oublie pas de mettre en résolu (en haut)
eric

clark...kent

j'ai parlé trop vite, il sort de la fonction si il ne trouve rien
mais il n'exécute pas la suite cette fois ci si le fichier existe.

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

parce que tu ne maitrises pas bien la stucture de ton programme
eric

Réponse 8 / 8

clark...kent

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!!!

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

il te manque les bases de la programmation...

2 syntaxes pour if :

if test then tratement 'tout sur une ligne : pas de endif

if test
traitement1
else
traitement2
endif

Je pense que la question de départ est résolue, je met le fil en résolu
Démarre un nouveau fil si nouvelle question

eric

clark...kent

merci de ton aide et de ta patience

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Votre réponse

Discussions similaires