With Worksheets("BDD") .Range("A1") = "Nom" .Range("B1") = "Mois" .Range("C1") = "Trimestre" .Range("D1") = "Année" .Range("E1") = "Nbjoursmois" .Range("F1") = "Nbconges" .Range("G1") = "Nbformation" .Range("H1") = "Nbtrav" End With
Dim MyNewWbk as Workbook, BDDFeuille As Worksheet With Worksheets("BDD") .Range("A1") = "Nom" .Range("B1") = "Mois" .Range("C1") = "Trimestre" .Range("D1") = "Année" .Range("E1") = "Nbjoursmois" .Range("F1") = "Nbconges" .Range("G1") = "Nbformation" .Range("H1") = "Nbtrav" End With If Left(Dir("MACINTOSH HD:USERS:anne:Desktop:BDD.xls", MacID("XLS5")), 4) <> "BDD." Then Set MyNewWbk = Workbooks.Add Set BDDFeuille = Worksheets.Add With BDDFeuille .Name = "BDD" .Range("A1") = "Nom" .Range("B1") = "Mois" .Range("C1") = "Trimestre" .Range("D1") = "Année" .Range("E1") = "Nbjoursmois" .Range("F1") = "Nbconges" .Range("G1") = "Nbformation" .Range("H1") = "Nbtrav" ThisWorkbook.Worksheets("fiche_activite").Range("A15:E15").Copy Destination:=.Range("I1:M1") 'depuis excel 2010 il y à puls de 65535 il est donc preferable d'utilisé la methode suivante ' qui fonctionne avec toutes les versions d'excel LigneCible = .Range("A" & .Columns("A").Rows.Count).End(xlUp).Row + 1 End With MyNewWbk.SaveAs Filename = "MACINTOSH HD: Users: anne: Desktop:BDD.xls"
With Worksheets("BDD")
Use of Excel workbooks created on a Mac machine can cause problems. They are supposed to be in interchangeable, but we have had Mac users send up workbooks that will crash our computers. Try not to exchange files between PC and Macs!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionWorkbooks.Add Worksheets.Add ActiveSheet.Name = "BDD"
Dim nouvwb As Workbook, nouvfeuille As Worksheet Set nouvwb = Workbooks.Add Set nouvfeuille = nouvwb.Worksheets.Add() nouvfeuille.Name = "BDD"
ActiveWorkbook.SaveAs Filename = "MACINTOSH HD: Users: anne: Desktop:BDD.xls"
nouvwb.SaveAs Filename = "MACINTOSH HD: Users: anne: Desktop:BDD.xls"
set nouvwb = nothing ser nouvfeuille = nothing
LigneCible = Workbooks("MACINTOSH HD: Users: anne: Desktop: BDD.xls").Worksheets("BDD").Range("A65535").End(xlUp).Row + 1
If Left(Dir("MACINTOSH HD:USERS:anne:Desktop:BDD.xls", MacID("XLS5")), 4) <> "BDD." Then Set MyNewWbk = Workbooks.Add Set BDDFeuille = Worksheets.Add With BDDFeuille .Name = "BDD" .Range("A1") = "Nom" .Range("B1") = "Mois" .Range("C1") = "Trimestre" .Range("D1") = "Année" .Range("E1") = "Nbjoursmois" .Range("F1") = "Nbconges" .Range("G1") = "Nbformation" .Range("H1") = "Nbtrav" ThisWorkbook.Worksheets("fiche_activite").Range("A15:E15").Copy Destination:=.Range("I1:M1") 'depuis excel 2010 il y à plus de 65535 lignes, il est donc préférable d'utiliser la méthode suivante ' qui fonctionne avec toutes les versions d'excel LigneCible = .Range("A" & .Columns("A").Rows.Count).End(xlUp).Row + 1 End With
For Pointeur = LigneCible To LigneCible + UBound(Données) - 1
Je pensais que les forum était un peu d'aide mais je vois que cela n'est pas le cas