je veu copier une feuille d'un classeur et il affiche erreur 424

**booskap** · 18/07/2007, 09h30

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer
 
Set WBSource = Workbooks(ruitz - ordo.xls)
Set WBDest = Workbooks(planning)
 
'cherche la ligne vide dans le classeur de destination
i = WBDest.Worksheets("planning").Range("A65536").End(xlUp).Row + 1
 
'Copie la 2eme ligne de la premiere feuille dans le classeur source.
'Colle la ligne à la suite de la derniere ligne non vide dans le classeur de
'destination.
WBSource.Worksheets("planning").Rows(2).Copy _
    Destination:=WBDest.Worksheets(planning).Cells(i, 1)
 
'Suppression de la ligne dans le classeur source
WBSource.Worksheets("planning").Rows(2).Delete
 
'Désactive le mode Couper/Copier
Application.CutCopyMode = False
 
 
End Sub

quand je met en route il me met erreur 424 a la ligne
Set WBSource = Workbooks(ruitz - ordo.xls)

**COCONUT2** · 18/07/2007, 10h56

et si tu déclare correctement tout le chemin du fichier comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set WBSource = Workbooks("C:\mesdocuments\ruitz - ordo.xls")

Ca donne quoi?

**booskap** · 18/07/2007, 11h07

non le fichier est sur mon bureau pas dans le c:

**booskap** · 18/07/2007, 11h15

il manquait des "" mais maintenant il me marque que l indice n appartient pas a la selection sur la meme ligne que l erreur precedente

**COCONUT2** · 18/07/2007, 11h24

Car il ne doit toujours pas savoir où est ce fichier.

Dans la fenetre d'execution,

tu tapes: Print activeworkbooks.name

il va te donner le nom avec le chemin de ton classeur

Copier coller sans oublier les guillemets et tu nous dit.

**booskap** · 18/07/2007, 11h35

g modifié le nom de mon classeur g enlevé "-ordo" mais maintenant l erreur est ailleur ,dans cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WBSource.Worksheets("planning").Rows(15, 15).Copy _
Destination:=WBDest.Worksheets("planning").Cells(i, 1)

il marque erreur definie par l application ou par l'objet

**COCONUT2** · 18/07/2007, 12h08

N'oublies pas de signaler que c'est du code.

Tu selectionne les lignes de code et tu Clic sur #
C'est plus facile à comprendre

Le copy nécessite des parentheses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
WBSource.Worksheets("planning").Rows(15, 15).Copy _
(WBDest.Worksheets("planning").Cells(i, 1))

Si ce n'est pas ca, scinde la ligne en 2 pour voir ce qui coince

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WBSource.Worksheets("planning").Rows(15, 15).select
selection.Copy WBDest.Worksheets("planning").Cells(i, 1)

**booskap** · 18/07/2007, 13h22

il me met l'erreur a cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WBSource.Worksheets("planning").Rows(15, 15).Select

**booskap** · 18/07/2007, 13h26

g remplacé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rows

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells

et sa fonctionne merci coconute2

**booskap** · 18/07/2007, 13h53

encore un petit probleme coconute2 il copie aussi les trait de mon tableau comment faire pour qu'ils ne prennet que la valeur

**COCONUT2** · 18/07/2007, 13h56

Si tu mets cells à la place de rows, tu va selectionner la cellule colonne 15, ligne 15 plutot qu'une ligne.
Modifie plutot en mettant:
soit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WBSource.Worksheets("planning").rows(15: 15).Select

soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WBSource.Worksheets("planning").Rows(15).Select

Si tu ne veux que les valeurs, tu passes par un collage spécial
Pour ca, débute un enregistrement de macro, fait la manoeuvre en faisant le collage spéciale en sélectionnant que les valeurs (ou les formules) et tu auras les parametres que tu désires.

**booskap** · 18/07/2007, 14h05

c quand je met rows que j'ais l'erreur dont je te parlais
et le collage speciale ce fait comment je ne l'ais jamais fais .

**COCONUT2** · 18/07/2007, 15h03

Tu te positionne sur une case avec si possible valeur et mise en page spécifique

Tu copies Ctrl+C

Tu te positionne sur une autre case et tu fais:
Edition - Collage spécial.

La une fenetre s'ouvre et tu as différents choix en fonction de ce que tu désires faire.

Pour l'enregistrer, avant de faire tout ca, tu as dans la barre des tache, la barre de Visual basic et tu cliques sur la boule rouge pour enregistrer une macro.

Cette macro se trouvera dans le dernier module de VB de ton classeur XL

**zazaraignée** · 18/07/2007, 15h16

et tu cliques sur la boule rouge pour enregistrer une macro.

Tout dépendant de la version de Excel, cette boule pourrait être bleue. Vaut mieux se fier à l'infobulle.

**booskap** · 18/07/2007, 15h24

je fais ça pour chaque case que je vais utiliser?

**COCONUT2** · 18/07/2007, 15h46

Whouaaaa.

Bon on reprend à zéro !

Pour connaitre le texte visual basic à écrire pour réaliser une fonction, le plus simple est de demander à visual basic de l'écrire pour toi!

Pour ca, il y a cette fonction d'enregistrement de macro (la boule rouge ......ou bleue!)
Elle te permet de lancer l'enregistrement!

Tu réalise alors les fonctions que tu souhaites: Collage spéciale mais aussi tout et n'importe quoi (imprimer aller en bas d'un tableau, modifier une mise en forme.....)
C'est trestres pratique pour connaitre les lignes de code

Lorsque tu as réalisé les fonctions dont tu cherchais le code, tu arretes cet enregistrement (carré bleu)

Tu vas ensuite dans visual basic et tu vas dans les modules pour rechercher ce enregistrement.

Maintenant que tu as le code, tu peux l'utiliser tel quel ou l'adapter pour l'insérer dans un boucle par exemple.

C'est c que je te suggere de faire.