erreur 424

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

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

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

Cliquez pour agrandir...

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

thebenoit59 à dit:

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

Cliquez pour agrandir...

cdt,

Rrrady

ok ,

merci Rrrady

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

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

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.

Super,

ca marche !!!!
merci beaucoup Benoit 🙂