Copie de feuille en vba

Le
Dédé260
Bonjour
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 = Sheets("Base Données").Range("AF2")
Application.ScreenUpdating = False

Sheets("Inscription").Name = Nouv_Feuil
Sheets("Nouv_Feuil").Copy Before:=Workbooks("2014.xlsx").Sheets(Feuil=
1) '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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #26029502
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

Dédé260
Le #26029562
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
isabelle
Le #26030002
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

Dédé260
Le #26030152
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
Dédé260
Le #26030332
Résolu
Workbooks("Compta ACA.xls").Activate
merci isabelle
Publicité
Poster une réponse
Anonyme