Bonjour,
A tout hasard car il m'est arrivé d'avoir quelquefois ce problème entre
copie exec à excel
Remplace pour la partie ci-dessous, ActiveSheet par Selection

******** c'est ici que ça plante de façon aléatoire *************
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
False

La deuxième syntaxe me semble correcte portant.
Peut-être un engorgement du presse-papier qu'il faudrait vider
éventuellement
après chaque copie par
application.cutcopymode = false

Sans garantie, mais sit-on jamais ?
Bonne journée
Pounet95

"daniel" a écrit dans le message de
news:uKADP49tIHA.2208@TK2MSFTNGP04.phx.gbl...

Bonjour,
Peut être, si le plantage ne se produit jamais au premier passage, une
affaire de presse papier mal vidé par l'instruction Application.CutCopyMode
= False

http://www.excelabo.net/excel/application.php#viderpressepapier
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http...

Bonjour,
Après recherches sur le forum et tests en tout genre, je suis arrivé à faire
la macro suivante qui copie une ligne de chaque fichier word (il y en aura +
de 2000), vers une feuille excel en face du nom du fichier word.
Mais malheureusement, lors du "collage" des valeurs, très régulièrement ça
plante et de plus, de façon alétoire. J'ai fais plusieurs essais, ce ne sont
pas toujours les mêmes valeurs qui font planter.
Merci par avance pour vos éclaircissements ou solutions.
Bonne journée.

Sub ListerfichiersWORD()

Dim DocWord As Word.Document
Dim AppWord As Word.Application

ThisWorkbook.Sheets("exemple").Select
Range("b5", [b65000].End(xlUp)).Select
Range("B5").Activate

For Each c In Selection
FichierInfo = ActiveCell.Value

Bonjour,

Je veux importer des donnees excel de plusieurs fichiers excel vers un
seul fichier pour ne pas avoir a tapper les donnees dans une table a
chaque fois.
Avez-vous une solution?

merci,

Matty

Bonsoir je vien de lire les autres message et j'ai trouvé cette formule que
je trouve fort interessante masi je me demande si c,est possible qu'a TOUTE
les fois que quelqu'un clique dans la cellule E7 que la date et heure soit
inscrite
mettont
16 mai 2008 16.04
16 mai 208 16.08
et ainsi de suite que ca soit conserver

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$7" Then Exit Sub
Target.Value = "X"
Target.HorizontalAlignment = xlCenter
[E8] = Date
[E8].Select
End Sub

Merci encore de l'aide vous etes super
Nito

Bonsoir ou Bonjour
J'aimerais qu'en B1 que la date du jour s'inscrive mais si jamais une date
en G1 est inscrite la date en B1 devras changer pour la date inscrire en G1
et lors de l'enregitrement la case G1 devras se vider pour qu'a l'ouverture
nous nous retrouvions avec la date du jour Merci pour l'aide
Nito

"Misange" monsite.net> a écrit dans le message de news:
uJmtU9xtIHA.4952@TK2MSFTNGP05.phx.gbl...

Bonsoir,

je souhaiterai savoir comment faire la cellule 2008 de ce fichier
http://cjoint.com/?fptp5eORRR
avec le fléche pour incrémenter en sup ou en inf
merci

Bonjour
Je cherche comment formuler une formule, voici je que j'ai
A4:A1000 j'ai des dates inscrit comme suit 16 mai 08
L4:L1000 un nombre (soit 1 ou la case est vide)

En F2 Date début
En i2 Date fin

Jaimerais avoir une formulaire qui calculerais le nombre quil y a en L selon
les date inscrit en F2 et i2

Merci à l'avance

Bonjour,

J'aimerais créer un format de nombre qui n'affiche les décimales que s'il y
en a et au maximum 5, comme cela :

1 -> 1
2.5 -> 2.5
3.121212 -> 3.12121

Avez-vous une idée ?

Merci pour votre aide.