Bonjour,
J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans
"Mes documents"
Et si celui-ci n'existe pas alors lancer un msgbox.
je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath"
Je vous remercie
Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine &
_
" dans le dossier * Mes documents *",
vbExclamation, " Fichier manquant !"
Else
MsgBox "tata"
End If
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
isabelle
bonjour Alain,
ChDir "C:Documents and SettingsAdministrateurMes documents" On Error Resume Next Workbooks.Open CurDir & "Mon fichier 2008.xls" If Err.Number <> 0 Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ "dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
isabelle
alain Lebayle a écrit :
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
bonjour Alain,
ChDir "C:Documents and SettingsAdministrateurMes documents"
On Error Resume Next
Workbooks.Open CurDir & "Mon fichier 2008.xls"
If Err.Number <> 0 Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _
"dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !"
Else
MsgBox "tata"
End If
isabelle
alain Lebayle a écrit :
Bonjour,
J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans
"Mes documents"
Et si celui-ci n'existe pas alors lancer un msgbox.
je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath"
Je vous remercie
Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine &
_
" dans le dossier * Mes documents *",
vbExclamation, " Fichier manquant !"
Else
MsgBox "tata"
End If
ChDir "C:Documents and SettingsAdministrateurMes documents" On Error Resume Next Workbooks.Open CurDir & "Mon fichier 2008.xls" If Err.Number <> 0 Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ "dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
isabelle
alain Lebayle a écrit :
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
Papyjac
Bonjour Alain,
Pour Mes documents j'utilise la fonction Environ("APPDATA") le résultat pointe sur le dossier père de Mes documents
-- Papyjac
"alain Lebayle" a écrit :
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
--
Bonjour Alain,
Pour Mes documents j'utilise la fonction Environ("APPDATA") le résultat
pointe sur le dossier père de Mes documents
--
Papyjac
"alain Lebayle" a écrit :
Bonjour,
J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans
"Mes documents"
Et si celui-ci n'existe pas alors lancer un msgbox.
je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath"
Je vous remercie
Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine &
_
" dans le dossier * Mes documents *",
vbExclamation, " Fichier manquant !"
Else
MsgBox "tata"
End If
Pour Mes documents j'utilise la fonction Environ("APPDATA") le résultat pointe sur le dossier père de Mes documents
-- Papyjac
"alain Lebayle" a écrit :
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
--
alain Lebayle
Bonsoir, Le problème est que justement, c'est un programme que j'envoie dans différent endroit dans toute la France. Je ne connais pas le nom des divers utilisateurs, c'est pourquoi je souhaitais utiliser la syntaxe "Application.DefaultFilePath" Je vous remercie Alain
"isabelle" a écrit dans le message de news:
bonjour Alain,
ChDir "C:Documents and SettingsAdministrateurMes documents" On Error Resume Next Workbooks.Open CurDir & "Mon fichier 2008.xls" If Err.Number <> 0 Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ "dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
isabelle
alain Lebayle a écrit :
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
Bonsoir,
Le problème est que justement, c'est un programme que j'envoie dans
différent endroit dans toute la France. Je ne connais pas le nom des divers
utilisateurs, c'est pourquoi je souhaitais utiliser la syntaxe
"Application.DefaultFilePath"
Je vous remercie
Alain
"isabelle" <i@v> a écrit dans le message de news:
eRV31XUMJHA.3744@TK2MSFTNGP05.phx.gbl...
bonjour Alain,
ChDir "C:Documents and SettingsAdministrateurMes documents"
On Error Resume Next
Workbooks.Open CurDir & "Mon fichier 2008.xls"
If Err.Number <> 0 Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine
& _
"dans le dossier * Mes documents *", vbExclamation, " Fichier manquant
!"
Else
MsgBox "tata"
End If
isabelle
alain Lebayle a écrit :
Bonjour,
J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier
dans
"Mes documents"
Et si celui-ci n'existe pas alors lancer un msgbox.
je souhaite le "Mes documents" par défaut avec
"Application.DefaultFilePath"
Je vous remercie
Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" &
vbNewLine &
_
" dans le dossier * Mes documents *",
vbExclamation, " Fichier manquant !"
Else
MsgBox "tata"
End If
Bonsoir, Le problème est que justement, c'est un programme que j'envoie dans différent endroit dans toute la France. Je ne connais pas le nom des divers utilisateurs, c'est pourquoi je souhaitais utiliser la syntaxe "Application.DefaultFilePath" Je vous remercie Alain
"isabelle" a écrit dans le message de news:
bonjour Alain,
ChDir "C:Documents and SettingsAdministrateurMes documents" On Error Resume Next Workbooks.Open CurDir & "Mon fichier 2008.xls" If Err.Number <> 0 Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ "dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
isabelle
alain Lebayle a écrit :
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
Jacky
Re... '--------- ChDir Application.DefaultFilePath If Dir("Mon fichier 2008.xls") = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & "dans le dossier " & Application.DefaultFilePath, vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If '------------------
-- Salutations JJ
"alain Lebayle" a écrit dans le message de news: 48fa0e99$0$7933$
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
--
Re...
'---------
ChDir Application.DefaultFilePath
If Dir("Mon fichier 2008.xls") = "" Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine &
"dans le dossier " & Application.DefaultFilePath, vbExclamation, " Fichier
manquant !"
Else
MsgBox "tata"
End If
'------------------
--
Salutations
JJ
"alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le message de
news: 48fa0e99$0$7933$7a628cd7@news.club-internet.fr...
Bonjour,
J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans
"Mes documents"
Et si celui-ci n'existe pas alors lancer un msgbox.
je souhaite le "Mes documents" par défaut avec
"Application.DefaultFilePath"
Je vous remercie
Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine
&
_
" dans le dossier * Mes documents *",
vbExclamation, " Fichier manquant !"
Else
MsgBox "tata"
End If
Re... '--------- ChDir Application.DefaultFilePath If Dir("Mon fichier 2008.xls") = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & "dans le dossier " & Application.DefaultFilePath, vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If '------------------
-- Salutations JJ
"alain Lebayle" a écrit dans le message de news: 48fa0e99$0$7933$
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
--
alain Lebayle
Merci beaucoup encore une fois !!! Alain
"Jacky" a écrit dans le message de news: %
Re... '--------- ChDir Application.DefaultFilePath If Dir("Mon fichier 2008.xls") = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & "dans le dossier " & Application.DefaultFilePath, vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If '------------------
-- Salutations JJ
"alain Lebayle" a écrit dans le message de news: 48fa0e99$0$7933$
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If
--
Merci beaucoup encore une fois !!!
Alain
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%239PSFxUMJHA.1736@TK2MSFTNGP03.phx.gbl...
Re...
'---------
ChDir Application.DefaultFilePath
If Dir("Mon fichier 2008.xls") = "" Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine
& "dans le dossier " & Application.DefaultFilePath, vbExclamation, "
Fichier manquant !"
Else
MsgBox "tata"
End If
'------------------
--
Salutations
JJ
"alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le message
de news: 48fa0e99$0$7933$7a628cd7@news.club-internet.fr...
Bonjour,
J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier
dans
"Mes documents"
Et si celui-ci n'existe pas alors lancer un msgbox.
je souhaite le "Mes documents" par défaut avec
"Application.DefaultFilePath"
Je vous remercie
Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then
MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" &
vbNewLine &
_
" dans le dossier * Mes documents *",
vbExclamation, " Fichier manquant !"
Else
MsgBox "tata"
End If
Re... '--------- ChDir Application.DefaultFilePath If Dir("Mon fichier 2008.xls") = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & "dans le dossier " & Application.DefaultFilePath, vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If '------------------
-- Salutations JJ
"alain Lebayle" a écrit dans le message de news: 48fa0e99$0$7933$
Bonjour, J'ai un problème de syntaxe, je souhaite pouvoir récupérer un fichier dans "Mes documents" Et si celui-ci n'existe pas alors lancer un msgbox. je souhaite le "Mes documents" par défaut avec "Application.DefaultFilePath" Je vous remercie Alain
If Dir(Application.DefaultFilePath & [Mon fichier 2008.xls]) = "" Then MsgBox "Vous devez mettre le fichier * Mon fichier 2008.xls *" & vbNewLine & _ " dans le dossier * Mes documents *", vbExclamation, " Fichier manquant !" Else MsgBox "tata" End If