[VBA-E]copie de .xls et formulaires

**ogenki** · 20/02/2006, 19h30

Attends, je n'avais pas vu ça. Ça veut dire que Range("A1:N6").select n'est pas accepté...
Essaie de sélectionner la feuille avant de sélectionner la plage

si il est accepté puisque sur ma page elle sont entouré et tout... c'est vrement la copie.. je croi..

**ouskel'n'or** · 21/02/2006, 00h26

Bon, j'ai une idée pour tester ce que tu dis
Mets exit sub après la ligne de copy
Là, si la copie est réalisée, les cellules sont dans leBloc-Notes.
Sorti de la macro, place-toi dans une cellule d'une autre feuille de calcul et fait coller manuellement
Si la copie a marché, le collage se réalise. J'ai fait l'essai en créant un nouveau classeur.

Tu dis

A toi

**ogenki** · 21/02/2006, 14h18

desolé du temp de reponse mais nous ne vivons vrement pas au meme heure.. lol

bon alors
je vien de faire ton test et la copie se fait sans probleme

**ogenki** · 21/02/2006, 16h16

je vien de regardé les erreurs possible sur un #REF.. et je trouve sa..

L'exécution d'une macro qui entre une fonction renvoyant la valeur #REF!

Vérifiez la fonction pour voir si un argument fait référence à une cellule ou à une plage de cellules non valide. Par exemple, si la macro entre une fonction qui fait référence à une cellule située au-dessus de la fonction et que la cellule contenant la fonction se trouve sur la ligne 1, la fonction renvoie la valeur d'erreur #REF! parce qu'aucune cellule ne peut se trouver au-dessus de la ligne 1.

si quelqun peu m'explique comment reglé sa..

ou encore..

La suppression des cellules auxquelles d'autres formules font référence ou le collage de cellules déplacées dans des cellules auxquelles d'autres formules font référence

Modifiez les formules ou rétablissez-les dans la feuille de calcul en cliquant sur le bouton Annuler immédiatement après avoir supprimé ou collé les cellules.

le reste n'a pas l'air de corespondre a mon probleme...

**ouskel'n'or** · 21/02/2006, 16h25

Ok, je crois que j'ai une piste pour ton copier/coller. si c'est ça, je vais en Guadeloupe te mettre la tête dans le sable...

N'as-tu pas des cellules fusionnées, soit dans la feuille de copie, soit dans la feuille où tu colles ?

Allez, avoue !

A+

**ouskel'n'or** · 21/02/2006, 16h34

Autant pour moi... Je te parle la tête dans le goudron...

J'ai une erreur impardonnable dans le code que je t'ai donné

