J'ai besoin d'importer plusieurs fichiers Txt en les regroupants les uns en
dessous des autres...
Pas de problème l'import ni pour le regroupage !
Mais j'utilise : NomFichier = Application.GetOpenFilename("Document
Texte (*.*), *.*")
Moi je sais lesquels choisir, mais pour faire ouvrir un à un, par un autre
utilisateur, les différents fichier à importer (pas toujours les mêmes ou la
même qte...) je coince
- Comment faire pour comparer le NomFichier choisit avec les NomFichier déjà
ouverts ??
J'ai essayé avec : ClasseurImport = ActiveWorkbook.Windows(1).Caption
Mais la qte étant variable, j'ai un problème de qte de variable
ClasseurImport
- Faudrait que je puisse stocker les noms de fichier ouvert dans la mcro
pour pouvoir les comparer !!
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
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
Daniel
Bonjour. J'essaierais un truc du genre (dimensionner la variable Fichiers sur le nombre maximal de fichiers à traiter) :
Sub Test() Dim Fichiers(10) As String, Ctr As Integer, Fichier As String, Ok As Boolean Ctr = 0 Ok = False Do While 1 = 1 Ok = False Do While Ok = False Fichier = Application.GetOpenFilename("Document Texte (*.*), *.*") For i = 0 To 10 If Fichier = Fichiers(i) Then MsgBox "Fichier déjà ouvert" Exit For Else Ok = True End If Next i Loop Workbooks.Open Filename:=Fichier Fichiers(Ctr) = Fichier Ctr = Ctr + 1 Rep = MsgBox("Fin du traitement ?", vbYesNo) If Rep = vbYes Then Exit Sub ' ' ' 'Ton traitement ' ' ' Loop End Sub
Cordialement. Daniel "Myriam" a écrit dans le message de news: e0ZwHt$
Bonjour à toutes et tous !
J'ai besoin d'importer plusieurs fichiers Txt en les regroupants les uns en dessous des autres... Pas de problème l'import ni pour le regroupage ! Mais j'utilise : NomFichier = Application.GetOpenFilename("Document Texte (*.*), *.*") Moi je sais lesquels choisir, mais pour faire ouvrir un à un, par un autre utilisateur, les différents fichier à importer (pas toujours les mêmes ou la même qte...) je coince
- Comment faire pour comparer le NomFichier choisit avec les NomFichier déjà ouverts ??
J'ai essayé avec : ClasseurImport = ActiveWorkbook.Windows(1).Caption Mais la qte étant variable, j'ai un problème de qte de variable ClasseurImport
- Faudrait que je puisse stocker les noms de fichier ouvert dans la mcro pour pouvoir les comparer !!
Merci ______________________________________ J'aime bien les NewsGroup mais pas les virus !!! Retirer la 'Virgule.' si vous voulez répondre !! Myriam.M
Bonjour.
J'essaierais un truc du genre (dimensionner la variable Fichiers sur le
nombre maximal de fichiers à traiter) :
Sub Test()
Dim Fichiers(10) As String, Ctr As Integer, Fichier As String, Ok As
Boolean
Ctr = 0
Ok = False
Do While 1 = 1
Ok = False
Do While Ok = False
Fichier = Application.GetOpenFilename("Document Texte (*.*),
*.*")
For i = 0 To 10
If Fichier = Fichiers(i) Then
MsgBox "Fichier déjà ouvert"
Exit For
Else
Ok = True
End If
Next i
Loop
Workbooks.Open Filename:=Fichier
Fichiers(Ctr) = Fichier
Ctr = Ctr + 1
Rep = MsgBox("Fin du traitement ?", vbYesNo)
If Rep = vbYes Then Exit Sub
'
'
'
'Ton traitement
'
'
'
Loop
End Sub
Cordialement.
Daniel
"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news: e0ZwHt$EFHA.1396@tk2msftngp13.phx.gbl...
Bonjour à toutes et tous !
J'ai besoin d'importer plusieurs fichiers Txt en les regroupants les uns
en
dessous des autres...
Pas de problème l'import ni pour le regroupage !
Mais j'utilise : NomFichier = Application.GetOpenFilename("Document
Texte (*.*), *.*")
Moi je sais lesquels choisir, mais pour faire ouvrir un à un, par un autre
utilisateur, les différents fichier à importer (pas toujours les mêmes ou
la
même qte...) je coince
- Comment faire pour comparer le NomFichier choisit avec les NomFichier
déjà
ouverts ??
J'ai essayé avec : ClasseurImport = ActiveWorkbook.Windows(1).Caption
Mais la qte étant variable, j'ai un problème de qte de variable
ClasseurImport
- Faudrait que je puisse stocker les noms de fichier ouvert dans la mcro
pour pouvoir les comparer !!
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
Bonjour. J'essaierais un truc du genre (dimensionner la variable Fichiers sur le nombre maximal de fichiers à traiter) :
Sub Test() Dim Fichiers(10) As String, Ctr As Integer, Fichier As String, Ok As Boolean Ctr = 0 Ok = False Do While 1 = 1 Ok = False Do While Ok = False Fichier = Application.GetOpenFilename("Document Texte (*.*), *.*") For i = 0 To 10 If Fichier = Fichiers(i) Then MsgBox "Fichier déjà ouvert" Exit For Else Ok = True End If Next i Loop Workbooks.Open Filename:=Fichier Fichiers(Ctr) = Fichier Ctr = Ctr + 1 Rep = MsgBox("Fin du traitement ?", vbYesNo) If Rep = vbYes Then Exit Sub ' ' ' 'Ton traitement ' ' ' Loop End Sub
Cordialement. Daniel "Myriam" a écrit dans le message de news: e0ZwHt$
Bonjour à toutes et tous !
J'ai besoin d'importer plusieurs fichiers Txt en les regroupants les uns en dessous des autres... Pas de problème l'import ni pour le regroupage ! Mais j'utilise : NomFichier = Application.GetOpenFilename("Document Texte (*.*), *.*") Moi je sais lesquels choisir, mais pour faire ouvrir un à un, par un autre utilisateur, les différents fichier à importer (pas toujours les mêmes ou la même qte...) je coince
- Comment faire pour comparer le NomFichier choisit avec les NomFichier déjà ouverts ??
J'ai essayé avec : ClasseurImport = ActiveWorkbook.Windows(1).Caption Mais la qte étant variable, j'ai un problème de qte de variable ClasseurImport
- Faudrait que je puisse stocker les noms de fichier ouvert dans la mcro pour pouvoir les comparer !!
Merci ______________________________________ J'aime bien les NewsGroup mais pas les virus !!! Retirer la 'Virgule.' si vous voulez répondre !! Myriam.M
Myriam
Merci ! Je vais tester ça !! A+ ______________________________________ J'aime bien les NewsGroup mais pas les virus !!! Retirer la 'Virgule.' si vous voulez répondre !! Myriam.M "Daniel" a écrit dans le message de news:
Bonjour. J'essaierais un truc du genre (dimensionner la variable Fichiers sur le nombre maximal de fichiers à traiter) :
Sub Test() Dim Fichiers(10) As String, Ctr As Integer, Fichier As String, Ok As Boolean Ctr = 0 Ok = False Do While 1 = 1 Ok = False Do While Ok = False Fichier = Application.GetOpenFilename("Document Texte (*.*), *.*") For i = 0 To 10 If Fichier = Fichiers(i) Then MsgBox "Fichier déjà ouvert" Exit For Else Ok = True End If Next i Loop Workbooks.Open Filename:=Fichier Fichiers(Ctr) = Fichier Ctr = Ctr + 1 Rep = MsgBox("Fin du traitement ?", vbYesNo) If Rep = vbYes Then Exit Sub ' ' ' 'Ton traitement ' ' ' Loop End Sub
Cordialement. Daniel "Myriam" a écrit dans le message de news: e0ZwHt$
Bonjour à toutes et tous !
J'ai besoin d'importer plusieurs fichiers Txt en les regroupants les uns en dessous des autres... Pas de problème l'import ni pour le regroupage ! Mais j'utilise : NomFichier = Application.GetOpenFilename("Document Texte (*.*), *.*") Moi je sais lesquels choisir, mais pour faire ouvrir un à un, par un autre
utilisateur, les différents fichier à importer (pas toujours les mêmes ou
la même qte...) je coince
- Comment faire pour comparer le NomFichier choisit avec les NomFichier déjà ouverts ??
J'ai essayé avec : ClasseurImport = ActiveWorkbook.Windows(1).Caption Mais la qte étant variable, j'ai un problème de qte de variable ClasseurImport
- Faudrait que je puisse stocker les noms de fichier ouvert dans la mcro pour pouvoir les comparer !!
Merci ______________________________________ J'aime bien les NewsGroup mais pas les virus !!! Retirer la 'Virgule.' si vous voulez répondre !! Myriam.M
Merci !
Je vais tester ça !!
A+
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OYbXunAFFHA.1392@tk2msftngp13.phx.gbl...
Bonjour.
J'essaierais un truc du genre (dimensionner la variable Fichiers sur le
nombre maximal de fichiers à traiter) :
Sub Test()
Dim Fichiers(10) As String, Ctr As Integer, Fichier As String, Ok As
Boolean
Ctr = 0
Ok = False
Do While 1 = 1
Ok = False
Do While Ok = False
Fichier = Application.GetOpenFilename("Document Texte (*.*),
*.*")
For i = 0 To 10
If Fichier = Fichiers(i) Then
MsgBox "Fichier déjà ouvert"
Exit For
Else
Ok = True
End If
Next i
Loop
Workbooks.Open Filename:=Fichier
Fichiers(Ctr) = Fichier
Ctr = Ctr + 1
Rep = MsgBox("Fin du traitement ?", vbYesNo)
If Rep = vbYes Then Exit Sub
'
'
'
'Ton traitement
'
'
'
Loop
End Sub
Cordialement.
Daniel
"Myriam" <Vigule.la.bande.a.basil@Netcourrier.com> a écrit dans le message
de news: e0ZwHt$EFHA.1396@tk2msftngp13.phx.gbl...
Bonjour à toutes et tous !
J'ai besoin d'importer plusieurs fichiers Txt en les regroupants les uns
en
dessous des autres...
Pas de problème l'import ni pour le regroupage !
Mais j'utilise : NomFichier = Application.GetOpenFilename("Document
Texte (*.*), *.*")
Moi je sais lesquels choisir, mais pour faire ouvrir un à un, par un
autre
utilisateur, les différents fichier à importer (pas toujours les mêmes
ou
la
même qte...) je coince
- Comment faire pour comparer le NomFichier choisit avec les NomFichier
déjà
ouverts ??
J'ai essayé avec : ClasseurImport = ActiveWorkbook.Windows(1).Caption
Mais la qte étant variable, j'ai un problème de qte de variable
ClasseurImport
- Faudrait que je puisse stocker les noms de fichier ouvert dans la mcro
pour pouvoir les comparer !!
Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
Merci ! Je vais tester ça !! A+ ______________________________________ J'aime bien les NewsGroup mais pas les virus !!! Retirer la 'Virgule.' si vous voulez répondre !! Myriam.M "Daniel" a écrit dans le message de news:
Bonjour. J'essaierais un truc du genre (dimensionner la variable Fichiers sur le nombre maximal de fichiers à traiter) :
Sub Test() Dim Fichiers(10) As String, Ctr As Integer, Fichier As String, Ok As Boolean Ctr = 0 Ok = False Do While 1 = 1 Ok = False Do While Ok = False Fichier = Application.GetOpenFilename("Document Texte (*.*), *.*") For i = 0 To 10 If Fichier = Fichiers(i) Then MsgBox "Fichier déjà ouvert" Exit For Else Ok = True End If Next i Loop Workbooks.Open Filename:=Fichier Fichiers(Ctr) = Fichier Ctr = Ctr + 1 Rep = MsgBox("Fin du traitement ?", vbYesNo) If Rep = vbYes Then Exit Sub ' ' ' 'Ton traitement ' ' ' Loop End Sub
Cordialement. Daniel "Myriam" a écrit dans le message de news: e0ZwHt$
Bonjour à toutes et tous !
J'ai besoin d'importer plusieurs fichiers Txt en les regroupants les uns en dessous des autres... Pas de problème l'import ni pour le regroupage ! Mais j'utilise : NomFichier = Application.GetOpenFilename("Document Texte (*.*), *.*") Moi je sais lesquels choisir, mais pour faire ouvrir un à un, par un autre
utilisateur, les différents fichier à importer (pas toujours les mêmes ou
la même qte...) je coince
- Comment faire pour comparer le NomFichier choisit avec les NomFichier déjà ouverts ??
J'ai essayé avec : ClasseurImport = ActiveWorkbook.Windows(1).Caption Mais la qte étant variable, j'ai un problème de qte de variable ClasseurImport
- Faudrait que je puisse stocker les noms de fichier ouvert dans la mcro pour pouvoir les comparer !!
Merci ______________________________________ J'aime bien les NewsGroup mais pas les virus !!! Retirer la 'Virgule.' si vous voulez répondre !! Myriam.M
