j'ai une macro reprenant un filtre élaboré se basant sur un tableau d'un
autre fichier *.xls
Le problème c'est que pour que la macro se lance, faut que j'ouvre ce
fichier *.xls source
n'y aurait il pas moyen de mettre cette ouverture (et fermeture) de fichier
dans la macro? Et ou le mettre?
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 6/07/2005 par ntnsx
'
' Touche de raccourci du clavier: Ctrl+a
'
Workbooks("fichiersource.xls").Sheets( _
"feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("U1:U2"),
CopyToRange:=Range("A3:S3"), _
Unique:=False
End Sub
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. Si j'ai bien compris :
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 6/07/2005 par ntnsx ' ' Touche de raccourci du clavier: Ctrl+a ' Workbooks.Open Filename:="C:TonRepertoirefichiersource.xls" workbooks("fichiercible.xls").activate Workbooks("fichiersource.xls").Sheets( _ "feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("U1:U2"), CopyToRange:=Range("A3:S3"), _ Unique:úlse Workbooks("fichiersource.xls").Close SaveChanges:úlse End Sub
Cordialement. daniel "ntnsx" a écrit dans le message de news:
hello..c'est encore moi... ^_^"
j'ai une macro reprenant un filtre élaboré se basant sur un tableau d'un autre fichier *.xls Le problème c'est que pour que la macro se lance, faut que j'ouvre ce fichier *.xls source
n'y aurait il pas moyen de mettre cette ouverture (et fermeture) de fichier dans la macro? Et ou le mettre?
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 6/07/2005 par ntnsx ' ' Touche de raccourci du clavier: Ctrl+a ' Workbooks("fichiersource.xls").Sheets( _ "feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("U1:U2"), CopyToRange:=Range("A3:S3"), _ Unique:úlse End Sub
"C'était la question du jour, avec ntnsx"
bien à vous ;)
Bonjour.
Si j'ai bien compris :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 6/07/2005 par ntnsx
'
' Touche de raccourci du clavier: Ctrl+a
'
Workbooks.Open Filename:="C:TonRepertoirefichiersource.xls"
workbooks("fichiercible.xls").activate
Workbooks("fichiersource.xls").Sheets( _
"feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("U1:U2"),
CopyToRange:=Range("A3:S3"), _
Unique:úlse
Workbooks("fichiersource.xls").Close SaveChanges:úlse
End Sub
Cordialement.
daniel
"ntnsx" <ntnsx@discussions.microsoft.com> a écrit dans le message de news:
63701E1B-BE28-42E0-892D-1678071F8937@microsoft.com...
hello..c'est encore moi... ^_^"
j'ai une macro reprenant un filtre élaboré se basant sur un tableau d'un
autre fichier *.xls
Le problème c'est que pour que la macro se lance, faut que j'ouvre ce
fichier *.xls source
n'y aurait il pas moyen de mettre cette ouverture (et fermeture) de
fichier
dans la macro? Et ou le mettre?
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 6/07/2005 par ntnsx
'
' Touche de raccourci du clavier: Ctrl+a
'
Workbooks("fichiersource.xls").Sheets( _
"feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("U1:U2"),
CopyToRange:=Range("A3:S3"), _
Unique:úlse
End Sub
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 6/07/2005 par ntnsx ' ' Touche de raccourci du clavier: Ctrl+a ' Workbooks.Open Filename:="C:TonRepertoirefichiersource.xls" workbooks("fichiercible.xls").activate Workbooks("fichiersource.xls").Sheets( _ "feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("U1:U2"), CopyToRange:=Range("A3:S3"), _ Unique:úlse Workbooks("fichiersource.xls").Close SaveChanges:úlse End Sub
Cordialement. daniel "ntnsx" a écrit dans le message de news:
hello..c'est encore moi... ^_^"
j'ai une macro reprenant un filtre élaboré se basant sur un tableau d'un autre fichier *.xls Le problème c'est que pour que la macro se lance, faut que j'ouvre ce fichier *.xls source
n'y aurait il pas moyen de mettre cette ouverture (et fermeture) de fichier dans la macro? Et ou le mettre?
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 6/07/2005 par ntnsx ' ' Touche de raccourci du clavier: Ctrl+a ' Workbooks("fichiersource.xls").Sheets( _ "feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("U1:U2"), CopyToRange:=Range("A3:S3"), _ Unique:úlse End Sub
"C'était la question du jour, avec ntnsx"
bien à vous ;)
ntnsx
"ooow o-o-o-oooow, vous avez peché une boule noire" :p
Erreur d'exécution 1004 Nom de champ introuvable ou incorrect dans la plage d'extraction
je pense qu'il essaie de faire le filtre dans le fichier source
merci bcp d'avoir essayé ;)
Une autre proposition? Daniel? qqu'un d'autre?
Bonjour. Si j'ai bien compris :
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 6/07/2005 par ntnsx ' ' Touche de raccourci du clavier: Ctrl+a ' Workbooks.Open Filename:="C:TonRepertoirefichiersource.xls" workbooks("fichiercible.xls").activate Workbooks("fichiersource.xls").Sheets( _ "feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("U1:U2"), CopyToRange:=Range("A3:S3"), _ Unique:úlse Workbooks("fichiersource.xls").Close SaveChanges:úlse End Sub
Cordialement. daniel "ntnsx" a écrit dans le message de news:
hello..c'est encore moi... ^_^"
j'ai une macro reprenant un filtre élaboré se basant sur un tableau d'un autre fichier *.xls Le problème c'est que pour que la macro se lance, faut que j'ouvre ce fichier *.xls source
n'y aurait il pas moyen de mettre cette ouverture (et fermeture) de fichier dans la macro? Et ou le mettre?
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 6/07/2005 par ntnsx ' ' Touche de raccourci du clavier: Ctrl+a ' Workbooks("fichiersource.xls").Sheets( _ "feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("U1:U2"), CopyToRange:=Range("A3:S3"), _ Unique:úlse End Sub
"C'était la question du jour, avec ntnsx"
bien à vous ;)
"ooow o-o-o-oooow, vous avez peché une boule noire" :p
Erreur d'exécution 1004
Nom de champ introuvable ou incorrect dans la plage d'extraction
je pense qu'il essaie de faire le filtre dans le fichier source
merci bcp d'avoir essayé ;)
Une autre proposition? Daniel? qqu'un d'autre?
Bonjour.
Si j'ai bien compris :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 6/07/2005 par ntnsx
'
' Touche de raccourci du clavier: Ctrl+a
'
Workbooks.Open Filename:="C:TonRepertoirefichiersource.xls"
workbooks("fichiercible.xls").activate
Workbooks("fichiersource.xls").Sheets( _
"feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("U1:U2"),
CopyToRange:=Range("A3:S3"), _
Unique:úlse
Workbooks("fichiersource.xls").Close SaveChanges:úlse
End Sub
Cordialement.
daniel
"ntnsx" <ntnsx@discussions.microsoft.com> a écrit dans le message de news:
63701E1B-BE28-42E0-892D-1678071F8937@microsoft.com...
hello..c'est encore moi... ^_^"
j'ai une macro reprenant un filtre élaboré se basant sur un tableau d'un
autre fichier *.xls
Le problème c'est que pour que la macro se lance, faut que j'ouvre ce
fichier *.xls source
n'y aurait il pas moyen de mettre cette ouverture (et fermeture) de
fichier
dans la macro? Et ou le mettre?
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 6/07/2005 par ntnsx
'
' Touche de raccourci du clavier: Ctrl+a
'
Workbooks("fichiersource.xls").Sheets( _
"feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("U1:U2"),
CopyToRange:=Range("A3:S3"), _
Unique:úlse
End Sub
"ooow o-o-o-oooow, vous avez peché une boule noire" :p
Erreur d'exécution 1004 Nom de champ introuvable ou incorrect dans la plage d'extraction
je pense qu'il essaie de faire le filtre dans le fichier source
merci bcp d'avoir essayé ;)
Une autre proposition? Daniel? qqu'un d'autre?
Bonjour. Si j'ai bien compris :
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 6/07/2005 par ntnsx ' ' Touche de raccourci du clavier: Ctrl+a ' Workbooks.Open Filename:="C:TonRepertoirefichiersource.xls" workbooks("fichiercible.xls").activate Workbooks("fichiersource.xls").Sheets( _ "feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("U1:U2"), CopyToRange:=Range("A3:S3"), _ Unique:úlse Workbooks("fichiersource.xls").Close SaveChanges:úlse End Sub
Cordialement. daniel "ntnsx" a écrit dans le message de news:
hello..c'est encore moi... ^_^"
j'ai une macro reprenant un filtre élaboré se basant sur un tableau d'un autre fichier *.xls Le problème c'est que pour que la macro se lance, faut que j'ouvre ce fichier *.xls source
n'y aurait il pas moyen de mettre cette ouverture (et fermeture) de fichier dans la macro? Et ou le mettre?
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 6/07/2005 par ntnsx ' ' Touche de raccourci du clavier: Ctrl+a ' Workbooks("fichiersource.xls").Sheets( _ "feuillesource").Range("A1:AA2000").AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=Range("U1:U2"), CopyToRange:=Range("A3:S3"), _ Unique:úlse End Sub
