Bonjour,
Mon problème vient de ma méconnaissance de l'utilisation des macros sous excel 2011 (version 14.0.0)
je suis entraineur et l'informatique aidant, les engagements se font par échange de fichier excel.
Le seul soucis est que la fédération utilise excel avec une macro programmé pour importer des fichiers (téléchargés directement de la base de donnée fédérale) préalablement enregistrer à la racine "C:"
1ère question qu'est ce qui correspondrait de près ou de loin à la racine "C:" sous mac?
Je n'y comprends pas grand chose mais en ouvrant le gestionnaire de macro, différentes fenêtres s'ouvrent, dont celle-ci qui me dit que c'est ici (enfin je pense) qu'il faut indiquer le chemin pour trouver le dit fichier.
2nd question, la macro est elle adaptée pour une utilisation sous mac?
J'espère avoir été clair dans l'explication de mon problème et pouvoir vous lire rapidement.
Cordialement
Mon problème vient de ma méconnaissance de l'utilisation des macros sous excel 2011 (version 14.0.0)
je suis entraineur et l'informatique aidant, les engagements se font par échange de fichier excel.
Le seul soucis est que la fédération utilise excel avec une macro programmé pour importer des fichiers (téléchargés directement de la base de donnée fédérale) préalablement enregistrer à la racine "C:"
1ère question qu'est ce qui correspondrait de près ou de loin à la racine "C:" sous mac?
Je n'y comprends pas grand chose mais en ouvrant le gestionnaire de macro, différentes fenêtres s'ouvrent, dont celle-ci qui me dit que c'est ici (enfin je pense) qu'il faut indiquer le chemin pour trouver le dit fichier.
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("FFN Licences").Select
Workbooks.OpenText Filename:= _
"C:\licencies.ffn", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _
(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), _
Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array( _
27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1)) _
, TrailingMinusNumbers:=True
Columns("E:E").Select
Selection.Copy
Columns("B:B").Select
ActiveSheet.Paste
Columns("D").Select
Application.CutCopyMode = False
Selection.Copy
Columns("C:C").Select
ActiveSheet.Paste
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Copy
Columns("E:E").Select
ActiveSheet.Paste
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Copy
Columns("D").Select
ActiveSheet.Paste
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Columns("G:G").Select
ActiveSheet.Paste
Columns("B:E").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("licencies").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("licencies").Sort.SortFields.Add Key:=Range("B1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("licencies").Sort
.SetRange Range("B1:G2000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B1").Select
Columns("B:G").Select
Selection.Copy
Windows( _
"Engagements Pass compétition (officiel CD75).xls"). _
Activate
Columns("B:B").Select
ActiveSheet.Paste
Sheets("Filtre").Select
Application.Workbooks("licencies.ffn").Close SaveChanges:=False
End Sub
2nd question, la macro est elle adaptée pour une utilisation sous mac?
J'espère avoir été clair dans l'explication de mon problème et pouvoir vous lire rapidement.
Cordialement