Macro Excel ne fonctionne pas sur tous les PC

38zaza67 1 Messages postés mercredi 19 juillet 2017Date d'inscription 19 juillet 2017 Dernière intervention - 19 juil. 2017 à 09:48 - Dernière réponse : Patrice33740 6319 Messages postés dimanche 13 juin 2010Date d'inscription 12 décembre 2017 Dernière intervention
- 19 juil. 2017 à 12:15
VBA Office (Excel, Word ...) Posez votre question Signaler Répondre au sujet
Bonjour à tous

J'ai développé une macro sur office 2010 et suite à la migration à office 2013 j'ai du faire quelques modifications pour qu'elle fonctionne.

Suite à ça mon PC a été remplacé par 1 PC plus récent. Et depuis celle-ci ne fonctionne plus correctement. J'ai une erreur de type 9 qui se produit.

voici la partie incriminée.

With Workbooks(cBook).Worksheets(cSheet)
Set MaPlage = .Range("A" & lignbeg & ":BX" & lignend)
End With

MaPlage.Copy
ActiveSheet.Paste Destination:=Workbooks("xxxxx").Worksheets(1).Range("A1")

Cela bloque sur la dernière ligne de code en gras.

J'ai fait l'essai sur plusieurs autres PC ayant la même version que moi d'excel et sur 3 PC cela fonctionne et sur 2 PC (le mien compris) cela ne fonctionne pas.

Sur mon PC j'ai vérifié les références et tout est identique.

Je ne sais plus trop où regarder.

Merci de votre aide
Afficher la suite 
1Messages postés mercredi 19 juillet 2017Date d'inscription 19 juillet 2017 Dernière intervention

1 réponse

Répondre au sujet
Patrice33740 6319 Messages postés dimanche 13 juin 2010Date d'inscription 12 décembre 2017 Dernière intervention - 19 juil. 2017 à 12:15
0
Utile
Bonjour,

Curieux code !

J'écrirais simplement :
MaPlage.Copy Destination:=Workbooks("xxxxx").Worksheets(1).Range("A1")
Commenter la réponse de Patrice33740

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.