OVH Cloud OVH Cloud

ouverture macro

5 réponses
Avatar
Sylvie LAURENT
Bonjour à tout le monde,

une petite question: dans un de mes codes VBA j'automatise la sauvegarde du
fichier avec plusieurs paramètres, tout va bien, mais j'ai automatisé cette
fonction en Private_Sub à l'ouverture du fichier sur le seul onglet du
fichier: Problème, lorsque mes interlocuteurs reçoivent le fichier, si ils
disent Oui à l'activation des macros, le fichier se renomme automatiquement
au premier clic dans la feuille !!! puis je ajouter une ligne de code dans
la sauvegarde par VBA pour dire: désactiver les macros à la prochaine
ouverture ..... ou existe t'il une façon de désactiver automatiquement la
question à l'ouverture par un autre biais, bien sur je n'ai pas accès à la
configuration des PC de mes interlocuteurs !!

Y a t'il une âme charitable pour m'aider à résoudre cette difficulté
passagère ??

Comme d'habitude, je vous remercie tous d'avance pour la pertinence et le
savoir faire de chacun,

Des merci tout plein,

Sylvie

5 réponses

Avatar
Pascal Engelmajer
Salut,
supprimer la procédure :
sue excelabo à adapter:
Une solution est de supprimer le code de la macro après son exécution. Ça
peut
se faire dans les instructions de la macro elle-même. Par exemple, pour
exécuter
une instruction à l'ouverture du classeur (écrire dans une cellule) puis
supprimer la procédure Workbook_Open, recopie ce code dans le module
ThisWorkbook :

Private Sub Workbook_Open()
Dim liDeb, NbLi

'exécute une action à l'ouverture
Msg = "La procédure Workbook_Open a été exécutée"
ActiveSheet.Range("A1").Value = Msg

'détruit la procédure
'(l'action ne sera donc exécutée qu'une seule fois)
With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
liDeb = .ProcStartLine("Workbook_Open", 0)
NbLi = .ProcCountLines("Workbook_Open", 0)
.DeleteLines liDeb, NbLi
End With

End Sub
Frédéric Sigonneau (N°1093)

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Sylvie LAURENT" a écrit dans le message de
news: #
Bonjour à tout le monde,

une petite question: dans un de mes codes VBA j'automatise la sauvegarde
du

fichier avec plusieurs paramètres, tout va bien, mais j'ai automatisé
cette

fonction en Private_Sub à l'ouverture du fichier sur le seul onglet du
fichier: Problème, lorsque mes interlocuteurs reçoivent le fichier, si ils
disent Oui à l'activation des macros, le fichier se renomme
automatiquement

au premier clic dans la feuille !!! puis je ajouter une ligne de code dans
la sauvegarde par VBA pour dire: désactiver les macros à la prochaine
ouverture ..... ou existe t'il une façon de désactiver automatiquement la
question à l'ouverture par un autre biais, bien sur je n'ai pas accès à la
configuration des PC de mes interlocuteurs !!

Y a t'il une âme charitable pour m'aider à résoudre cette difficulté
passagère ??

Comme d'habitude, je vous remercie tous d'avance pour la pertinence et le
savoir faire de chacun,

Des merci tout plein,

Sylvie




Avatar
papou
Bonjour Sylvie
en Private_Sub à l'ouverture du fichier sur le seul onglet du fichier
Si je comprend bien le code est donc apparement associé à un évènement de la

feuille, est-ce cela que tu voulais ?
Quel est le critère qui doit déterminer le lancement de la procédure ?

Cordialement
Pascal


"Sylvie LAURENT" a écrit dans le message de
news:%
Bonjour à tout le monde,

une petite question: dans un de mes codes VBA j'automatise la sauvegarde
du

fichier avec plusieurs paramètres, tout va bien, mais j'ai automatisé
cette

fonction en Private_Sub à l'ouverture du fichier sur le seul onglet du
fichier: Problème, lorsque mes interlocuteurs reçoivent le fichier, si ils
disent Oui à l'activation des macros, le fichier se renomme
automatiquement

au premier clic dans la feuille !!! puis je ajouter une ligne de code dans
la sauvegarde par VBA pour dire: désactiver les macros à la prochaine
ouverture ..... ou existe t'il une façon de désactiver automatiquement la
question à l'ouverture par un autre biais, bien sur je n'ai pas accès à la
configuration des PC de mes interlocuteurs !!

Y a t'il une âme charitable pour m'aider à résoudre cette difficulté
passagère ??

Comme d'habitude, je vous remercie tous d'avance pour la pertinence et le
savoir faire de chacun,

Des merci tout plein,

Sylvie




Avatar
Sylvie LAURENT
Bonjour Pascal,

en fait le simple fait de cliquer sur une cellule lance la procédure

mais rien ne l'interdit lorsque un autre utilisateur ouvre le fichier et
accepte les macros.

Je suis en train de lire la réponse de Pascal (l'autre à moins que vous
soyez le même !!) et j'essaye de comprendre comment intégrer cela à ma macro

A tout à l'heure et merci de ton aide

Bien à toi

Sylvie


"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%23ak$
Bonjour Sylvie
en Private_Sub à l'ouverture du fichier sur le seul onglet du fichier
Si je comprend bien le code est donc apparement associé à un évènement de

la

feuille, est-ce cela que tu voulais ?
Quel est le critère qui doit déterminer le lancement de la procédure ?

