Discussion :

[Alaindhu]

Bonjour à tous,

Je cherche à envoyer mon dossier personnal à plusieurs utilisateurs et que lorsqu'ils l'ouvre, celui ci se place automatiquement dans leur dossier.

Le problème est que mon code ne fonctionne pas:


edit:

Code :

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

1
2
3
4
Private Sub Workbook_Open()
ActiveWorkbook.SaveAs Filename:= ChDir Environ("APPDATA") & "\Microsoft\Excel\XLSTART", _
        FileFormat:=xlExcel12, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges
End Sub

Avez-vous une idée?

Merci de votre aide!
Alain

[Nicolas JACQUIN]

Bonjour,

l'idée est bonne pour propager un bon virus partout,
je pense que les personnes à qui tu l'envoies ce classeur s'ont au courant et sont assez grand pour l'enregistrer par eux même.

Bonne continuation

[Alaindhu]

J'ai eu ma réponse je la met ici si cela intéresse quelqu'un:

Code :

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

1
2
3
4
5
6
'Private Sub Workbook_Open()
'Application.DisplayAlerts = False 'supprimer event alerte sauvegarde
'ActiveWorkbook.SaveAs Filename:=Environ("APPDATA") & "\Microsoft\Excel\XLSTART\PERSONALessai.XLSB", _
'        FileFormat:=xlExcel12, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges
'Application.DisplayAlerts = True 'restaurer event alerte sauvegarde
'End Sub

Bonjour,

l'idée est bonne pour propager un bon virus partout,
je pense que les personnes à qui tu l'envoies ce classeur s'ont au courant et sont assez grand pour l'enregistrer par eux même.

Bonne continuation

Bonjour, Les personnes à qui j'envoie le fichier sont mes collègues et clairement ils ne connaissent pas l'existence même du VBA pour 95% d'entre eux. donc c'est très utile comme procédure.

[Nicolas JACQUIN]

et que se passe-t-il après plusieurs ouvertures ?? il y aura pas un petit problème ?

[Alaindhu]

si c'est pour cela que je met en "mode" commentaire le code.
et que je donne pour consigne aux personnes de n'ouvrir qu'une seule fois ce fichier.
Je ne suis clairement pas au point sur VBA mais je cherche à rectifier cela pour aider les autres après.
bon WE,

[Nicolas JACQUIN]

Une astuce pour quel ne s'exécute qu'une seul fois

Code :

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

1
2
3
4
5
6
7
8
9
'Tu rentre 1 dans ta cellule A1
 
Private Sub Workbook_Open()
 
If Range("A1") <> 1 Then Exit Sub 'ici tu met cette condition
MsgBox "A bientôt" '<-------------------------------------------------et ici ton code
Range("A1") = 0 'et ici tu met ça
 
End Sub

Il y a surement d'autre possibilité, mais comme ça, c'est la seul que j'ai dans la tête