[VBA-E]copie de .xls et formulaires

**ogenki** · 08/02/2006, 17h01

bonjour

j'espere que le titre convien..enfait voila..

je fai la copie de certaine cellule d'un .xls a un autre...

mais certaine de ces cellules renvoi du texte saisie dans un formulaire

exemple..

un formulaire avec "nom direction" dans le quel on rentre SG renvoi SG dans la cellule a travers une variable "=libdirection"

du coup a la copie de mes cellules excel ouvre une fenetre ou il me demande en gros si je veu renommer cette variable... si je dit non il me met a la place de "SG " "#REF" et si je dit oui que je lui donne un nom au hasar meme si c'est "fzeafz" il l'accepte et affiche bien "SG" comment evité tout sa ( se n'est pas tres amusant pour un utilisateur...)???

merci

ps: si vous comprenez pas hesitez pas a demander

**zazaraignée** · 08/02/2006, 17h50

Salut
As-tu fait une copie via le menu Collage spécial qui permet de ne copier que les valeurs? (en code vba, je veux dire...)

**ogenki** · 08/02/2006, 18h24

oui j'avai essayé le collage special mais sa n'avais rien donné...

j'ai peu etre utilisé un code qui n'etait pas bon.. si tu pouvai donné le code auquel tu pense stp..

Tu dors quand, ogenki ?

entre 3h du matin et midi...

ps: on doit pas etre sur le meme fuseau horaire

**SfJ5Rpw8** · 09/02/2006, 08h17

montre nous ton code de copier... on rajoutera le pastespecial... à la place du past...

**ogenki** · 09/02/2006, 13h15

Code :

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

1
2
3
4
5
6
7
8
9
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
            Windows("test2.xls").Activate ' active la fenetre de test2
            ActiveWorkbook.Worksheets(1).Select 'active la fenetre de test2
            Range("A" & lastline).Select 'selectionne la dernier ligne
            ActiveSheet.Paste 'colle les cellules recuperées

voila

**SfJ5Rpw8** · 09/02/2006, 13h53

tu aurai pu avoir facilement le code avec l'enregistreur de macro..., change la derniére ligne :

Code :

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

1
2
ActiveSheet.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

**ogenki** · 09/02/2006, 14h00

desolé bbil

mais sa me renvoi mon erreur preferé

Erreur defini par l'application ou par l'objet

je te met le code...

Code :

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

1
2
3
4
5
6
7
8
9
10
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
Windows("test2.xls").Activate ' active la fenetre de test2
ActiveWorkbook.Worksheets(1).Select 'active la fenetre de test2
Range("A" & lastline).Select 'selectionne la dernier ligne
ActiveSheet.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False 'colle les cellules recuperées

**ogenki** · 09/02/2006, 15h29

Code :

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

1
2
ActiveSheet.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False 'colle les cellules recuperées

**Megaxel** · 09/02/2006, 15h36

Il ne faudrait pas remplacer

Code :

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

ActiveWorkbook.Worksheets(1).Select

par

Code :

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

ActiveWorkbook.Worksheets(1).Activate

?

**ogenki** · 09/02/2006, 19h14

salut ouskel..

je vien de testé ton bout de code mais il me renvoit toujour la meme erreur

je commence a desesperé avec cette erreur lol

erreur defini par l'application ou pas l'objet

EDIT: erf puisque son post a disparu je met le code qu'il avait donné

Code :

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

1
2
3
4
5
Workbooks("test2.xls").Activate ' active la fenetre de test2
Worksheets(1).Select 'SÉLECTIONNE la fenetre de test2
Range("A" & lastline).Select 'selectionne la dernier ligne
ActiveSheet.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False 'colle les cellules recuperées

voila

merci de votre aide

**SfJ5Rpw8** · 09/02/2006, 19h47

Envoyé par bbil

... et comme cela ... 2 lignes en une...

Code :

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

1
2
Range("A" & lastline).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

**ogenki** · 09/02/2006, 20h06

toujour la meme erreur... je ne comprend pas... sa marche chez vous ?

**AlainTech** · 10/02/2006, 00h10

Bon...

Et ça,

Code :

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

Range("A" & lastline).PasteSpecial Paste:=xlValues

Tout simplement?

Inutile de passer les arguments qui sont par défaut.
Ca évite de mettre, éventuellement, un espace devant un paramètre qui n'en accepte peut-être pas.

**ouskel'n'or** · 10/02/2006, 09h23

sa marche chez vous ?

Oui ! Les trois syntaxes fournies fonctionnent.

Nouvelle question :
As-tu essayé de faire un "Collage spécial" -> "valeurs" manuel ?
Tu devrais le faire, peut-être une dll n'est-elle pas activée...
Tu nous dis

A+

**ogenki** · 10/02/2006, 13h14

bonjour

je vien de testé la valeur de lastline elle est de 1 donc sa selectionne bien la cellule A1 pour lancé la copie...

Nouvelle question :
As-tu essayé de faire un "Collage spécial" -> "valeurs" manuel ?
Tu devrais le faire, peut-être une dll n'est-elle pas activée...
Tu nous dis

tu pourais etre plus precis sur se que je devrais faire stp

EDIT : je vien de testé en selectionant exactement toute les cellules dont j'ai besoin
j'ai donc fait

Code :

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

Range("A" & lastline:"N"&lastline+6).PasteSpecial Paste:=xlValues

mais la sintaxe ne lui plait pas si vous avez une solution...merci

**ouskel'n'or** · 20/02/2006, 15h39

A la recherche de Application.caller, j'ai trouvé ça. Tu as réglé ce problème

Avant de connaître les autres syntaxe, j'utilisais

Code :

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

1
2
3
4
    Worksheets("Feuil1").Select
    Range("A1:A17").Select
    Selection.Copy
    Worksheets("Feuil2").Cells(33, 1).PasteSpecial Paste:=xlValues

où 33 est le N° de la dernière ligne renseignée + 1

A bientôt

**ogenki** · 20/02/2006, 15h42

tu peu expliqué stp

eeeeu je fait la copie entre 2 .xls...pas entre 2 feuille de classeur... enfin si j'ai bien compris le code

**ouskel'n'or** · 20/02/2006, 15h57

Je reprends ton code du début

Code :

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

1
2
3
4
5
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

Et je remplace les quatre dernières lignes par celle-ci :

Code :

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

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

Pour aller ensuite dans test2.xls, si tu en as "envie", ensuite, tu fais simplement

Code :

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

Workbooks(("test2.xls").activate

Ton fichier Test2.xls doit être ouvert, c'est tout.

A+

Bon je retourne à "Application.caller"

**ogenki** · 20/02/2006, 16h05

je vien de tester en fesant sa..

Code :

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

1
2
3
4
5
6
  Workbooks.Open Filename:= _
            "C:\Documents and Settings\avaysse\Mes documents\" & XlsFiles(i)
            Range("A1:N6").Select 'selection des cellules a copier
            Selection.Copy ' copie des cellules
            Workbooks(("test2.xls")).Worksheets(1).Cells(lastline, 1).PasteSpecial Paste:=xlValues
            Workbooks(("test2.xls")).Activate

bin sa plante avant la copie

**ouskel'n'or** · 20/02/2006, 17h04

bin sa plante avant la copie

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

Code :

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

1
2
3
4
Workbooks.Open Filename:= _ 
            "C:\Documents and Settings\avaysse\Mes documents\" & XlsFiles(i)
Worksheets("NomDeLaFeuille").select
Range("A1:N6").select

Tu dis

A+

[VBA-E]copie de .xls et formulaires

Macros et VBA Excel

Discussions similaires

Partager

Partager