• Initiateur de la discussion Initiateur de la discussion CHTING
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CHTING

XLDnaute Junior
Bonjour à toutes et à tous,

J'ai un problème avec le programme ci-dessous.

Sheets("Extraction Feuil1").Activate
ld = [tablo].Find("/Risques-psychosociaux/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd = [tablo].Find("/Situations de travail identifiées/", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
lf = [tablo].Find("/Présence-du-risque-psychosocial-et-organisationnel/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
cf = [tablo].Find("/Situations de travail identifiées/", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
'Copier une plage depuis Excel
ActiveSheet.Range(Cells(ld, cd), Cells(lf, cf)).Copy
'Sheets("Extraction Feuil1").Activate

Du jour au lendemain il ne fonctionne plus alors qu'il fonctionnait très bien avant.
je reçois le message d'erreur "erreur d'execution"424" Objet requis"


Est-ce que quelqu'un a une idée ?

par avance , merci pour votre aide.
 
Bonjour,

Comme ça? Désolé, je ne comprends pas vraiment pour les balises ( je ne suis pas un habitué 🙂)

[ code]Sheets("Extraction Feuil1").Activate
ld = [tablo].Find("/Risques-psychosociaux/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd = [tablo].Find("/Situations de travail identifiées/", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
lf = [tablo].Find("/Présence-du-risque-psychosocial-et-organisationnel/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
cf = [tablo].Find("/Situations de travail identifiées/", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
'Copier une plage depuis Excel
ActiveSheet.Range(Cells(ld, cd), Cells(lf, cf)).Copy
'Sheets("Extraction Feuil1").Activate[ /code]

Sinon la ligne est :
[ code]ld = [tablo].Find("/Risques-psychosociaux/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row[ /code]


Merci beaucoup pour ton aide

Cordialement
 
Tu peux éditer le message plutôt qu'en poster un nouveau.
Code:
Sheets("Extraction Feuil1").Activate
ld = [tablo].Find("/Risques-psychosociaux/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
cd = [tablo].Find("/Situations de travail identifiées/", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
lf = [tablo].Find("/Présence-du-risque-psychosocial-et-organisationnel/", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
cf = [tablo].Find("/Situations de travail identifiées/", LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
'Copier une plage depuis Excel
ActiveSheet.Range(Cells(ld, cd), Cells(lf, cf)).Copy
'Sheets("Extraction Feuil1").Activate

cdt,

Rrrady
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
461
Réponses
12
Affichages
860
Réponses
0
Affichages
1 K
Retour