erreur 424

[CHTING]

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.

 

[thebenoit59]

Bonjour Chting.
Peux-tu placer le code entre des balises [ code] [ /code] (sans les espaces), et préciser à quelle ligne tu as l'erreur ?

 

[CHTING]

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

 

[thebenoit59]

[ code] [ /code] (sans les espaces),

Tu peux éditer le message plutôt qu'en poster un nouveau.

 

[Rrradassse]

Tu peux éditer le message plutôt qu'en poster un nouveau.

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

 

[CHTING]

ok ,

merci Rrrady

 

[thebenoit59]

Le tableau n'a t'il pas changé de nom ?
Si tu as l'occasion de transmettre un fichier nous regarderons ensemble dessus

 

[CHTING]

re,

Voilà le tableau avec une extrait du programme,

Je me demande si cela ne viendrait pas d'une mise à jour d'Excel (pour information je travaille sur Excel 2010).

Merci pour l'aide

Cdt
chting

 

[thebenoit59]

Il ne s'agit pas d'une mise à jour d'Excel, mais d'une erreur dans les noms.
Tu as dû apporter des modifications au fichier, je te joins la liste des noms utilisés :

Automatiquement tu as une erreur.

 

[CHTING]

Super,

ca marche !!!!
merci beaucoup Benoit