L
Ludovic
Guest
Bonjour à tous,
j'ai effectué une macro, j'aimerais, lorsqu'il y a une erreur lors de l'éxécution de cette macro, pouvoir afficher un fichier aide. Qui lui aussi est accessible par une macro.
En effet, il peut y avoir une erreur lors de ma première macro, (cette macro permet d'enregistrer mon classeur dans un répertoire bien définit, donc si il n'est pas créé, une erreure est obligatoire, si l'utilisateur n'entre pas correctement les éléments. Donc, pour l'aider à comprendre, j'ai effectué une autre macro d'aide, qui, elle peut être accessible à tous moments dans mon classeur excel. Mais j'aimerais qu'elle s'affiche automatiquement si la première macro ne fonctionne pas.
Ma macro d'aide est :
Sub HelpFile1()
Dim fso As Object, fich As Object, TxtAide$, NomFich$
NomFich = "C:\Windows\Temp\MonAide.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fich = fso.CreateTextFile(NomFich, True)
TxtAide = "A l'ouverture du classeur, je vous propose l'aide à la création de votre dossier." & vbCrLf & _
"" & vbCrLf & _
"Si la procédure d'enregistrement ne fonctionne pas : " & vbCrLf & _
" - vérifier que le client inscrit en B9 est bien créé dans" & vbCrLf & _
" votre répertoire client car si vous avez un bug, c'est qu'il n'existe pas," & vbCrLf & _
" ou qu'il n'est pas créé à l'identique." & vbCrLf & _
"" & vbCrLf & _
"Pour réparer : " & vbCrLf & _
" - refermer le dossier de contrôle," & vbCrLf & _
" - créer votre client dans votre répertoire (attention le nom doit être identique)" & vbCrLf & _
"" & vbCrLf & _
"Puis :" & vbCrLf & _
" - ouvrir à nouveau le dossier de contrôle," & vbCrLf & _
" - recommencer la procédure d'aide automatique" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"N.B. : Vous pouvez imprimer cet aide : (Fichier Imprimer) "
fich.write TxtAide
fich.Close
Shell "Notepad " & NomFich, vbNormalFocus
End Sub
merci d'avance
j'ai effectué une macro, j'aimerais, lorsqu'il y a une erreur lors de l'éxécution de cette macro, pouvoir afficher un fichier aide. Qui lui aussi est accessible par une macro.
En effet, il peut y avoir une erreur lors de ma première macro, (cette macro permet d'enregistrer mon classeur dans un répertoire bien définit, donc si il n'est pas créé, une erreure est obligatoire, si l'utilisateur n'entre pas correctement les éléments. Donc, pour l'aider à comprendre, j'ai effectué une autre macro d'aide, qui, elle peut être accessible à tous moments dans mon classeur excel. Mais j'aimerais qu'elle s'affiche automatiquement si la première macro ne fonctionne pas.
Ma macro d'aide est :
Sub HelpFile1()
Dim fso As Object, fich As Object, TxtAide$, NomFich$
NomFich = "C:\Windows\Temp\MonAide.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fich = fso.CreateTextFile(NomFich, True)
TxtAide = "A l'ouverture du classeur, je vous propose l'aide à la création de votre dossier." & vbCrLf & _
"" & vbCrLf & _
"Si la procédure d'enregistrement ne fonctionne pas : " & vbCrLf & _
" - vérifier que le client inscrit en B9 est bien créé dans" & vbCrLf & _
" votre répertoire client car si vous avez un bug, c'est qu'il n'existe pas," & vbCrLf & _
" ou qu'il n'est pas créé à l'identique." & vbCrLf & _
"" & vbCrLf & _
"Pour réparer : " & vbCrLf & _
" - refermer le dossier de contrôle," & vbCrLf & _
" - créer votre client dans votre répertoire (attention le nom doit être identique)" & vbCrLf & _
"" & vbCrLf & _
"Puis :" & vbCrLf & _
" - ouvrir à nouveau le dossier de contrôle," & vbCrLf & _
" - recommencer la procédure d'aide automatique" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"N.B. : Vous pouvez imprimer cet aide : (Fichier Imprimer) "
fich.write TxtAide
fich.Close
Shell "Notepad " & NomFich, vbNormalFocus
End Sub
merci d'avance
