J'ai cr=E9er une appli EXCEL avec de nombreuses macros VBA=20
(via des userform). L'une des macros consiste =E0 cr=E9er un=20
fichier dans un r=E9pertoire particulier en selectionnant le=20
chemin. Afin d'eviter des bugs dans l'execution de ma=20
macro, j'utilise une syntaxe de type On Error si le chemin=20
n'existe pas, sinon il poursuit la proc=E9dure (cr=E9ation=20
d'=E9tat).
On Error GoTo Gestion_Erreur_CG
ActiveWorkbook.SaveAs (CB_Chemin & "Controle de=20
Gestion " & DateImp & ".xls")
SUITE_CG
MsgBox ("Les tableaux et Graphiques du controle de=20
gestion ont =E9t=E9 sauvegard=E9s correctement" & Chr(13) &=20
Chr(13) & _
CB_Chemin & "Controle de Gestion")
Exit Sub
Gestion_Erreur_CG:
MsgBox "Le chemin indiqu=E9 n'existe pas."
Windows(N_fichier).Activate: ActiveWorkbook.Close
Application.DisplayAlerts =3D True
Exit Sub
Resume Next
Probl=E8me : Sur certaines machines la macro r=E9agit=20
correctement, par contre sur d'autres, la macro me fait=20
apparaitre le message "le chemin n'existe pas", alors=20
qu'il existe r=E9ellement.
OU EST LE PROBLEME ??=20
1- Ma macro est-elle d=E9faillante ???
2- Ou est-ce un probl=E8me mat=E9riel ???=20
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
papou
Bonjour Dans ta macro le On Error ne "piège" pas le type d'erreur rencontré Donc tu auras ton message d'erreur notamment si par exemple l'une de tes variables utilisée dans le nom de fichier n'est pas correcte ou si le nom de fichier existe déjà.
Cordialement Pascal
"NEICNA" a écrit dans le message de news:1376f01c443ea$9f3622f0$ Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA (via des userform). L'une des macros consiste à créer un fichier dans un répertoire particulier en selectionnant le chemin. Afin d'eviter des bugs dans l'execution de ma macro, j'utilise une syntaxe de type On Error si le chemin n'existe pas, sinon il poursuit la procédure (création d'état).
On Error GoTo Gestion_Erreur_CG ActiveWorkbook.SaveAs (CB_Chemin & "Controle de Gestion " & DateImp & ".xls") SUITE_CG MsgBox ("Les tableaux et Graphiques du controle de gestion ont été sauvegardés correctement" & Chr(13) & Chr(13) & _ CB_Chemin & "Controle de Gestion") Exit Sub
Gestion_Erreur_CG: MsgBox "Le chemin indiqué n'existe pas." Windows(N_fichier).Activate: ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Resume Next
Problème : Sur certaines machines la macro réagit correctement, par contre sur d'autres, la macro me fait apparaitre le message "le chemin n'existe pas", alors qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ??? 2- Ou est-ce un problème matériel ???
Que Faire ????
Merci à tous pour votre aide Frédéric
Bonjour
Dans ta macro le On Error ne "piège" pas le type d'erreur rencontré
Donc tu auras ton message d'erreur notamment si par exemple l'une de tes
variables utilisée dans le nom de fichier n'est pas correcte ou si le nom de
fichier existe déjà.
Cordialement
Pascal
"NEICNA" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1376f01c443ea$9f3622f0$a501280a@phx.gbl...
Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA
(via des userform). L'une des macros consiste à créer un
fichier dans un répertoire particulier en selectionnant le
chemin. Afin d'eviter des bugs dans l'execution de ma
macro, j'utilise une syntaxe de type On Error si le chemin
n'existe pas, sinon il poursuit la procédure (création
d'état).
On Error GoTo Gestion_Erreur_CG
ActiveWorkbook.SaveAs (CB_Chemin & "Controle de
Gestion " & DateImp & ".xls")
SUITE_CG
MsgBox ("Les tableaux et Graphiques du controle de
gestion ont été sauvegardés correctement" & Chr(13) &
Chr(13) & _
CB_Chemin & "Controle de Gestion")
Exit Sub
Gestion_Erreur_CG:
MsgBox "Le chemin indiqué n'existe pas."
Windows(N_fichier).Activate: ActiveWorkbook.Close
Application.DisplayAlerts = True
Exit Sub
Resume Next
Problème : Sur certaines machines la macro réagit
correctement, par contre sur d'autres, la macro me fait
apparaitre le message "le chemin n'existe pas", alors
qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ???
2- Ou est-ce un problème matériel ???
Bonjour Dans ta macro le On Error ne "piège" pas le type d'erreur rencontré Donc tu auras ton message d'erreur notamment si par exemple l'une de tes variables utilisée dans le nom de fichier n'est pas correcte ou si le nom de fichier existe déjà.
Cordialement Pascal
"NEICNA" a écrit dans le message de news:1376f01c443ea$9f3622f0$ Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA (via des userform). L'une des macros consiste à créer un fichier dans un répertoire particulier en selectionnant le chemin. Afin d'eviter des bugs dans l'execution de ma macro, j'utilise une syntaxe de type On Error si le chemin n'existe pas, sinon il poursuit la procédure (création d'état).
On Error GoTo Gestion_Erreur_CG ActiveWorkbook.SaveAs (CB_Chemin & "Controle de Gestion " & DateImp & ".xls") SUITE_CG MsgBox ("Les tableaux et Graphiques du controle de gestion ont été sauvegardés correctement" & Chr(13) & Chr(13) & _ CB_Chemin & "Controle de Gestion") Exit Sub
Gestion_Erreur_CG: MsgBox "Le chemin indiqué n'existe pas." Windows(N_fichier).Activate: ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Resume Next
Problème : Sur certaines machines la macro réagit correctement, par contre sur d'autres, la macro me fait apparaitre le message "le chemin n'existe pas", alors qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ??? 2- Ou est-ce un problème matériel ???
Que Faire ????
Merci à tous pour votre aide Frédéric
Gloops
Salut,
Bien vérifier si il y a une barre inverse ou pas à la fin du chemin d'accès.
Ah, la question de la sélection d'un répertoire par l'utilisateur a du succès, ces semaines-ci ... _____________________________________ NEICNA a écrit, le 27/05/2004 15:00 :
Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA (via des userform). L'une des macros consiste à créer un fichier dans un répertoire particulier en selectionnant le chemin. Afin d'eviter des bugs dans l'execution de ma macro, j'utilise une syntaxe de type On Error si le chemin n'existe pas, sinon il poursuit la procédure (création d'état).
On Error GoTo Gestion_Erreur_CG ActiveWorkbook.SaveAs (CB_Chemin & "Controle de Gestion " & DateImp & ".xls") SUITE_CG MsgBox ("Les tableaux et Graphiques du controle de gestion ont été sauvegardés correctement" & Chr(13) & Chr(13) & _ CB_Chemin & "Controle de Gestion") Exit Sub
Gestion_Erreur_CG: MsgBox "Le chemin indiqué n'existe pas." Windows(N_fichier).Activate: ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Resume Next
Problème : Sur certaines machines la macro réagit correctement, par contre sur d'autres, la macro me fait apparaitre le message "le chemin n'existe pas", alors qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ??? 2- Ou est-ce un problème matériel ???
Que Faire ????
Merci à tous pour votre aide Frédéric
Salut,
Bien vérifier si il y a une barre inverse ou pas à la fin du chemin d'accès.
Ah, la question de la sélection d'un répertoire par l'utilisateur a du
succès, ces semaines-ci ...
_____________________________________
NEICNA a écrit, le 27/05/2004 15:00 :
Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA
(via des userform). L'une des macros consiste à créer un
fichier dans un répertoire particulier en selectionnant le
chemin. Afin d'eviter des bugs dans l'execution de ma
macro, j'utilise une syntaxe de type On Error si le chemin
n'existe pas, sinon il poursuit la procédure (création
d'état).
On Error GoTo Gestion_Erreur_CG
ActiveWorkbook.SaveAs (CB_Chemin & "Controle de
Gestion " & DateImp & ".xls")
SUITE_CG
MsgBox ("Les tableaux et Graphiques du controle de
gestion ont été sauvegardés correctement" & Chr(13) &
Chr(13) & _
CB_Chemin & "Controle de Gestion")
Exit Sub
Gestion_Erreur_CG:
MsgBox "Le chemin indiqué n'existe pas."
Windows(N_fichier).Activate: ActiveWorkbook.Close
Application.DisplayAlerts = True
Exit Sub
Resume Next
Problème : Sur certaines machines la macro réagit
correctement, par contre sur d'autres, la macro me fait
apparaitre le message "le chemin n'existe pas", alors
qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ???
2- Ou est-ce un problème matériel ???
Bien vérifier si il y a une barre inverse ou pas à la fin du chemin d'accès.
Ah, la question de la sélection d'un répertoire par l'utilisateur a du succès, ces semaines-ci ... _____________________________________ NEICNA a écrit, le 27/05/2004 15:00 :
Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA (via des userform). L'une des macros consiste à créer un fichier dans un répertoire particulier en selectionnant le chemin. Afin d'eviter des bugs dans l'execution de ma macro, j'utilise une syntaxe de type On Error si le chemin n'existe pas, sinon il poursuit la procédure (création d'état).
On Error GoTo Gestion_Erreur_CG ActiveWorkbook.SaveAs (CB_Chemin & "Controle de Gestion " & DateImp & ".xls") SUITE_CG MsgBox ("Les tableaux et Graphiques du controle de gestion ont été sauvegardés correctement" & Chr(13) & Chr(13) & _ CB_Chemin & "Controle de Gestion") Exit Sub
Gestion_Erreur_CG: MsgBox "Le chemin indiqué n'existe pas." Windows(N_fichier).Activate: ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Resume Next
Problème : Sur certaines machines la macro réagit correctement, par contre sur d'autres, la macro me fait apparaitre le message "le chemin n'existe pas", alors qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ??? 2- Ou est-ce un problème matériel ???
Que Faire ????
Merci à tous pour votre aide Frédéric
J-Dan
salut Neicna,
si ton programme fonctionne sur certains postes et pas d'autres, ne s'agit-il pas de problème de reseau et d'autorisation d'acces a un serveur ? Je n'ai pas etudie ton code, mais c'est la premiere hypothese que je verifierai dans ton cas.
-----Message d'origine----- Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA (via des userform). L'une des macros consiste à créer un fichier dans un répertoire particulier en selectionnant le
chemin. Afin d'eviter des bugs dans l'execution de ma macro, j'utilise une syntaxe de type On Error si le chemin
n'existe pas, sinon il poursuit la procédure (création d'état).
On Error GoTo Gestion_Erreur_CG ActiveWorkbook.SaveAs (CB_Chemin & "Controle de Gestion " & DateImp & ".xls") SUITE_CG MsgBox ("Les tableaux et Graphiques du controle de gestion ont été sauvegardés correctement" & Chr(13) &
Chr(13) & _ CB_Chemin & "Controle de Gestion") Exit Sub
Gestion_Erreur_CG: MsgBox "Le chemin indiqué n'existe pas." Windows(N_fichier).Activate: ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Resume Next
Problème : Sur certaines machines la macro réagit correctement, par contre sur d'autres, la macro me fait apparaitre le message "le chemin n'existe pas", alors qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ??? 2- Ou est-ce un problème matériel ???
Que Faire ????
Merci à tous pour votre aide Frédéric .
salut Neicna,
si ton programme fonctionne sur certains postes et pas
d'autres, ne s'agit-il pas de problème de reseau et
d'autorisation d'acces a un serveur ?
Je n'ai pas etudie ton code, mais c'est la premiere
hypothese que je verifierai dans ton cas.
-----Message d'origine-----
Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA
(via des userform). L'une des macros consiste à créer un
fichier dans un répertoire particulier en selectionnant
le
chemin. Afin d'eviter des bugs dans l'execution de ma
macro, j'utilise une syntaxe de type On Error si le
chemin
n'existe pas, sinon il poursuit la procédure (création
d'état).
On Error GoTo Gestion_Erreur_CG
ActiveWorkbook.SaveAs (CB_Chemin & "Controle de
Gestion " & DateImp & ".xls")
SUITE_CG
MsgBox ("Les tableaux et Graphiques du controle de
gestion ont été sauvegardés correctement" & Chr(13)
&
Chr(13) & _
CB_Chemin & "Controle de Gestion")
Exit Sub
Gestion_Erreur_CG:
MsgBox "Le chemin indiqué n'existe pas."
Windows(N_fichier).Activate: ActiveWorkbook.Close
Application.DisplayAlerts = True
Exit Sub
Resume Next
Problème : Sur certaines machines la macro réagit
correctement, par contre sur d'autres, la macro me fait
apparaitre le message "le chemin n'existe pas", alors
qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ???
2- Ou est-ce un problème matériel ???
si ton programme fonctionne sur certains postes et pas d'autres, ne s'agit-il pas de problème de reseau et d'autorisation d'acces a un serveur ? Je n'ai pas etudie ton code, mais c'est la premiere hypothese que je verifierai dans ton cas.
-----Message d'origine----- Salut à tous,
J'ai créer une appli EXCEL avec de nombreuses macros VBA (via des userform). L'une des macros consiste à créer un fichier dans un répertoire particulier en selectionnant le
chemin. Afin d'eviter des bugs dans l'execution de ma macro, j'utilise une syntaxe de type On Error si le chemin
n'existe pas, sinon il poursuit la procédure (création d'état).
On Error GoTo Gestion_Erreur_CG ActiveWorkbook.SaveAs (CB_Chemin & "Controle de Gestion " & DateImp & ".xls") SUITE_CG MsgBox ("Les tableaux et Graphiques du controle de gestion ont été sauvegardés correctement" & Chr(13) &
Chr(13) & _ CB_Chemin & "Controle de Gestion") Exit Sub
Gestion_Erreur_CG: MsgBox "Le chemin indiqué n'existe pas." Windows(N_fichier).Activate: ActiveWorkbook.Close Application.DisplayAlerts = True Exit Sub Resume Next
Problème : Sur certaines machines la macro réagit correctement, par contre sur d'autres, la macro me fait apparaitre le message "le chemin n'existe pas", alors qu'il existe réellement.
OU EST LE PROBLEME ??
1- Ma macro est-elle défaillante ??? 2- Ou est-ce un problème matériel ???
