Obliger date format france

Le 17/04/2013 à 11:02

Bonjour,

A l aide d une macro je sélectionné une plage contenant des dates au format France jj/mm/aaaa

A l aide d une autre macro dans un autre fichier je colle cette plage mais certaine date apparaissent sous format mm/jj/aaaa

Existe t il un code a mettre en tête de la macro pour forcer le format France des dates, pendant ce collage ?

Le 17/04/2013 à 12:27

Bonjour,

A l aide d une macro

Ah oui, laquelle ? Et le fichier de test il est où ?

Sans plus de renseignement utiliser DateValue()

eric

Le 17/04/2013 à 13:41

je recherche un code général et non particulier, mais je vais essayer de produire un fichier test.

Le 02/06/2013 à 21:13

à chaque export d'une valeur (date) d'une cellule vers un autre classeur, si date et moi inférieur à 13 alors excel pense que la date est au format anglais et qu'il faut intervertir jour et moi : exemple 04/10/2013 devient aprés manipulation 10/04/2013.

c'est trés chiant !!

des idées pour y remedier ?

Le 02/06/2013 à 21:42

Piste à creuser :

Range(machinchose).FormulaLocal = ...

(En esperant que ça fasse avancer le shmilblick)

Le 02/06/2013 à 23:39

Pas bonjour non plus,

puisque tu ne veux pas mettre de fichier on va se passer d'être précis.

Utilise cdate() et n'oublie pas de mettre en résolu (cocher le post).

eric

Le 07/06/2013 à 00:26

de rien...

Le 07/06/2013 à 17:13

Pou répondre au raleur de service ...

Voici mon premier code d'export de base de donnée, la copie en elle même est on ne peut plus simple : Cells.Copy

Sub export_bd()
Sheets("attente").Select
Application.ScreenUpdating = False
'

Etiquette:
Sheets("extraction").Select

If Range("A7") <> "" Then
Else:
Sheets("import-export").Select
Range("A1") = "ZORRO"
Cells.Copy
Sheets("comparatif").Select
MsgBox ("exportation de la base de donnée prete, votre fichier excel va maintenant se fermer sans enregistrement préalable")
Application.DisplayAlerts = True
    ThisWorkbook.Saved = True
    Application.Quit
Application.DisplayAlerts = False
Exit Sub
End If

Rows(7).Select
Selection.Cut
Sheets("import-export").Select
Rows(1).Select
Selection.Insert
Sheets("extraction").Select
Rows(7).Select
Selection.Delete

GoTo Etiquette

Application.ScreenUpdating = True
End Sub

Et voici la macro qui me permet de récuperer la copie effectué et gardé en presse papier : Cells.Select ActiveSheet.Paste

Sub import_bd_v3()

Sheets("attente").Select
Application.ScreenUpdating = False

Sheets("import-export").Select
Cells.Select
ActiveSheet.Paste

If Range("A1") = "ZORRO" Then
Else:
MsgBox ("ERREUR, la version de TAAF dont est issue votre base de donnée est antérieure à V3, veuillez recommencer !!")
Sheets("Feuil1").Select
Exit Sub
End If

Etiquette:
Sheets("import-export").Select

If Range("A1") <> "" Then
Else:
Sheets("comparatif").Select
MsgBox ("base de donnée prete")
Sheets("Feuil1").Select
Exit Sub
End If

Rows(1).Copy
Sheets("extraction").Select
Rows(4).Insert
    Range("H4,I4,K4,M4,N4,Q4,AB4:FF4,FG4:FS4,FU4:GD4,GE4:GF4,GQ4:GT4").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Rows(5).Delete
Sheets("import-export").Select
Rows(1).Select
Selection.Delete

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Application.Run "importer"

' importation données pré enregistrer AF

