Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Copie de feuille en vba

5 réponses
Avatar
Dédé260
Bonjour=20
j'ai se code qui est boiteux depuis peu
il me sert a copier des feuilles apres saisie vers un autre classeur (ouve=
rt)
Dim Nouv_Feuil
Nouv_Feuil =3D Sheets("Base Donn=E9es").Range("AF2")
Application.ScreenUpdating =3D False
=20
Sheets("Inscription").Name =3D Nouv_Feuil
Sheets("Nouv_Feuil").Copy Before:=3DWorkbooks("2014.xlsx").Sheets(Feuil=
1) 'erreur 13 incompatibilite de type=20
la feuille est bien copi=E9e, elle est nomm=E9e correctement
le classeur 2014 est cens=E9 etre ouvert
ou se situerait l'erreur
merci

5 réponses

Avatar
isabelle
bonjour Dédé,

il faut enlever les guillemets autour de la variable Nouv_Feuil

Sheets(Nouv_Feuil).Copy Before:=Workbooks("2014.xlsx").Sheets(Feuil1)

isabelle

Le 2014-03-11 13:18, Dédé260 a écrit :
Bonjour
j'ai se code qui est boiteux depuis peu
il me sert a copier des feuilles apres saisie vers un autre classeur (ouvert)
Dim Nouv_Feuil
Nouv_Feuil = Sheets("Base Données").Range("AF2")
Application.ScreenUpdating = False

Sheets("Inscription").Name = Nouv_Feuil
Sheets("Nouv_Feuil").Copy Before:=Workbooks("2014.xlsx").Sheets(Feuil1) 'erreur 13 incompatibilite de type
la feuille est bien copiée, elle est nommée correctement
le classeur 2014 est censé etre ouvert
ou se situerait l'erreur
merci

Avatar
Dédé260
Le mardi 11 mars 2014 20:02:44 UTC+1, isabelle a écrit :
bonjour Dédé,



il faut enlever les guillemets autour de la variable Nouv_Feuil



Sheets(Nouv_Feuil).Copy Before:=Workbooks("2014.xlsx").Sheets(Feuil1)



isabelle



Le 2014-03-11 13:18, Dédé260 a écrit :

> Bonjour

> j'ai se code qui est boiteux depuis peu

> il me sert a copier des feuilles apres saisie vers un autre classeur ( ouvert)

> Dim Nouv_Feuil

> Nouv_Feuil = Sheets("Base Données").Range("AF2")

> Application.ScreenUpdating = False

>

> Sheets("Inscription").Name = Nouv_Feuil

> Sheets("Nouv_Feuil").Copy Before:=Workbooks("2014.xlsx").Sheets( Feuil1) 'erreur 13 incompatibilite de type

> la feuille est bien copiée, elle est nommée correctement

> le classeur 2014 est censé etre ouvert

> ou se situerait l'erreur

> merci

>



Bonsoir isabelle
avant je ne les avais pas le ""
normal c'est une variable
mais idem toujours l'erreur
la je suis mort harassé vais fermer mes yeux
le chat est au lit il dort deja le feneant
a demain isabelle
bonne nuit
Avatar
isabelle
peut etre avec "Feuil1" au lieu de Feuil1 si ce n'est pas une variable
aussi .xlsm si ce fichier contient des macro

Sheets(Nouv_Feuil).Copy Before:=Workbooks("2014.xlsm").Sheets("Feuil1")

isabelle

Le 2014-03-11 16:04, Dédé260 a écrit :
Le mardi 11 mars 2014 20:02:44 UTC+1, isabelle a écrit :
bonjour Dédé,

il faut enlever les guillemets autour de la variable Nouv_Feuil

Sheets(Nouv_Feuil).Copy Before:=Workbooks("2014.xlsx").Sheets(Feuil1)

isabelle



Bonsoir isabelle
avant je ne les avais pas le ""
normal c'est une variable
mais idem toujours l'erreur
la je suis mort harassé vais fermer mes yeux
le chat est au lit il dort deja le feneant
a demain isabelle
bonne nuit

Avatar
Dédé260
ah oui je vois ou ca bloque apres
je sauvegarde, je ferme, et quand je reviens sur le fichier source ca bugue
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Compta ACA.xls").Activate 'la ca bugue
Sheets("Inscription").Select
Avatar
Dédé260
Résolu
Workbooks("Compta ACA.xls").Activate
merci isabelle