Workbooks(("test2.xls").Worksheets(1).Cells(lastline, 1).PasteSpecial Paste:=xlValues

Mets à la place

Code :

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

            Workbooks("test2.xls").Worksheets(1).Cells(lastline, 1).PasteSpecial Paste:=xlValues

J'avais une parenthèse de trop...

J'ai trouvé ça en cherchant une solution... Mais entre nous, tu aurais pu le voir non ?

Ça m'aurait évité de me ridiculiser...

Tu essaies et tu dis

A+

**ogenki** · 21/02/2006, 16h45

ton code "marche" bien effectivement j'ai plus de #REF mais j'ai plus rien du tout...

lool enfait la page que je copie ressemble a une feuille A4 c'est a dire plus de cellule tout est blanc et on voit le texte en entier dans les cellules.. apres ton code bien.. il y a juste le texte dans les cellule les redimentionnement n'est pas fait et pas de couleur...

mais effectivement plus de #REF

**ogenki** · 21/02/2006, 16h49

N'as-tu pas des cellules fusionnées, soit dans la feuille de copie, soit dans la feuille où tu colles ?

oui surement dans ma feuille de copie.. mais faut que je les garde...si possible..

**ouskel'n'or** · 21/02/2006, 17h36

Une question à la fois
Oui, effectivement, la copie de "valeurs" seules ne copie pas la mise en forme
Tu peux réitérer la copie : Une fois tu copies tout (valeurs et cellules éventuellement fusionnées) et la seconde, tu copies les valeurs seules

Par très élégant mais puisque je n'ai pas d'autre solution, je fais ce que je peux avec ce que j'ai...

Code :

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

1
2
3
4
5
6
7
8
Workbooks.Open Filename:= "C:\Documents and Settings\avaysse\Mes documents\" & XlsFiles(i) 
            'ActiveWindow.Visible = False
            Range("A1:N6").Select 'selection des cellules a copier 
            Selection.Copy ' copie des cellules
            Workbooks("test2.xls").Worksheets(1).Cells(lastline, 1).Paste
            Selection.Copy   'Tu recopies les cellules collées sur place
            Selection.PasteSpecial Paste:=xlValues
            Workbooks("test2.xls").activate

Tu essaies et tu dis.
Il est possible que tu aies un problème de liaisons à supprimer mais on verra après (ce peut n'être qu'une question de paramètres dans "PasteSpecial")

N'as-tu pas des cellules fusionnées, soit dans la feuille de copie, soit dans la feuille où tu colles ?

oui surement dans ma feuille de copie.. mais faut que je les garde...si possible..

Pour ce deuxième problème, t'as un problème...

Dans ma version (VBA97) tu n'obtiendras jamais le même format sur une plage de cellules.
Pour la fusion de plusieurs cellules, la méthode que je t'ai donnée fonctionne. Pour le format (largeur de colonnes, hauteur de lignes...) il dépend du format de la FEUILLE.
Or comme tu copies des plages, la mise en forme générale de la feuille dans laquelle tu colles ne peut pas correspondre à celle de la feuille où tu copies.
Si tu veux tout faire par soft, alors il te faudra régler les largeurs de colonnes et les hauteurs de lignes... Bon courage. De déjà pas mal tordu, ton "truc" va vite devenir une usine à gaz. J'espère que tu structures...

Tu me réponds pour la première partie ?

A+

**ogenki** · 21/02/2006, 17h47

Tu me réponds pour la première partie ?

oui.. sa marche pas... lol

j'ai fait un copier coller iolent je regarde si il n'y a pas des chose a modifier

edit sous l'emprise d'une angine et d'une fievre horible je rentre chez moi.. je te previen quand je revien

**ouskel'n'or** · 21/02/2006, 18h01

Qu'est-ce qui ne marche pas ? Quelle ligne ton erreur ?

A+

Edit

sous l'emprise d'une angine et d'une fievre horible je rentre chez moi

Soigne-toi bien et reviens-nous en pleine forme, on bouge pas...

**ogenki** · 22/02/2006, 14h07

coucou me revoila.. pas en forme mais pas le choix non plus..

le code plante ici

Code :

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

1
2
Workbooks("test2.xls").Worksheets(1).Cells(lastline, 1).Paste
            Selection.Copy   'Tu recopies les cellules collées sur place

plus precisement sur le

Code :

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

Selection.Copy   'Tu recopies les cellules collées sur place

voila merci encore de ton aide ousk

[EDIT]

'Tu recopies les cellules collées sur place

pourquoi tu fai sa ?

rectification... il plante sur

Code :

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

Workbooks("test2.xls").Worksheets(1).Cells(lastline, 1).Paste

il plante

me renvoi une erreur

propriete ou methode non geré par cet objet

**ouskel'n'or** · 22/02/2006, 22h02

Je t'ai retrouvé...

Malheureusement, le code que je t'ai passé fonctionne chez moi et je ne vois pas pourquoi il déraille chez toi.

Je vais te passer la syntaxe la plus scolaire qui soit. Tu l'essaies sur un autre micro. Si ça ne marche pas, alors je ne vois pas.
Ne crée pas la macro sur ton poste mais sur un autre poste.
Soit deux fichiers Excel, Fichier1.xls et Fichier2.xls
Dans Fichier2 , tu crées un tableau avec certaines cellules fusionnées et tu enregistres le fichier dans "C:\Documents and Settings\Mes documents\"

Ensuite, dans fichier1, tu crées un module où tu mets

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Copierfichier()
Workbooks.Open Filename:= "C:\Documents and Settings\Mes documents\" & "Fichier2.xls" 
     Range("A1:N6").Select 'selection des cellules a copier 
     Selection.Copy ' copie des cellules 
     Workbooks("Fichier1.xls").select
     Worksheets(1).Select
     Cells(1,1).select
     ActiveSheet.Paste 
     Selection.Copy   'Tu recopies les cellules collées sur place 
     Selection.PasteSpecial Paste:=xlValues 
     Workbooks("Fichier2.xls").activate
end sub

Ta question :

'Tu recopies les cellules collées sur place
pourquoi tu fai sa ?

Parce que lors du premier collage, pour avoir le format (couleur, caractères, fusions de cellules etc..., j'ai fais un collage total. mais tu peux avoir des formules, or si elle font référence à d'autres feuilles, tu auras une liaison avec le classeur dans lequel elles ont été copiées.
Donc, je recopie ce que j'ai collé et je ne colle que les valeurs. Ce que te donne "PasteSpecial Paste:=xlValues"
Ok ?

J'attends les résultats de ton essai.

A+

Edit
Attention j'ai corrigé la macro (encore plus scolaire)
Avant d'essayer sur un autre poste, tu peux l'essayer sur le tien...

**ouskel'n'or** · 22/02/2006, 22h19

Si tu n'ajoutes pas l'extension . xls au nom de ton fichier, ça ne peut pas marcher... Tu es sûr que XlsFiles(i) contient l'extension .xls ?

Essaie ça avant d'aller à la recherche d'un autre pc...

Code :

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

1
2
3
4
5
6
7
8
Workbooks.Open Filename:= "C:\Documents and Settings\avaysse\Mes documents\" & XlsFiles(i) & ".xls"
            'ActiveWindow.Visible = False 
            Range("A1:N6").Select 'selection des cellules a copier 
            Selection.Copy ' copie des cellules 
            Workbooks("test2.xls").Worksheets(1).Cells(lastline, 1).Paste 
            Selection.Copy   'Tu recopies les cellules collées sur place 
            Selection.PasteSpecial Paste:=xlValues 
            Workbooks("test2.xls").activate

A+

**ogenki** · 22/02/2006, 22h21

question surement stupide mais comment on fusionne les cellules.. j'ai pas trouvé dans le clic droit

**ogenki** · 22/02/2006, 22h27

Code :

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

MsgBox XlsFiles (i)

renvoi test1.xls..

j'ai modifié le code en consequence mais il bloque sur

Code :

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

Workbooks("test2.xls").Worksheets(1).Cells(lastline, 1).Paste

**ouskel'n'or** · 22/02/2006, 23h46

Je me suis absenté... je t'explique par mp

Bon, ça marche pas... Essaie en mettant 1 à la place de lastLine

Tu me dis

A tout'

**ouskel'n'or** · 22/02/2006, 23h56

Fusionner les cellules ? Tu sélectionnes les cellules à fusionner, tu vas dans format, cellules, onglet alignement, fusionner

C'est bon?

A+

Edit
Essaie avec le dernier code que je t'ai donné, le collage après avoir sélectionné la feuille puis la cellule.

**ogenki** · 23/02/2006, 14h31

je vien de testé ton code... comme je l'avais dit au dernier post il marche pas.. j'ai donc changer lastline par 1 mais rien non plus.. j'essaye le code donné a coté avec les feuille 1 et 2..

[VBA-E]copie de .xls et formulaires

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager