Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" a écrit dans le message de news:
%Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de news:
%232bGEINRKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" a écrit dans le message de news:
%Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" a écrit dans le message de news:
%Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de news:
%232bGEINRKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" a écrit dans le message de news:
%Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Me re-voilà...
Une info supplémentaire peut-être responsable de qq chose.
La Sub initiale dans laquelle se trouve la ligne en cause
se nomme : Sub téléchrgt_bnq_CA()
Dans le module :
M5_téléchrgt_bnq_CA du projet VBAProject(PERSO.xls).
Lors de l'élaboration des procédures VBA
dans mon projet (Classeur bnqCA.xls)
J'ai vu une alerte (de mémoire): Nom "téléchrgt_bnq_CA" ambigu.
Je n'ai rien trouvé d'anormal, ce nom n'apparaît nulle part ailleurs,
J'ai donc ignoré cette alerte, qui n'est d'ailleurs plus réapparue.
Serait-ce là une cause du problème ?
Merci de ton attention (et peut-être de celle de qq autres...)
laurent.daures a écrit :bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" a écrit dans le message de news:
%Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Me re-voilà...
Une info supplémentaire peut-être responsable de qq chose.
La Sub initiale dans laquelle se trouve la ligne en cause
se nomme : Sub téléchrgt_bnq_CA()
Dans le module :
M5_téléchrgt_bnq_CA du projet VBAProject(PERSO.xls).
Lors de l'élaboration des procédures VBA
dans mon projet (Classeur bnqCA.xls)
J'ai vu une alerte (de mémoire): Nom "téléchrgt_bnq_CA" ambigu.
Je n'ai rien trouvé d'anormal, ce nom n'apparaît nulle part ailleurs,
J'ai donc ignoré cette alerte, qui n'est d'ailleurs plus réapparue.
Serait-ce là une cause du problème ?
Merci de ton attention (et peut-être de celle de qq autres...)
laurent.daures a écrit :
bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de news:
%232bGEINRKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Me re-voilà...
Une info supplémentaire peut-être responsable de qq chose.
La Sub initiale dans laquelle se trouve la ligne en cause
se nomme : Sub téléchrgt_bnq_CA()
Dans le module :
M5_téléchrgt_bnq_CA du projet VBAProject(PERSO.xls).
Lors de l'élaboration des procédures VBA
dans mon projet (Classeur bnqCA.xls)
J'ai vu une alerte (de mémoire): Nom "téléchrgt_bnq_CA" ambigu.
Je n'ai rien trouvé d'anormal, ce nom n'apparaît nulle part ailleurs,
J'ai donc ignoré cette alerte, qui n'est d'ailleurs plus réapparue.
Serait-ce là une cause du problème ?
Merci de ton attention (et peut-être de celle de qq autres...)
laurent.daures a écrit :bonjour,
cela arrive lorsque la feuille en question est masquée.
Est-ce le cas ?
est-ce qu'il y a bien 3 feuilles dans le classeur ?
teste cette macro qui te dira tout ça.
Sub feuilles()
For i = 1 To Sheets.Count
If Sheets(i).Visible = xlSheetHidden Then
MsgBox "feuille " & i & " masquée"
End If
MsgBox i & " " & Sheets(i).Name
Next i
End Sub
amicalement
Siesting Hoax
"LANIMAL" a écrit dans le message de news:
%Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de groupe de discussion :
#2bGEINRKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de groupe de discussion :
#2bGEINRKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Comme tu as fait référence dans un de tes messages précédents
de ton classeur perso,
Où ta procédure est-elle écrite ?
Si elle est dans ton perso, et que tu n'as pas ajouté la référence
au classeur actif à l'écran, cela ne peut pas fonctionner !
With Workbooks("NomDuClasseurActif.xls")
.Activate
.Sheets(3).Select
End With
Est-ce toujours pareil ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour
Ben oui, elle est toujours là :-((
à +... peut-être ?
michdenis a écrit :Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Comme tu as fait référence dans un de tes messages précédents
de ton classeur perso,
Où ta procédure est-elle écrite ?
Si elle est dans ton perso, et que tu n'as pas ajouté la référence
au classeur actif à l'écran, cela ne peut pas fonctionner !
With Workbooks("NomDuClasseurActif.xls")
.Activate
.Sheets(3).Select
End With
Est-ce toujours pareil ?
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de groupe de discussion :
#y6vdSORKHA.4504@TK2MSFTNGP04.phx.gbl...
Bonjour
Ben oui, elle est toujours là :-((
à +... peut-être ?
michdenis a écrit :
Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de groupe de discussion :
#2bGEINRKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Comme tu as fait référence dans un de tes messages précédents
de ton classeur perso,
Où ta procédure est-elle écrite ?
Si elle est dans ton perso, et que tu n'as pas ajouté la référence
au classeur actif à l'écran, cela ne peut pas fonctionner !
With Workbooks("NomDuClasseurActif.xls")
.Activate
.Sheets(3).Select
End With
Est-ce toujours pareil ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour
Ben oui, elle est toujours là :-((
à +... peut-être ?
michdenis a écrit :Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Bonjour
Sans vouloir enlever un iota aux excellentes réponses, auserais-je suggérer
de cliquer sur chaque onglet et le rebaptiser? Il arrive que certains signes
se glissent sournoisement dans les noms, voire des espaces et ce, à l'insu
du plein gré de l'auteur.
Le mieux, c'est d'effacer et rebaptiser chaque feuille. Après, on verra si
le problème est troujours présent.
Bonne chance et bon WE
Bonjour
Sans vouloir enlever un iota aux excellentes réponses, auserais-je suggérer
de cliquer sur chaque onglet et le rebaptiser? Il arrive que certains signes
se glissent sournoisement dans les noms, voire des espaces et ce, à l'insu
du plein gré de l'auteur.
Le mieux, c'est d'effacer et rebaptiser chaque feuille. Après, on verra si
le problème est troujours présent.
Bonne chance et bon WE
Bonjour
Sans vouloir enlever un iota aux excellentes réponses, auserais-je suggérer
de cliquer sur chaque onglet et le rebaptiser? Il arrive que certains signes
se glissent sournoisement dans les noms, voire des espaces et ce, à l'insu
du plein gré de l'auteur.
Le mieux, c'est d'effacer et rebaptiser chaque feuille. Après, on verra si
le problème est troujours présent.
Bonne chance et bon WE
Comme tu as fait référence dans un de tes messages précédents
de ton classeur perso,
Où ta procédure est-elle écrite ?
Si elle est dans ton perso, et que tu n'as pas ajouté la référence
au classeur actif à l'écran, cela ne peut pas fonctionner !
With Workbooks("NomDuClasseurActif.xls")
.Activate
.Sheets(3).Select
End With
Est-ce toujours pareil ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour
Ben oui, elle est toujours là :-((
à +... peut-être ?
michdenis a écrit :Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Comme tu as fait référence dans un de tes messages précédents
de ton classeur perso,
Où ta procédure est-elle écrite ?
Si elle est dans ton perso, et que tu n'as pas ajouté la référence
au classeur actif à l'écran, cela ne peut pas fonctionner !
With Workbooks("NomDuClasseurActif.xls")
.Activate
.Sheets(3).Select
End With
Est-ce toujours pareil ?
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de groupe de discussion :
#y6vdSORKHA.4504@TK2MSFTNGP04.phx.gbl...
Bonjour
Ben oui, elle est toujours là :-((
à +... peut-être ?
michdenis a écrit :
Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" <noreply@xxx.yy> a écrit dans le message de groupe de discussion :
#2bGEINRKHA.1232@TK2MSFTNGP05.phx.gbl...
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !
Comme tu as fait référence dans un de tes messages précédents
de ton classeur perso,
Où ta procédure est-elle écrite ?
Si elle est dans ton perso, et que tu n'as pas ajouté la référence
au classeur actif à l'écran, cela ne peut pas fonctionner !
With Workbooks("NomDuClasseurActif.xls")
.Activate
.Sheets(3).Select
End With
Est-ce toujours pareil ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour
Ben oui, elle est toujours là :-((
à +... peut-être ?
michdenis a écrit :Bonjour,
Essaie ce petit test :
Copie l'intégralité du contenu de ton module
(de la première à la dernière ligne) dans
l'application NotePad pour le conserver.
Lorsque tu as sauvegardé ton code, supprime
la totalité de ton code du module, enregistre
ton classeur et saisis à nouveau ta procédure
qui est problématique. As-tu toujours ton
erreur ?
"LANIMAL" a écrit dans le message de groupe de discussion :
#
Bonjour,
Pendant 3 heures, j'enrage.
Le classeur bnqCA.xls comporte 3 feuilles :
"Mi" - "Report" - "Ma" (Ma a pour index : 3)
Il est ouvert, sur la feuil "Mi"
La procédure ci-dessous :
Sub Test1()
Sheets(3).Select
End Sub
me renvoie l'alerte :
Erreur d'exécution '40036':
Erreur définie par l'application ou par l'objet
(Cette macro ne m'a jamais posé de Pb dans d'autres classeurs)
En désespoir de cause, j'ai testé les instructions ci-dessous
qui renvoient toutes la même alerte.
Sheets(3).Activate
Sheets("Ma").Select
Sheets("Ma").Activate
Worksheets(3).Select
Worksheets(3).Activate
Worksheets("Ma").Select
Worksheets("Ma").Activate
Je désespère, un "maître" pourrait-il m'aider.
Ô combien merci à celui-ci !