'feuille accueil
Sheets("attente").Select
Application.ScreenUpdating = False
    Sheets("extraction").Select
    Range("B4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("C4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("D4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("E4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("F4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("G4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("H4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("I4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("J4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("K4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D26").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("L4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D28").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("M4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("N4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("O4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("P4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D38").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("Q4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("R4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D42").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("S4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B48").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("T4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B54").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("U4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B58").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("V4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B62").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("W4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B66").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("X4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B70").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("Y4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B74").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("Z4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B78").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("Z4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B78").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("AA4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("B82").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

'fin feuille accueil

'feuille calcul des surfaces

    Range("AB4:AF4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G8:G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("AG4:AL4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G14:G19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("AM4:AS4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G21:G27").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("AT4:AY4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G29:G34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("AZ4:BH4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G36:G44").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("BI4:BM4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G46:G50").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("BN4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G53").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("BO4:BQ4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G55:G57").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("BR4:CF4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G59:G73").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("CG4:CH4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G76:G77").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("CI4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G79").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("CJ4:CL4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G81:G83").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("CM4:CP4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G85:G88").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("CQ4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G92").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("CR4:CW4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G94:G99").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("CX4:CZ4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G102:G104").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DA4:DB4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G106:G107").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DC4:DD4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G111:G112").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DE4:DH4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G114:G117").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DI4:DL4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G119:G122").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DM4:DN4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G125:G126").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DO4:DP4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G128:G129").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DQ4:DR4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G131:G132").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DS4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G136").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DT4:DW4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G138:G141").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("DX4:DZ4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G143:G145").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("EA4:EG4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G147:G153").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("EH4:EJ4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G155:G157").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("EK4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G160").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("EL4:EO4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G163:G166").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("EP4:ER4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G168:G170").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("ES4:EX4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G172:G177").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("EY4:FB4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G180:G183").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FC4:FF4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Calcul des Surfaces").Select
    Range("G185:G188").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

' fin feuille calcul des surfaces

' feuille renseignement

    Range("FG4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FH4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FI4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E26").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FJ4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FK4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("H30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FL4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FM4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("H32").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FN4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FO4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("H34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FP4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FQ4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("H36").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FR4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E38").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FS4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("H38").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FT4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("D40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FU4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FV4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("H40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FW4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E48").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FX4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E50").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FY4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E52").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("FZ4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E54").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("GA4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E56").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("GB4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E60").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("GC4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E62").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("GD4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("renseignement").Select
    Range("E64").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

'fin feuille renseignement

'feuille ACCUEIL notation secteurs en défaut

    Range("GE4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("ACCUEIL").Select
    Range("C87").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("GF4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("ACCUEIL").Select
    Range("C92").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

'fin feuille Fiche Bilan Fonctionnel

'Feuille Fiche Bilan CPCS

    Range("GG4:GK4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("FICHE BILAN CPCS").Select
    Range("B11:B15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

    Range("GL4:GP4").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("FICHE BILAN CPCS").Select
    Range("H11:H15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    Sheets("extraction").Select

'fin feuille fiche bilan CPCS

'EFFACEMENT DES DONNEES

    Range("A4:GT4").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Feuil1").Select
    'MsgBox ("importer OK")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Application.Run "sauvegarder"

'
' sauvegarder Macro

'
Sheets("ACCUEIL").Select
If Range("D6") <> "" Then
Else: Sheets("Feuil1").Select
MsgBox ("aucune AF en cours d'édition")
Range("D2") = 1
Exit Sub
End If

'partie sauvegarde
    Sheets("extraction").Select
    Rows(7).Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows(2).Select
    Selection.Copy
    Rows(7).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-12
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows(2).Select
    Application.CutCopyMode = False
    Selection.Copy
    Rows(7).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select

'partie MAJ listing Feuil1

    Sheets("Feuil1").Select
    Rows("8:8").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Range("B8").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B9:N9").Select
    Selection.AutoFill Destination:=Range("B8:N9"), Type:=xlFillDefault
    Range("B8:N9").Select
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[1]"                    'PFAF
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[1]"                    'GSBdD
    Range("C8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[1]"                    'site / n° de cuisine
    Range("D8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[1]"                    'lieu
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[1]"                    'organisme
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[2]"                    'rationnaires midi
    Range("G8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[2]"                    'rationnaires soir
    Range("H8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[3]"                    'rationnaires stockage
    Range("I8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[-2]"                    'date AF
    Range("J8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[-9]"                    'date MAJ
    Range("K8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[188]"                  'NOTE fonc
    Range("L8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[188]"                  'NOTE capa
    Range("M8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[188]"                  'NOTE vétus
    Range("N8").Select
    ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[188]"                  'NOTE SCA
        Range("Q8").Select
        ActiveCell.FormulaR1C1 = "=extraction!R[-1]C[2]"                'commentaire général
    Sheets("Feuil1").Select
    Range("A1").Select

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Application.Run "initialiser"
'
'
' initialiser Macro
'
Sheets("attente").Select
Application.ScreenUpdating = False
'feuille accueil

    Sheets("ACCUEIL").Select

    Range("D6").Select
    Selection.ClearContents
    Range("D8").Select
    Selection.ClearContents
    Range("D10").Select
    Selection.ClearContents
    Range("D12").Select
    Selection.ClearContents
    Range("D14").Select
    Selection.ClearContents
    Range("D16").Select
    Selection.ClearContents
    Range("D20").Select
    Selection.ClearContents
    Range("D22").Select
    Selection.ClearContents
    Range("D26").Select
    Selection.ClearContents
    Range("D32").Select
    Selection.ClearContents
    Range("D34").Select
    Selection.ClearContents
    Range("D36").Select
    Selection.ClearContents
    Range("D40").Select
    Selection.ClearContents
    Range("B48").Select
    Selection.ClearContents
    Range("B54").Select
    Selection.ClearContents
    Range("B58").Select
    Selection.ClearContents
    Range("B62").Select
    Selection.ClearContents
    Range("B66").Select
    Selection.ClearContents
    Range("B70").Select
    Selection.ClearContents
    Range("B74").Select
    Selection.ClearContents
    Range("B78").Select
    Selection.ClearContents
    Range("B82").Select
    Selection.ClearContents
    Range("C87").Select
    Selection.ClearContents
    Range("C92").Select
    Selection.ClearContents

    Sheets("extraction").Select
    Range("J3").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D24").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast

    Sheets("extraction").Select
    Range("L3").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D28").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast

    Sheets("extraction").Select
    Range("P3").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D38").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast

    Sheets("extraction").Select
    Range("R3").Select
    Selection.Copy
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("ACCUEIL").Select
    Range("D42").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast

'feuille calcul de surface

    Sheets("Calcul des Surfaces").Select
    Range("G8:G12").Select
    Selection.ClearContents
    Range("G14:G19").Select
    Selection.ClearContents
    Range("G21:G27").Select
    Selection.ClearContents
    Range("G29:G34").Select
    Selection.ClearContents
    Range("G36:G44").Select
    Selection.ClearContents
    Range("G46:G50").Select
    Selection.ClearContents
    Range("G53").Select
    Selection.ClearContents
    Range("G55:G57").Select
    Selection.ClearContents
    Range("G59:G73").Select
    Selection.ClearContents
    Range("G76:G77").Select
    Selection.ClearContents
    Range("G79").Select
    Selection.ClearContents
    Range("G81:G83").Select
    Selection.ClearContents
    Range("G85:G88").Select
    Selection.ClearContents
    Range("G92").Select
    Selection.ClearContents
    Range("G94:G99").Select
    Selection.ClearContents
    Range("G102:G104").Select
    Selection.ClearContents
    Range("G106:G107").Select
    Selection.ClearContents
    Range("G111:G112").Select
    Selection.ClearContents
    Range("G114:G117").Select
    Selection.ClearContents
    Range("G119:G122").Select
    Selection.ClearContents
    Range("G125:G126").Select
    Selection.ClearContents
    Range("G128:G129").Select
    Selection.ClearContents
    Range("G131:G132").Select
    Selection.ClearContents
    Range("G136").Select
    Selection.ClearContents
    Range("G138:G141").Select
    Selection.ClearContents
    Range("G143:G145").Select
    Selection.ClearContents
    Range("G147:G153").Select
    Selection.ClearContents
    Range("G155:G157").Select
    Selection.ClearContents
    Range("G160").Select
    Selection.ClearContents
    Range("G163:G166").Select
    Selection.ClearContents
    Range("G168:G170").Select
    Selection.ClearContents
    Range("G172:G177").Select
    Selection.ClearContents
    Range("G180:G183").Select
    Selection.ClearContents
    Range("G185:G188").Select
    Selection.ClearContents
    Range("G8").Select
'feuille renseignement

    Sheets("renseignement").Select
    Range("E22").Select
    Selection.ClearContents
    Range("E24").Select
    Selection.ClearContents
    Range("E26").Select
    Selection.ClearContents
    Range("E30").Select
    Selection.ClearContents
    Range("H30").Select
    Selection.ClearContents
    Range("E32").Select
    Selection.ClearContents
    Range("H32").Select
    Selection.ClearContents
    Range("E34").Select
    Selection.ClearContents
    Range("H34").Select
    Selection.ClearContents
    Range("E36").Select
    Selection.ClearContents
    Range("H36").Select
    Selection.ClearContents
    Range("E38").Select
    Selection.ClearContents
    Range("H38").Select
    Selection.ClearContents
    Range("D40").Select
    Selection.ClearContents
    Range("E40").Select
    Selection.ClearContents
    Range("H40").Select
    Selection.ClearContents
    Range("E48").Select
    Selection.ClearContents
    Range("E50").Select
    Selection.ClearContents
    Range("E52").Select
    Selection.ClearContents
    Range("E54").Select
    Selection.ClearContents
    Range("E56").Select
    Selection.ClearContents
    Range("E60").Select
    Selection.ClearContents
    Range("E62").Select
    Selection.ClearContents
    Range("E64").Select
    Selection.ClearContents
    Range("E22").Select

'feuille bilan CPCS

    Sheets("FICHE BILAN CPCS").Select
    Range("B11:B15").Select
    Selection.ClearContents
    Range("H11:H15").Select
    Selection.ClearContents
'
    Sheets("Feuil1").Select
    Range("A1").Select
'    MsgBox ("initialisation OK")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

GoTo Etiquette

Application.ScreenUpdating = True
End Sub

Alors le cdate () ... doit concerner une cellule ou plage, mais pour une selection globale comment le signifier dans le code ?

Le 07/06/2013 à 17:32

Bonjour,

Désolé, il manque bonjour, s'il vous plait et merci d'avance.

Même pas envie de lire une seule ligne de ton code là...

eric

Le 07/06/2013 à 17:47

t'arrache toi dans ton genre !!

dans une conversation classique, à chaque fois que tu prends la parole tu commence par bonjour, et tu finis tes phrases par s'il vous plait et merci d'avance ?

si c'est le cas, j'ai le regret de t'annoncer que tu es victime de la maladie de Gilles de la tourette !!

Non sérieusement tu crois pas que t'en fais un peu trop non quand même !!

Le 07/06/2013 à 18:55

Mais non, tu confonds, c'est ça la base du problème.

Un Gilles de la Tourette va dire des gros mots.

Merci n'est pas un gros mot. Je t'assure, demande confirmation autour de toi .

eric

Le 08/06/2013 à 10:53

j'abandonne ...

Si quelqu'un pouvait lui donner ses comprimés, il est en pleine crise !!

Sinon, pour ceux qui s'interesse au problème, y a t'il moyen de signifier pour l'ensemble des cellules du cells copy le c date () de notre camarade eriiiiiiiiiiiiiiiiiiiiiiiiiiiiiiic

PS : Attention à bien lui dire merci si vous reprenez le c date () il me semble qu'il a un copyright dessus.

Rechercher des sujets similaires à "obliger date format france"