Bonjour,
Je cherche une idée pour me faciliter le vie.
J'envoie un même fichier à une vingtaine de destinataires.
Ceux-ci me le renvoient et je les stockent dans un même répertoire.
J'ai une procédure qui va en extraire les information.
Seulement, je passe chaque fois par dialog open (un à un) qui est le début
de la procédure.
Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à
traiter.
J'voudrai bien mais j'peux point!
Merci de vos suggestions.
--
René Delcourt
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
Kamel
As tu essayer la methode Dir qui te permets de parcourir les fichier d'un repertoire ?
Kamel
"René Delcourt" a écrit dans le message de news:
Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
As tu essayer la methode Dir qui te permets de parcourir les fichier d'un
repertoire ?
Kamel
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news:
0C834D59-750D-44B7-A7E6-EF5E57C1D7F7@microsoft.com...
Bonjour,
Je cherche une idée pour me faciliter le vie.
J'envoie un même fichier à une vingtaine de destinataires.
Ceux-ci me le renvoient et je les stockent dans un même répertoire.
J'ai une procédure qui va en extraire les information.
Seulement, je passe chaque fois par dialog open (un à un) qui est le début
de la procédure.
Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à
traiter.
J'voudrai bien mais j'peux point!
Merci de vos suggestions.
--
René Delcourt
As tu essayer la methode Dir qui te permets de parcourir les fichier d'un repertoire ?
Kamel
"René Delcourt" a écrit dans le message de news:
Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
René Delcourt
Oui, c'est ce que je fais...un à un -- René Delcourt
As tu essayer la methode Dir qui te permets de parcourir les fichier d'un repertoire ?
Kamel
"René Delcourt" a écrit dans le message de news:
Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
Oui, c'est ce que je fais...un à un
--
René Delcourt
As tu essayer la methode Dir qui te permets de parcourir les fichier d'un
repertoire ?
Kamel
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news:
0C834D59-750D-44B7-A7E6-EF5E57C1D7F7@microsoft.com...
Bonjour,
Je cherche une idée pour me faciliter le vie.
J'envoie un même fichier à une vingtaine de destinataires.
Ceux-ci me le renvoient et je les stockent dans un même répertoire.
J'ai une procédure qui va en extraire les information.
Seulement, je passe chaque fois par dialog open (un à un) qui est le début
de la procédure.
Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à
traiter.
J'voudrai bien mais j'peux point!
Merci de vos suggestions.
--
René Delcourt
Oui, c'est ce que je fais...un à un -- René Delcourt
As tu essayer la methode Dir qui te permets de parcourir les fichier d'un repertoire ?
Kamel
"René Delcourt" a écrit dans le message de news:
Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
LSteph
Bonsoir René , sous réseve d'avoir ces fichiers et eux seul dans le répertoire ex: c:rep
'''*** Sub faizitou() Dim f ChDir "c:rep" f = Dir("*.xls") Do While Len(f) > 0 Workbooks.Open f 'toutcetiquifautoucallamacro Application.StatusBar = "traitement de " & f ActiveWorkbook.Close True f = Dir Loop Application.StatusBar = False End Sub '''***
'lSteph
"René Delcourt" a écrit dans le message de news:
Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
Bonsoir René ,
sous réseve d'avoir ces fichiers et eux seul dans le répertoire ex: c:rep
'''***
Sub faizitou()
Dim f
ChDir "c:rep"
f = Dir("*.xls")
Do While Len(f) > 0
Workbooks.Open f
'toutcetiquifautoucallamacro
Application.StatusBar = "traitement de " & f
ActiveWorkbook.Close True
f = Dir
Loop
Application.StatusBar = False
End Sub
'''***
'lSteph
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news:
0C834D59-750D-44B7-A7E6-EF5E57C1D7F7@microsoft.com...
Bonjour,
Je cherche une idée pour me faciliter le vie.
J'envoie un même fichier à une vingtaine de destinataires.
Ceux-ci me le renvoient et je les stockent dans un même répertoire.
J'ai une procédure qui va en extraire les information.
Seulement, je passe chaque fois par dialog open (un à un) qui est le début
de la procédure.
Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à
traiter.
J'voudrai bien mais j'peux point!
Merci de vos suggestions.
--
René Delcourt
Bonsoir René , sous réseve d'avoir ces fichiers et eux seul dans le répertoire ex: c:rep
'''*** Sub faizitou() Dim f ChDir "c:rep" f = Dir("*.xls") Do While Len(f) > 0 Workbooks.Open f 'toutcetiquifautoucallamacro Application.StatusBar = "traitement de " & f ActiveWorkbook.Close True f = Dir Loop Application.StatusBar = False End Sub '''***
'lSteph
"René Delcourt" a écrit dans le message de news:
Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
michdenis
Bonjour René,
essaie ceci :
'--------------------------------------- Sub OuvertureFichiersMultiples()
Dim a As Variant, Nom As String
Application.ScreenUpdating = False Nom = ActiveWorkbook.Name a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _ , "Sélection de vos fichiers excel", , True)
Select Case TypeName(a) Case Is = "Boolean" Exit Sub Case Is = "String" Workbooks.Open a Case Else For b = LBound(a) To UBound(a) Workbooks.Open a(b) Next End Select Workbooks(Nom).Activate
End Sub '---------------------------------------
Salutations!
"René Delcourt" a écrit dans le message de news: Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
Bonjour René,
essaie ceci :
'---------------------------------------
Sub OuvertureFichiersMultiples()
Dim a As Variant, Nom As String
Application.ScreenUpdating = False
Nom = ActiveWorkbook.Name
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Is = "String"
Workbooks.Open a
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Workbooks(Nom).Activate
End Sub
'---------------------------------------
Salutations!
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news: 0C834D59-750D-44B7-A7E6-EF5E57C1D7F7@microsoft.com...
Bonjour,
Je cherche une idée pour me faciliter le vie.
J'envoie un même fichier à une vingtaine de destinataires.
Ceux-ci me le renvoient et je les stockent dans un même répertoire.
J'ai une procédure qui va en extraire les information.
Seulement, je passe chaque fois par dialog open (un à un) qui est le début
de la procédure.
Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à
traiter.
J'voudrai bien mais j'peux point!
Merci de vos suggestions.
--
René Delcourt
'--------------------------------------- Sub OuvertureFichiersMultiples()
Dim a As Variant, Nom As String
Application.ScreenUpdating = False Nom = ActiveWorkbook.Name a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _ , "Sélection de vos fichiers excel", , True)
Select Case TypeName(a) Case Is = "Boolean" Exit Sub Case Is = "String" Workbooks.Open a Case Else For b = LBound(a) To UBound(a) Workbooks.Open a(b) Next End Select Workbooks(Nom).Activate
End Sub '---------------------------------------
Salutations!
"René Delcourt" a écrit dans le message de news: Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
René Delcourt
Je me réjouis d'essayé ces procédures. Merci encore -- René Delcourt
Bonjour René,
essaie ceci :
'--------------------------------------- Sub OuvertureFichiersMultiples()
Dim a As Variant, Nom As String
Application.ScreenUpdating = False Nom = ActiveWorkbook.Name a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _ , "Sélection de vos fichiers excel", , True)
Select Case TypeName(a) Case Is = "Boolean" Exit Sub Case Is = "String" Workbooks.Open a Case Else For b = LBound(a) To UBound(a) Workbooks.Open a(b) Next End Select Workbooks(Nom).Activate
End Sub '---------------------------------------
Salutations!
"René Delcourt" a écrit dans le message de news: Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
Je me réjouis d'essayé ces procédures.
Merci encore
--
René Delcourt
Bonjour René,
essaie ceci :
'---------------------------------------
Sub OuvertureFichiersMultiples()
Dim a As Variant, Nom As String
Application.ScreenUpdating = False
Nom = ActiveWorkbook.Name
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)
Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Is = "String"
Workbooks.Open a
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Workbooks(Nom).Activate
End Sub
'---------------------------------------
Salutations!
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news: 0C834D59-750D-44B7-A7E6-EF5E57C1D7F7@microsoft.com...
Bonjour,
Je cherche une idée pour me faciliter le vie.
J'envoie un même fichier à une vingtaine de destinataires.
Ceux-ci me le renvoient et je les stockent dans un même répertoire.
J'ai une procédure qui va en extraire les information.
Seulement, je passe chaque fois par dialog open (un à un) qui est le début
de la procédure.
Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à
traiter.
J'voudrai bien mais j'peux point!
Merci de vos suggestions.
--
René Delcourt
Je me réjouis d'essayé ces procédures. Merci encore -- René Delcourt
Bonjour René,
essaie ceci :
'--------------------------------------- Sub OuvertureFichiersMultiples()
Dim a As Variant, Nom As String
Application.ScreenUpdating = False Nom = ActiveWorkbook.Name a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _ , "Sélection de vos fichiers excel", , True)
Select Case TypeName(a) Case Is = "Boolean" Exit Sub Case Is = "String" Workbooks.Open a Case Else For b = LBound(a) To UBound(a) Workbooks.Open a(b) Next End Select Workbooks(Nom).Activate
End Sub '---------------------------------------
Salutations!
"René Delcourt" a écrit dans le message de news: Bonjour, Je cherche une idée pour me faciliter le vie. J'envoie un même fichier à une vingtaine de destinataires. Ceux-ci me le renvoient et je les stockent dans un même répertoire. J'ai une procédure qui va en extraire les information. Seulement, je passe chaque fois par dialog open (un à un) qui est le début de la procédure. Je voudrais bien pouvoir sélectionner en une seule fois les fichiers à traiter. J'voudrai bien mais j'peux point! Merci de vos suggestions. -- René Delcourt
