besoin d'aide !

[benjamin]

bonjour a tous
j'ai un petit problème avec cette maxcro qui a pour but de faire un enregistrement d'un onglet dans un autre repertoire
le problème c'est ue je ne comprend pas exactement ce qu'elle fait

si qqun peut me dire en francais ce que ca veut dire ca serais super sympa 🙂
merci bcp

Private Sub CommandButton3_Click()

    Range('A2').Select
    ActiveWindow.SmallScroll ToRight:=4
    Range('A2:M2').Select
    ActiveWindow.ScrollRow = 1
    Range('A2:M1000').Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Sheets('Parc appareil ').Select
    Sheets('Parc appareil ').Range('A3').Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    ActiveWindow.SmallScroll ToRight:=5
    ActiveWindow.SmallScroll Down:=45
    ActiveWindow.LargeScroll ToRight:=-1
    ActiveWindow.ScrollRow = 4
    Sheets('Parc appareil ').Range('A1').Select
    
    Sheets('Appareils').Select
    Sheets('Appareils').Range('A2').Select
    
    Sheets(Array('Fiche de vie', 'Appareils', 'fiche_de_vie_table')).Select
    Sheets('Fiche de vie').Activate
    ActiveWindow.SelectedSheets.Visible = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.Protect Structure:=True, Windows:=False
    
        ChDir 'D:\\documents and Settings\\ebbw656\\Desktop\\Mise a jour'
 
     ActiveWorkbook.SaveAs FileName:= _
     'D:\\documents and Settings\\ebbw656\\Desktop\\Mise a jour\\adfg.xls', _
     FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
     ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[Creepy]

Explications détaillées sur une macro

Bonjour le Forum, Benjamin,

Premièrement Benjamin one ne DOIT PAs metttre dans le sujet du message besoin d'aide, aide, etc ... Il faut mettre un sujet CLAIR & EXPLICITE.

:angry:

Ceci dit, voici l'expliction pour chaque ligne de ton code.

Sub gg()
Range('A2').Select

    ActiveWindow.SmallScroll ToRight:=4
    ' Defile la feuille vers la droite de 4
    Range('A2:M2').Select
    ' selectionne la plage A2:M2 de la feuille courante
    ActiveWindow.ScrollRow = 1
    'descend l'affichage de 1
    Range('A2:M1000').Select
    'selectionne la plage A2:m1000 de la feuille courante
    Selection.Copy
    'Copie
    Application.CutCopyMode = False
    'Arrete la copie
    Selection.Copy
    ' REcopie !! ?? !!
    Sheets('Parc appareil ').Select
    'Selectionne la feuille Par appareil
    Sheets('Parc appareil ').Range('A3').Select
    'Selectionne le cellule A3 de Par appareil
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    'copie les données
    ActiveWindow.SmallScroll ToRight:=5
    ' Defile la feuille vers la droite de 5
    ActiveWindow.SmallScroll Down:=45
    ' Defile la feuille vers le bas de 45
    ActiveWindow.LargeScroll ToRight:=-1
    ' DEfile la feuille vers la droite de -1 (Egal à defiler vers la gauche de 1)
    ActiveWindow.ScrollRow = 4
    ' ligne 4 est la première ligne affichée dans Excel
    Sheets('Parc appareil ').Range('A1').Select
    ' Selectionne la cellule A1 de Par appareil
    
    Sheets('Appareils').Select
    ' Selectionne la feuille Appareil
    Sheets('Appareils').Range('A2').Select
    ' selection de la cellule A2 de Appareil
    Sheets(Array('Fiche de vie', 'Appareils', 'fiche_de_vie_table')).Select
    'Selectionne les feuilles ci dessus
    Sheets('Fiche de vie').Activate
    ' Selectionne la feuille fiche de vie
    ActiveWindow.SelectedSheets.Visible = False
    'Masque la feuille selectionnée (Fiche de vie)
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.Protect Structure:=True, Windows:=False
    ' Protege la feuille active
        ChDir 'D:\\documents and Settings\\ebbw656\\Desktop\\Mise a jour'
    ' Change le repertoire vers ci-dessus
     ActiveWorkbook.SaveAs Filename:= _
     'D:\\documents and Settings\\ebbw656\\Desktop\\Mise a jour\\adfg .xls', _
     FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
     ReadOnlyRecommended:=False, CreateBackup:=False
    ' Sauvegarde le fichier adfg.xls
End Sub

Bonne journée

Creepy

Edit PS : Salut André c'est fait !! Merci

Message édité par: Creepy, à: 06/06/2006 12:27

 

[andré]

Salut Creepy,

Il t'est possible de modifier le texte du sujet dans ta réponse.

Â+