Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro selon maison ou boulot

Macro selon maison ou boulot

11 réponses
Avatar
Christophe
Bonsoir

Au boulot je suis sur un pc avec ma clé usb reconu en "E" et à la maison je
suis sur "C"

comment faire pour eviter de choisir la ligne en fonction du lieu sans
devoir créer deux boutons

exemple de macro


Sub Sauvegarder_Matrice_VS()
'Sauvegarde la feuille Matrice visite sécurité dans un autre classeur
On Error GoTo Erreur:
Application.ScreenUpdating = False

ChDir "E:\"
'ChDir "C:\"
Workbooks.Open Filename:="E:\Sauvegarde_VS.xls"
'Workbooks.Open Filename:="C:\Sauvegarde_VS.xls"

Windows("Equipes.xls").Activate
Sheets("Matrice-VS").Select
Sheets("Matrice-VS").Copy
Before:=Workbooks("Sauvegarde_VS.xls").Sheets(1)
Sheets("Matrice-VS").Name = Range("G18").Value
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("Matrice-VS").Select
Range("F4").Select
Exit Sub
Erreur:
Workbooks("Sauvegarde_VS.xls").Close False
MsgBox "Date déja saisie", vbOKOnly, "Archives"
Range("F4").Select
End Sub

Merci de votre aide
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Christophe
Merci beaucoup pour ton aide ca marche nickel


"michdenis" a écrit dans le message de news:

Pour cette ligne de code,
La fonction LCase() met la chaîne retournée par
Environ("UserName") tout en majuscule. Le signe
d'égalité requiert que chaque partie de l'équation
soit identique. Tu dois en conséquence écrire ton
nom "Christophe" tout en minuscule.

If LCase(Environ("UserName")) = "Christophe" Then

Sinon, une autre alternative est d'enlever la fonction LCase()
et écrire la ligne comme ceci :
If Environ("UserName") = "Christophe" Then




"Christophe" a écrit dans le message de groupe de
discussion :
4b0b0248$0$30763$
1 On Error GoTo Erreur:
2 Application.ScreenUpdating = False
3 If LCase(Environ("UserName")) = "Christophe" Then
4 Else
5 ChDir "E:"
6 Workbooks("Sauvegarde_VS.xls").Close False








"michdenis" a écrit dans le message de news:
%
Ce que je voulais savoir, c'est quelle est la dernière ligne
que la procédure a exécutée juste avant celle-ci :

ChDir "E:" à Workbooks("Sauvegarde_VS.xls").Close

Je dois m'absenter ... à plus tard !










1 2