Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Compatibilité entre 97 et 2003

Compatibilité entre 97 et 2003

1 réponse
Avatar
DesseJ
Bonjour, Bonsoir,

Dans une macro qui doit =EAtre compatible de la version 97 =E0 2003
d'excel, j'ai un souci sur la copie d'une image avec un lien hypertexte
associ=E9 dans la version 97.

La proc=E9dure suivante fonctionne bien en 2003. Elle copie une image se
situant sur une feuille Ico cach=E9e dans la cellule I1 de ma feuille
TOTO :

Sheets(1).Name =3D "TOTO"
Ico.Visible =3D True
Ico.Unprotect
Ico.Shapes("Picture 1").Copy
Sheets("TOTO").Activate
Range("I1").Select
Sheets("TOTO").Paste
Ico.Protect
Ico.Visible =3D xlVeryHidden

Sous 97, la proc=E9dure se plante et s'arr=EAte sur la ligne
Sheets("TOTO").Paste.

Comment faire, =E0 votre avis, pour contourner ou plut=F4t r=E9soudre le
probl=E8me ?

Un grand merci pour votre aide.
Steph. D.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ange Ounis
Essaye de remplacer
Sheets("TOTO").Paste
par
ActiveSheet.Paste

Si par hasard les 2 feuilles ne sont pas dans le même classeur, essaye de faire
précéder le nom des feuilles de celui de leur classeur respectif.

----------
Ange Ounis
----------

Bonjour, Bonsoir,

Dans une macro qui doit être compatible de la version 97 à 2003
d'excel, j'ai un souci sur la copie d'une image avec un lien hypertexte
associé dans la version 97.

La procédure suivante fonctionne bien en 2003. Elle copie une image se
situant sur une feuille Ico cachée dans la cellule I1 de ma feuille
TOTO :

Sheets(1).Name = "TOTO"
Ico.Visible = True
Ico.Unprotect
Ico.Shapes("Picture 1").Copy
Sheets("TOTO").Activate
Range("I1").Select
Sheets("TOTO").Paste
Ico.Protect
Ico.Visible = xlVeryHidden

Sous 97, la procédure se plante et s'arrête sur la ligne
Sheets("TOTO").Paste.

Comment faire, à votre avis, pour contourner ou plutôt résoudre le
problème ?

Un grand merci pour votre aide.
Steph. D.