Discussion :

[Philippe76]

Bonjour à tous
Voilà je souhaiterai au moment que je sauvegarde mon fichier EXCEL faire une copier/coller des valeurs de la colonne A:A ou j'ai des formules et coller les valeurs en colonne B:B.
Ceci doit se faire que si je sauvegarde le fichier
Merci
Philippe

[QuestVba]

Bonjour,

Essaie ceci (à mettre dans module lié à ThisWorkbook)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("a:a").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
Range("b1").Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[jfontaine]

Bonjour,

Place ton code dans l'événement Before_Save de l'objet Workbook ça devrait répondre à ton besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
End Sub

[Philippe76]

Je n'y arrive pas j'ai plusieurs feuilles et celle qui m'intéresse s'appelle "Date de renseignement"
En colonne A:A j'ai des formules qui me donne différente dates et ce que je souhaite c'est au moment de la sauvegarde Faire un copier de la colonne A:A et la coller les valeurs en colonne B:B
Vous me dite de mettre le code dans "mettre dans module lié à ThisWorkbook" mais comment lié ce code à "ThisWorkbook" sans impacter les autres feuilles?
Toute petite notion de VBA
Merci

[QuestVba]

Salut

Quand tu es dans Microsoft VB, tu dble-cliques sur ThisWorkbook (se trouve dans "Microsoft Excel Objets"

Tu cliques sur "Général" et tu choisis "Workbook" (partie gauche) et sur "BeforeSave" (partie droite)

[Philippe76]

Merci mais je suppose que je dois ajouter au début du code cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Date de renseignement").Select

afin de sélectionner la feuille qui m'interresse?
Merci

[QuestVba]

Oui

[MarcelG]

Bonjour le Forum.

Tous mes voeux à tous pour 2013.

2 conseils
- Evitons les méthodes "Select" qui ne servent à rien.
- Eputons au maximum le code pour ne conserver que l'utile.

En un mot, prenons de la distance par rapport à l'enregistreur.
(à adapter)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fin As Range
Application.ScreenUpdating = False
With Sheets("Date de renseignement")
        'Définition de la dernière cellule à copier
        Set fin = .Cells(.Rows.Count, 1).End(xlUp)
        'Copie de la plage ainsi définie
        .Range("A1", fin).Copy
        'Cellules de destination
        .Range("B1", .Cells(fin.Row, 2)).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
'Variable réinitialisée
Set fin = Nothing

Enfin, pour ma part, je placerais ce code dans une procédure intégrée dans un module standard, et je l'appellerais depuis l'évènement Save.