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 Blocage sur insertion

Blocage sur insertion

1 réponse
Avatar
Lycaon
Salut =E0 tous,

Voil=E0 une petite macro que j'ai =E9crite :

Private Sub InsererEnTete()

Workbooks.Open Filename:=3D"I:\Private_ISP\PPM\SEPTEMBER 2006\Fichiers
ISP\Entete+References.xls"

Rows("1:6").Select
Selection.Copy

Workbooks(NomClasseur).Sheets(1).Activate
Range("A1").Select
Selection.Insert Shift:=3DxlDown

Workbooks("Entete+References.xls").Close (False)

End Sub

Toutes les variables sont d=E9finies et calcul=E9es. Il bloque sur la
ligne rouge : il copie bien mon ent=EAte mais ne passe pas =E0 la suite.
A la fin, il me donne un runtime error 13 : type mismatch.

Est ce que quelqu'un a une explication ? Ou mieux, un moyen d'=E9viter
=E7a ?

Merci pour votre aide,

Lycaon.
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
Lycaon
En faisant un Range("A1").EntireRow.Select ça passe...
La bonne question est pourquoi ?
:-)


Salut à tous,

Voilà une petite macro que j'ai écrite :

Private Sub InsererEnTete()

Workbooks.Open Filename:="I:Private_ISPPPMSEPTEMBER 2006Fichiers
ISPEntete+References.xls"

Rows("1:6").Select
Selection.Copy

Workbooks(NomClasseur).Sheets(1).Activate
Range("A1").Select
Selection.Insert Shift:=xlDown

Workbooks("Entete+References.xls").Close (False)

End Sub

Toutes les variables sont définies et calculées. Il bloque sur la
ligne rouge : il copie bien mon entête mais ne passe pas à la suite.
A la fin, il me donne un runtime error 13 : type mismatch.

Est ce que quelqu'un a une explication ? Ou mieux, un moyen d'éviter
ça ?

Merci pour votre aide,

Lycaon.