J'ai 14 fichiers existants dont les noms sont AA.xls,=20
AC.xls, AE.xls, BA.xls, ...
Je veux faire une macro qui compare les deux premi=E8res=20
lettres du nom du fichier ouvert (par exemple=20
BA120803.csv) et qu'il ouvre le fichier avec les lettres=20
lui correspondant. J'ai essay=E9 la macro suivante: J'ouvre=20
le fichier BA240408 =E0 titre d'essai..
Workbooks.Open Filename:=3D"S:\Trienco\BA240408.csv"
nom_fichier =3D ActiveWorkbook.Name
If ActiveWorkbook.Name =3D "BA * .csv" Then
Workbooks.Open Filename:=3D"P:\techniques\karine=20
gagnon\BA.xls"
ElseIf Activeworkbook.Name =3D "AA*.csv" Then
Workbooks.Open Filename:=3D"P:\techniques\karine=20
gagnon\AA.xls"
End If
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
Karine
Merci Isabelle! ça fonctionne très bien.
Karine
-----Message d'origine----- bonjour Karine,
remplace la condition par,
If Left(ActiveWorkbook.Name, 2) = "BA" Then
isabelle
Bonjour,
J'ai 14 fichiers existants dont les noms sont AA.xls, AC.xls, AE.xls, BA.xls, ...
Je veux faire une macro qui compare les deux premières lettres du nom du fichier ouvert (par exemple BA120803.csv) et qu'il ouvre le fichier avec les lettres lui correspondant. J'ai essayé la macro suivante: J'ouvre
le fichier BA240408 à titre d'essai..
Workbooks.Open Filename:="S:TriencoBA240408.csv" nom_fichier = ActiveWorkbook.Name If ActiveWorkbook.Name = "BA * .csv" Then Workbooks.Open Filename:="P:techniqueskarine gagnonBA.xls" ElseIf Activeworkbook.Name = "AA*.csv" Then Workbooks.Open Filename:="P:techniqueskarine gagnonAA.xls" End If
Merci
Merci .
Merci Isabelle!
ça fonctionne très bien.
Karine
-----Message d'origine-----
bonjour Karine,
remplace la condition par,
If Left(ActiveWorkbook.Name, 2) = "BA" Then
isabelle
Bonjour,
J'ai 14 fichiers existants dont les noms sont AA.xls,
AC.xls, AE.xls, BA.xls, ...
Je veux faire une macro qui compare les deux premières
lettres du nom du fichier ouvert (par exemple
BA120803.csv) et qu'il ouvre le fichier avec les lettres
lui correspondant. J'ai essayé la macro suivante:
J'ouvre
le fichier BA240408 à titre d'essai..
Workbooks.Open Filename:="S:TriencoBA240408.csv"
nom_fichier = ActiveWorkbook.Name
If ActiveWorkbook.Name = "BA * .csv" Then
Workbooks.Open Filename:="P:techniqueskarine
gagnonBA.xls"
ElseIf Activeworkbook.Name = "AA*.csv" Then
Workbooks.Open Filename:="P:techniqueskarine
gagnonAA.xls"
End If
J'ai 14 fichiers existants dont les noms sont AA.xls, AC.xls, AE.xls, BA.xls, ...
Je veux faire une macro qui compare les deux premières lettres du nom du fichier ouvert (par exemple BA120803.csv) et qu'il ouvre le fichier avec les lettres lui correspondant. J'ai essayé la macro suivante: J'ouvre
le fichier BA240408 à titre d'essai..
Workbooks.Open Filename:="S:TriencoBA240408.csv" nom_fichier = ActiveWorkbook.Name If ActiveWorkbook.Name = "BA * .csv" Then Workbooks.Open Filename:="P:techniqueskarine gagnonBA.xls" ElseIf Activeworkbook.Name = "AA*.csv" Then Workbooks.Open Filename:="P:techniqueskarine gagnonAA.xls" End If
