[VBA] enregistrement de données
Résolu
Brunoush
-
Brunoush -
Brunoush -
Bonjour à tous,
Voila j'ai un petit soucis avec VBA,
je voudrais enregistrer la valeur de la cellule A3 du classeur "automate.xls" dans la cellule A10 du classeur "archive.xls" mais je voudrais sauvergader la valeur de la cellule A3 tout les jours sans effacer les valeurs précédente dans le classeur archive (en gros que la valeur d'aujourd'hui soit dans la cellule A10 et celle de demain dans la A11 etc....)
Mais je sais pas trop comment faire (je suis novice ne VB)
Merci d'avance de votre aide
Voila j'ai un petit soucis avec VBA,
je voudrais enregistrer la valeur de la cellule A3 du classeur "automate.xls" dans la cellule A10 du classeur "archive.xls" mais je voudrais sauvergader la valeur de la cellule A3 tout les jours sans effacer les valeurs précédente dans le classeur archive (en gros que la valeur d'aujourd'hui soit dans la cellule A10 et celle de demain dans la A11 etc....)
Mais je sais pas trop comment faire (je suis novice ne VB)
Merci d'avance de votre aide
A voir également:
- [VBA] enregistrement de données
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Trier des données excel - Guide
- Barre de données excel pourcentage 100 ✓ - Forum Excel
1 réponse
Salut
une solution :
Sub test()
Set newxl = New Excel.Application
With newxl
.Workbooks.Open ("C:\mes documents\archives.xls")
.ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Range("A1").Value = ThisWorkbook.Sheets(1).Cells(3, 1).Value
.ActiveWorkbook.Close True
.Quit
End With
Set newxl = Nothing
End Sub
Cette procédure est à coller dans un module standard du classeur "automate.xls"
;)
une solution :
Sub test()
Set newxl = New Excel.Application
With newxl
.Workbooks.Open ("C:\mes documents\archives.xls")
.ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Range("A1").Value = ThisWorkbook.Sheets(1).Cells(3, 1).Value
.ActiveWorkbook.Close True
.Quit
End With
Set newxl = Nothing
End Sub
Cette procédure est à coller dans un module standard du classeur "automate.xls"
;)
Merci encore ^^