OVH Cloud OVH Cloud

Aide sur 3 code VBA

4 réponses
Avatar
Daniel
re bonjour,

- Je cherche quel code VBA peut ouvrir un classeur qui se trouve dans un
autre répertoire. Exemple, répertoire c:\logistique et le fichié s'appele
"TEST.xls"

- Je voudrai savoir si il existe aussi un code qui lagit orsque l'on ferme
le classeur. Par exemple que le classeur se positionne sur la cellule A1
avant de fermer le classeur

- Egalement une macro qui agit dès que l'on sauvegarde le classeur. Par
exemple que le classeur se positionne sur la cellule A1 avant de fermer le
classeur

Merci à vous!

4 réponses

Avatar
papou
Bonjour
1 - Workbooks.open "c:logistiquetest.xls"
2 - dans le code Thisworkbook du classeur (à adpater avec nom de feuille)
(pour y accéder clic droit sur l'icône d'excel située à gauche du menu
Fihcier d'Excel, puis Visualiser le code)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Feuil1").Range("A1").activate
End Sub
3 - dans le code Thisworkbook (ditto)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Worksheets("Feuil1").Range("A1").activate
End Sub

Cordialement
Pascal

"Daniel" a écrit dans le message de
news:
re bonjour,

- Je cherche quel code VBA peut ouvrir un classeur qui se trouve dans un
autre répertoire. Exemple, répertoire c:logistique et le fichié s'appele
"TEST.xls"

- Je voudrai savoir si il existe aussi un code qui lagit orsque l'on ferme
le classeur. Par exemple que le classeur se positionne sur la cellule A1
avant de fermer le classeur

- Egalement une macro qui agit dès que l'on sauvegarde le classeur. Par
exemple que le classeur se positionne sur la cellule A1 avant de fermer le
classeur

Merci à vous!



Avatar
Jo-Soupin
bonjour Daniel,

1 - Workbooks.Open "c:logistiquetest.xls"

2 - dans le module "ThisWorkbook"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Feuil1.range("A1").slelect
End Sub

3 - toujours dans le module "ThisWorkbook"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
Feuil1.range("A1").select
End Sub
Avatar
michdenis
Bonjour Daniel,


A ) pour ouvrir un fichier dont tu connais le chemin et le nom du fichier
Dim Chemin as String, Fichier As String
Chemin = "C:logistique"
Fichier = "NomDuFichier.xls"
Workbooks.open chemin & fichier

Ou simplement :

Workbooks.open "C:logistiqueNomDuFichier.xls"


B ) Si tu veux ouvrir ton fichier avec une feuille et une cellule spécifique de sélectionner, tu dois le faire avant de fermer ton
classeur et le sauvegarder.
Le hic, c'est de ne pas pouvoir fermer le fichier sans qu'il s'enregistre ... si tu as des exigences particulières, fais-le
savoir !

Essaie ceci dans le ThisWorkbook de ton classeur :

'---------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worksheets("NomDelaFeuilleDésirée").Select
Range("A1").Select
ThisWorkbook.Save

End Sub
'---------------------------


C ) Voir la réponse en 2



Salutations!




- Je cherche quel code VBA peut ouvrir un classeur qui se trouve dans un
autre répertoire. Exemple, répertoire c:logistique et le fichié s'appele
"TEST.xls"



- Je voudrai savoir si il existe aussi un code qui lagit orsque l'on ferme
le classeur. Par exemple que le classeur se positionne sur la cellule A1
avant de fermer le classeur

- Egalement une macro qui agit dès que l'on sauvegarde le classeur. Par
exemple que le classeur se positionne sur la cellule A1 avant de fermer le
classeur

Merci à vous!
Avatar
Daniel
Waou!!!!!

Merci à vous 3 pour vos rapides réponses!!!

A très bientôt



Bonjour Daniel,


A ) pour ouvrir un fichier dont tu connais le chemin et le nom du fichier
Dim Chemin as String, Fichier As String
Chemin = "C:logistique"
Fichier = "NomDuFichier.xls"
Workbooks.open chemin & fichier

Ou simplement :

Workbooks.open "C:logistiqueNomDuFichier.xls"


B ) Si tu veux ouvrir ton fichier avec une feuille et une cellule spécifique de sélectionner, tu dois le faire avant de fermer ton
classeur et le sauvegarder.
Le hic, c'est de ne pas pouvoir fermer le fichier sans qu'il s'enregistre ... si tu as des exigences particulières, fais-le
savoir !

Essaie ceci dans le ThisWorkbook de ton classeur :

'---------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worksheets("NomDelaFeuilleDésirée").Select
Range("A1").Select
ThisWorkbook.Save

End Sub
'---------------------------


C ) Voir la réponse en 2



Salutations!




- Je cherche quel code VBA peut ouvrir un classeur qui se trouve dans un
autre répertoire. Exemple, répertoire c:logistique et le fichié s'appele
"TEST.xls"



- Je voudrai savoir si il existe aussi un code qui lagit orsque l'on ferme
le classeur. Par exemple que le classeur se positionne sur la cellule A1
avant de fermer le classeur

- Egalement une macro qui agit dès que l'on sauvegarde le classeur. Par
exemple que le classeur se positionne sur la cellule A1 avant de fermer le
classeur

Merci à vous!