COPIER COLLER

Le
IMER09
Bonjour à tous

j'ai ce qui suit pour recuperer des donnée d'une autre feuil excel
ca fonctionne mais est il possible de copier coller que les valeurs (comme
avec collage special dans la feuil)
j'ai essaye avec l'enregistreur ca ne fonctionne pas

Workbooks("ZAZA.XLS").Sheets("FEUIL1"). _
Range("A1:AN" & Workbooks("ZAZA.XLS"). _
Sheets("FEUIL1").[A65536].End(3).Row). _
Copy Workbooks("TOTO.XLS").Sheets("FEUIL2").[A1]

Merci--
IMER09
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
FFO
Le #5044521
Salut à toi

Essaies ceci :

Workbooks("ZAZA.XLS").Sheets("FEUIL1"). _
Range("A1:AN" & Workbooks("ZAZA.XLS"). _
Sheets("FEUIL1").[A65536].End(3).Row). _
Copy
Workbooks("TOTO.XLS").Sheets("FEUIL2").[A1].PasteSpecial Paste:=xlPasteValues


Celà devrait te convenir


Bonjour à tous

j'ai ce qui suit pour recuperer des donnée d'une autre feuil excel
ca fonctionne mais est il possible de copier coller que les valeurs (comme
avec collage special dans la feuil)
j'ai essaye avec l'enregistreur ca ne fonctionne pas

Workbooks("ZAZA.XLS").Sheets("FEUIL1"). _
Range("A1:AN" & Workbooks("ZAZA.XLS"). _
Sheets("FEUIL1").[A65536].End(3).Row). _
Copy Workbooks("TOTO.XLS").Sheets("FEUIL2").[A1]

Merci--
IMER09


IMER09
Le #5044401
Merci FFO c'est parfait
--
IMER09



Salut à toi

Essaies ceci :

Workbooks("ZAZA.XLS").Sheets("FEUIL1"). _
Range("A1:AN" & Workbooks("ZAZA.XLS"). _
Sheets("FEUIL1").[A65536].End(3).Row). _
Copy
Workbooks("TOTO.XLS").Sheets("FEUIL2").[A1].PasteSpecial Paste:=xlPasteValues


Celà devrait te convenir


Bonjour à tous

j'ai ce qui suit pour recuperer des donnée d'une autre feuil excel
ca fonctionne mais est il possible de copier coller que les valeurs (comme
avec collage special dans la feuil)
j'ai essaye avec l'enregistreur ca ne fonctionne pas

Workbooks("ZAZA.XLS").Sheets("FEUIL1"). _
Range("A1:AN" & Workbooks("ZAZA.XLS"). _
Sheets("FEUIL1").[A65536].End(3).Row). _
Copy Workbooks("TOTO.XLS").Sheets("FEUIL2").[A1]

Merci--
IMER09




Publicité
Poster une réponse
Anonyme