Bonjour a tous,
Je suis actuellement sur le développement d'une application depuis 2 mois et je fais face à un soucis assez bizarre.
J'ai écrit une macro permettant de copier des feuilles venant d'autres feuilles.
Voila le soucis. Elle a toujours très bien fonctionner et là d'un coup, elle me sort une erreur après des semaines de dev.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sub creationfeuille(Fichier_template As String, Template As String, name As String, NomFichier As String, nomfeuille As String) Workbooks.Open Filename:=Fichier_template Windows(Template).Visible = False Windows(Template).Activate Sheets(name).Select Sheets(name).Copy After:=Workbooks(NomFichier).Sheets(1) 'auto incrementation !' Sheets(name).name = nomfeuille Workbooks(Template).Close False End Sub
Le fonctionnement est simple : Je vais ouvrir un fichier qui contient la feuille voulu , je la copie dans le fichier source , je referme et fin.
Voici l’erreur qu'elle me retourne : Erreur 13 : Incompatibilité de type
et évidement, je n'ai jamais rien touché et tout a toujours fonctionné correctement.
Je ne vois pas du tout d’où cela vient.
Merci d'avoir lu.




Répondre avec citation


Partager