pour toi JB lol prob VBA

Le
stephprod
Bonjour,
merci pour ta macro mais ce la plante a ce niveau
f = Dir$(p & "33 10*.xls")
donc j ai retiré la fonction dir$ et après cela plante à ce niveau
Workbooks.Open Filename:=p & f
à mon avis cela plante car le pemier fichier qu il cherche est le fichier
3310.xls qi est deja ouvert

Codialement



"Michel Angelosanto" <angelosa@free.fr> a écrit dans le message de news:
u4dm9xGfIHA.5348@TK2MSFTNGP03.phx.gbl
> Voila un début:
>
> Dim p, f As String
> Sub traitement_copie()
> p = ActiveWorkbook.Path
> f = Dir$(p & "33 10*.xls")
> While f <> ""
> If f <> "33 10.xls" Then
> Workbooks.Open Filename:=p & f
> maxl = Range("A65535").End(xlUp).Row
> Range("A1:E" & maxl).Select 'mettre les colonnes souhaitées
> Selection.Copy
> Workbooks("33 10.xls").Activate
> maxl = Range("A65535").End(xlUp).Row
> Range("A" & maxl).Select
> ActiveSheet.Paste
> Workbooks(f).Close
> End If
> Dir$
> Wend
> End Sub
>
>
> "maud s" <maud2604@neuf.fr> a écrit dans le message de
> news:uwRJ0dFfIHA.5996@TK2MSFTNGP04.phx.gbl
>> Bonjour voila mon probleme
>>
>> j 'ai un fichier nommé "33 10.XLS"
>>
>> et sous le meme répertoire une multitude de fichiers XLS dont le nom est
>> variable
>> exemple 33 10 hh-mm-ss dd-mm-yy.xls
>> qui correspond en fait a la sauvegarde avec heure minute seconde et date
>> de la sauvegarde à chaque modification du fichiers 33 10.XLS
>>
>> Je voudrais que la macro me copie toutes les lignes d'un tableau allant
>> de A à K avec bien évidemment un nombre de lignes variable pour chaque
>> fichiers 33 10 hh-mm-ss dd- mm-yy.XLS et les copie à la suite dans le
>> fichiers 33 10.xls.
>>
>> merci d avance.
>> maud et stefane
>>
>
> --
> Michel Angelosanto, Bordeaux
> http://angelosa.free.fr/
>
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
JB
Le #5178191
Bonjour,

Il n'y a pas de pb si 3310.xls est deja ouvert.

Tester le contenu de f:

f = Dir$(p & "3310*.xls")
Msgbox f ' pour test

JB


On 3 mar, 17:02, "stephprod"
Bonjour,
merci pour ta macro mais ce la plante a ce niveau
 f = Dir$(p & "33 10*.xls")
donc j ai retiré la fonction dir$ et après cela plante à ce niveau
 Workbooks.Open Filename:=p & f
à mon avis cela plante car le pemier fichier qu il cherche est le fichie r
3310.xls qi est deja ouvert

Codialement

"Michel Angelosanto"



Voila un début:

Dim p, f As String
Sub traitement_copie()
p = ActiveWorkbook.Path
f = Dir$(p & "33 10*.xls")
While f <> ""
   If f <> "33 10.xls" Then
       Workbooks.Open Filename:=p & f
       maxl = Range("A65535").End(xlUp).Row
       Range("A1:E" & maxl).Select 'mettre les colonnes souhait ées
       Selection.Copy
       Workbooks("33 10.xls").Activate
       maxl = Range("A65535").End(xlUp).Row
       Range("A" & maxl).Select
       ActiveSheet.Paste
       Workbooks(f).Close
   End If
   Dir$
Wend
End Sub

"maud s" news:
Bonjour voila mon probleme...

j 'ai un fichier nommé "33 10.XLS"

et sous le meme répertoire une multitude de fichiers XLS dont le nom est
variable...
exemple 33 10 hh-mm-ss dd-mm-yy.xls
qui correspond en fait a la sauvegarde avec heure minute seconde et dat e
de la sauvegarde à chaque modification du fichiers 33 10.XLS

Je voudrais que la macro me copie toutes les lignes d'un tableau allant
de A à K avec bien évidemment un nombre de lignes variable pour cha que
fichiers 33 10 hh-mm-ss dd- mm-yy.XLS et les copie à la suite dans le
fichiers 33 10.xls.

merci d avance.
maud et stefane


--
Michel Angelosanto, Bordeaux
http://angelosa.free.fr/- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




stephprod
Le #5177571
Bonjour,

Voici mon code modifié et il marche
merci JB et Angelosanto

J'aimerais bien qu'il me supprime le fichier déjà traité avant de passer au
suivant:
je dois mettre ou la fonction kill z:fichiers 33 10stephane*.xls"

Dim p, f As String
Sub traitement_copie()
Dim p, f As String
p = ActiveWorkbook.Path & ""
f = Dir$(p & "*3310*.xls")
'mypafth = "z:fichiers 33 10stephane"
''f = Dir(mypath, vbDirectory)
While f <> ""
If f

If f <> "3310.xls" Then
Workbooks.Open Filename:=p & f
maxl = Range("A65535").End(xlUp).Row
Range("A2:k" & maxl).Select 'mettre les colonnes souhaitées
Selection.Copy
Workbooks("3310.xls").Activate
maxl1 = (Range("A65535").End(xlUp).Row) + 1
Range("A" & maxl1 & ":k" & maxl).Select
ActiveSheet.Paste
Workbooks(f).Close
End If

End If

f = Dir
Wend
End Sub





"JB"
Bonjour,

Il n'y a pas de pb si 3310.xls est deja ouvert.

Tester le contenu de f:

f = Dir$(p & "3310*.xls")
Msgbox f ' pour test

JB


On 3 mar, 17:02, "stephprod"
Bonjour,
merci pour ta macro mais ce la plante a ce niveau
f = Dir$(p & "33 10*.xls")
donc j ai retiré la fonction dir$ et après cela plante à ce niveau
Workbooks.Open Filename:=p & f
à mon avis cela plante car le pemier fichier qu il cherche est le fichier
3310.xls qi est deja ouvert

Codialement

"Michel Angelosanto"



Voila un début:

Dim p, f As String
Sub traitement_copie()
p = ActiveWorkbook.Path
f = Dir$(p & "33 10*.xls")
While f <> ""
If f <> "33 10.xls" Then
Workbooks.Open Filename:=p & f
maxl = Range("A65535").End(xlUp).Row
Range("A1:E" & maxl).Select 'mettre les colonnes souhaitées
Selection.Copy
Workbooks("33 10.xls").Activate
maxl = Range("A65535").End(xlUp).Row
Range("A" & maxl).Select
ActiveSheet.Paste
Workbooks(f).Close
End If
Dir$
Wend
End Sub

"maud s" news:
Bonjour voila mon probleme...

j 'ai un fichier nommé "33 10.XLS"

et sous le meme répertoire une multitude de fichiers XLS dont le nom
est
variable...
exemple 33 10 hh-mm-ss dd-mm-yy.xls
qui correspond en fait a la sauvegarde avec heure minute seconde et
date
de la sauvegarde à chaque modification du fichiers 33 10.XLS

Je voudrais que la macro me copie toutes les lignes d'un tableau allant
de A à K avec bien évidemment un nombre de lignes variable pour chaque
fichiers 33 10 hh-mm-ss dd- mm-yy.XLS et les copie à la suite dans le
fichiers 33 10.xls.

merci d avance.
maud et stefane


--
Michel Angelosanto, Bordeaux
http://angelosa.free.fr/- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Publicité
Poster une réponse
Anonyme