Cordialement
Pascal


"Sylvie LAURENT" a écrit dans le message de
news:%
Bonjour à tout le monde,

une petite question: dans un de mes codes VBA j'automatise la sauvegarde
du

fichier avec plusieurs paramètres, tout va bien, mais j'ai automatisé
cette

fonction en Private_Sub à l'ouverture du fichier sur le seul onglet du
fichier: Problème, lorsque mes interlocuteurs reçoivent le fichier, si
ils


disent Oui à l'activation des macros, le fichier se renomme
automatiquement

au premier clic dans la feuille !!! puis je ajouter une ligne de code
dans


la sauvegarde par VBA pour dire: désactiver les macros à la prochaine
ouverture ..... ou existe t'il une façon de désactiver automatiquement
la


question à l'ouverture par un autre biais, bien sur je n'ai pas accès à
la


configuration des PC de mes interlocuteurs !!

Y a t'il une âme charitable pour m'aider à résoudre cette difficulté
passagère ??

Comme d'habitude, je vous remercie tous d'avance pour la pertinence et
le


savoir faire de chacun,

Des merci tout plein,

Sylvie








Avatar
Sylvie LAURENT
Bonjour Pascal,

Merci de ton aide, de ton temps,

quel code puis je ajouter après ma fonction ActiveWorkbook.SaveAs (+ les
parametres de noms) et avant End Sub ????

Quel code permet de dire alors de ne pas déclencher cette private_sub à la
prochaine ouverture sans générer une autre sauvegarde ??

Un grand merci à toi et à ta connaissance, ainsi quà ton grand coeur !!

Sylvie

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
supprimer la procédure :
sue excelabo à adapter:
Une solution est de supprimer le code de la macro après son exécution. Ça
peut
se faire dans les instructions de la macro elle-même. Par exemple, pour
exécuter
une instruction à l'ouverture du classeur (écrire dans une cellule) puis
supprimer la procédure Workbook_Open, recopie ce code dans le module
ThisWorkbook :

Private Sub Workbook_Open()
Dim liDeb, NbLi

'exécute une action à l'ouverture
Msg = "La procédure Workbook_Open a été exécutée"
ActiveSheet.Range("A1").Value = Msg

'détruit la procédure
'(l'action ne sera donc exécutée qu'une seule fois)
With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
liDeb = .ProcStartLine("Workbook_Open", 0)
NbLi = .ProcCountLines("Workbook_Open", 0)
.DeleteLines liDeb, NbLi
End With

End Sub
Frédéric Sigonneau (N°1093)

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Sylvie LAURENT" a écrit dans le message de
news: #
Bonjour à tout le monde,

une petite question: dans un de mes codes VBA j'automatise la sauvegarde
du

fichier avec plusieurs paramètres, tout va bien, mais j'ai automatisé
cette

fonction en Private_Sub à l'ouverture du fichier sur le seul onglet du
fichier: Problème, lorsque mes interlocuteurs reçoivent le fichier, si
ils


disent Oui à l'activation des macros, le fichier se renomme
automatiquement

au premier clic dans la feuille !!! puis je ajouter une ligne de code
dans


la sauvegarde par VBA pour dire: désactiver les macros à la prochaine
ouverture ..... ou existe t'il une façon de désactiver automatiquement
la


question à l'ouverture par un autre biais, bien sur je n'ai pas accès à
la


configuration des PC de mes interlocuteurs !!

Y a t'il une âme charitable pour m'aider à résoudre cette difficulté
passagère ??

Comme d'habitude, je vous remercie tous d'avance pour la pertinence et
le


savoir faire de chacun,

Des merci tout plein,

Sylvie








Avatar
gilbert
bonjour

tu peux faire vérifier si le n° du HDD où se trouve ton application
correspond bien au tien si oui pas de problème tu lances la macro si non tu
quittes

Sub workbook_open()

Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName _
(fso.GetAbsolutePathName(Lecteur & ":")))
num_serie = d.SerialNumber
If num_serie <> "-xxxxxxxxxx" Then
'xxxxxxxxxx = le N° de serie de ton disque où se trouve ton appli
MsgBox num_serie
Else
'lancement de la macro
Exit Sub
End If

End Sub

cela te convient-il ?

Gilbert

"Sylvie LAURENT" a écrit dans le message de
news:%
Bonjour à tout le monde,

une petite question: dans un de mes codes VBA j'automatise la sauvegarde
du

fichier avec plusieurs paramètres, tout va bien, mais j'ai automatisé
cette

fonction en Private_Sub à l'ouverture du fichier sur le seul onglet du
fichier: Problème, lorsque mes interlocuteurs reçoivent le fichier, si ils
disent Oui à l'activation des macros, le fichier se renomme
automatiquement

au premier clic dans la feuille !!! puis je ajouter une ligne de code dans
la sauvegarde par VBA pour dire: désactiver les macros à la prochaine
ouverture ..... ou existe t'il une façon de désactiver automatiquement la
question à l'ouverture par un autre biais, bien sur je n'ai pas accès à la
configuration des PC de mes interlocuteurs !!

Y a t'il une âme charitable pour m'aider à résoudre cette difficulté
passagère ??

Comme d'habitude, je vous remercie tous d'avance pour la pertinence et le
savoir faire de chacun,

Des merci tout plein,

Sylvie