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/
>
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" wrote:
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" a écrit dans le message de news:
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" a écrit dans le message de 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 -
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" <prodiag...@orange.fr> wrote:
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" <angel...@free.fr> a écrit dans le message de news:
u4dm9xGfIHA.5...@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" <maud2...@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 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 -
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" a écrit dans le message de news:
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" a écrit dans le message de 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
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 <> "." And f <> ".." Then
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" a écrit dans le message de news:
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" wrote:
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" a écrit dans le message de news:
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" a écrit dans le message de 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 -
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 <> "." And f <> ".." Then
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" <boisgontier@hotmail.com> a écrit dans le message de news:
668dffa3-6ad7-432c-ae5d-6f63a49b5315@2g2000hsn.googlegroups.com...
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" <prodiag...@orange.fr> wrote:
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" <angel...@free.fr> a écrit dans le message de news:
u4dm9xGfIHA.5...@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" <maud2...@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/- Masquer le texte des messages précédents -
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 <> "." And f <> ".." Then
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" a écrit dans le message de news:
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" wrote:
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" a écrit dans le message de news:
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" a écrit dans le message de 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 -