Ligne de Code pour "Si trouve pas fichier" Then Exit Sub avec message
2 réponses
stormtroopertk1230
Bonjour,
Je voudrai rajouter quelques lignes de codes dans ma macro à savoir que, si le fichier n'existe pas alors la macro continue mais m'averti par un message "Fichier non trouvé"
Ma macro ci-jointe fonctionne.
Sub OuvertureFichiers()
Dim Chemin, Fichier, Aire, NomFichier, NomFeuille, NomceFichier As String
Dim NoAnnee, NoMois, Derlig As Integer
Dim Wb As Workbook
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour,
Fichier = Dir(CheminComplet & NomFichier) if Fichier = "" then Msgbox "message"
Cordialement. Daniel
Bonjour,
Je voudrai rajouter quelques lignes de codes dans ma macro à savoir que, si le fichier n'existe pas alors la macro continue mais m'averti par un message "Fichier non trouvé" Ma macro ci-jointe fonctionne.
Sub OuvertureFichiers()
Dim Chemin, Fichier, Aire, NomFichier, NomFeuille, NomceFichier As String Dim NoAnnee, NoMois, Derlig As Integer Dim Wb As Workbook
Sheets("Menu").Select MsgBox " Ouverture des Fichiers effectuée " & Environ("username"), vbInformation, " Message " End Sub
Bonjour,
Fichier = Dir(CheminComplet & NomFichier)
if Fichier = "" then Msgbox "message"
Cordialement.
Daniel
Bonjour,
Je voudrai rajouter quelques lignes de codes dans ma macro à savoir que, si
le fichier n'existe pas alors la macro continue mais m'averti par un message
"Fichier non trouvé"
Ma macro ci-jointe fonctionne.
Sub OuvertureFichiers()
Dim Chemin, Fichier, Aire, NomFichier, NomFeuille, NomceFichier As String
Dim NoAnnee, NoMois, Derlig As Integer
Dim Wb As Workbook
Fichier = Dir(CheminComplet & NomFichier) if Fichier = "" then Msgbox "message"
Cordialement. Daniel
Bonjour,
Je voudrai rajouter quelques lignes de codes dans ma macro à savoir que, si le fichier n'existe pas alors la macro continue mais m'averti par un message "Fichier non trouvé" Ma macro ci-jointe fonctionne.
Sub OuvertureFichiers()
Dim Chemin, Fichier, Aire, NomFichier, NomFeuille, NomceFichier As String Dim NoAnnee, NoMois, Derlig As Integer Dim Wb As Workbook
Sheets("Menu").Select MsgBox " Ouverture des Fichiers effectuée " & Environ("username"), vbInformation, " Message " End Sub
MichD
Bonjour,
Ta macro contient déjà la ligne de code :
if Dir(CheminComplet & NomFichier) = "" then MsgBox "Ce fichier """ & NomFichier & """ n'existe pas dans ce répertoire """ & CheminComplet & """." End if
Dans ta procédure, cette section pourrait ressembler à ceci :
If Dir(CheminComplet & NomFichier) <> "" Then Set Wk = Workbooks.Open(CheminComplet & NomFichier) Windows(NomceFichier).Activate 'Et les actions à effectuer sur le fichier ouvert else MsgBox "Ce fichier """ & NomFichier & """ n'existe pas dans ce répertoire """ & CheminComplet & """." End If
MichD ------------------------------------------ "stormtroopertk1230" a écrit dans le message de groupe de discussion :
Bonjour,
Je voudrai rajouter quelques lignes de codes dans ma macro à savoir que, si le fichier n'existe pas alors la macro continue mais m'averti par un message "Fichier non trouvé" Ma macro ci-jointe fonctionne.
Sub OuvertureFichiers()
Dim Chemin, Fichier, Aire, NomFichier, NomFeuille, NomceFichier As String Dim NoAnnee, NoMois, Derlig As Integer Dim Wb As Workbook
Sheets("Menu").Select MsgBox " Ouverture des Fichiers effectuée " & Environ("username"), vbInformation, " Message " End Sub
Bonjour,
Ta macro contient déjà la ligne de code :
if Dir(CheminComplet & NomFichier) = "" then
MsgBox "Ce fichier """ & NomFichier & """ n'existe pas dans ce répertoire """ & CheminComplet & """."
End if
Dans ta procédure, cette section pourrait ressembler à ceci :
If Dir(CheminComplet & NomFichier) <> "" Then
Set Wk = Workbooks.Open(CheminComplet & NomFichier)
Windows(NomceFichier).Activate
'Et les actions à effectuer sur le fichier ouvert
else
MsgBox "Ce fichier """ & NomFichier & """ n'existe pas dans ce répertoire """ & CheminComplet & """."
End If
MichD
------------------------------------------
"stormtroopertk1230" a écrit dans le message de groupe de discussion : JIqdndqM67MEz3bTRVn_vwA@giganews.com...
Bonjour,
Je voudrai rajouter quelques lignes de codes dans ma macro à savoir que, si le
fichier n'existe pas alors la macro continue mais m'averti par un message
"Fichier non trouvé"
Ma macro ci-jointe fonctionne.
Sub OuvertureFichiers()
Dim Chemin, Fichier, Aire, NomFichier, NomFeuille, NomceFichier As String
Dim NoAnnee, NoMois, Derlig As Integer
Dim Wb As Workbook
if Dir(CheminComplet & NomFichier) = "" then MsgBox "Ce fichier """ & NomFichier & """ n'existe pas dans ce répertoire """ & CheminComplet & """." End if
Dans ta procédure, cette section pourrait ressembler à ceci :
If Dir(CheminComplet & NomFichier) <> "" Then Set Wk = Workbooks.Open(CheminComplet & NomFichier) Windows(NomceFichier).Activate 'Et les actions à effectuer sur le fichier ouvert else MsgBox "Ce fichier """ & NomFichier & """ n'existe pas dans ce répertoire """ & CheminComplet & """." End If
MichD ------------------------------------------ "stormtroopertk1230" a écrit dans le message de groupe de discussion :
Bonjour,
Je voudrai rajouter quelques lignes de codes dans ma macro à savoir que, si le fichier n'existe pas alors la macro continue mais m'averti par un message "Fichier non trouvé" Ma macro ci-jointe fonctionne.
Sub OuvertureFichiers()
Dim Chemin, Fichier, Aire, NomFichier, NomFeuille, NomceFichier As String Dim NoAnnee, NoMois, Derlig As Integer Dim Wb As Workbook