XL 2016 Partager une seule feuille Excel

Atoto à dit:

Salut tout le monde
Mon problème c'est que je veux partager seulement une feuille de mon classeur qui contient un tableau de bord
Quoi faire les amis et merci bcp

Cliquez pour agrandir...

scraper à dit:

Bonjour
Sur la feuille ThisWorkbook adapter le code

VB:

Option Explicit
Const CST_TABLEAU_BORD = "TbBord"
Const CST_MY_USERNAME = "Me" 'dossier sur c:\users

Private Sub Workbook_Open()
Dim sUserProf As String
Dim i As Integer

sUserProf = Environ("USERPROFILE")
If sUserProf = CST_MY_USERNAME Then
  ' si c'est moi ne rien faire
Else
For i = 1 To Sheets(Sheets.Count)
  If LCase(Sheets(i)) = LCase(CST_TABLEAU_BORD) Then
  Else
    Sheets(i).Visible = False
  End If
Next
End If
End Sub

Cliquez pour agrandir...

BrunoM45 à dit:

Bonjour Atoto, scraper

Quand vous dites partager, c'est où et comment ?

A+

Cliquez pour agrandir...

scraper à dit:

Ma solution marche pour OneDrive, sinon supprimer les feuilles non souhaitées sur OneDrive

Cliquez pour agrandir...

Eric C à dit:

Bonsoir le forum
Bonsoir Atoto, scraper & BrunoM45

Intéressé par le sujet, j'ai tenté le code de scraper sous Excel 2010 mais en vain. j'ai bien essayé de modifier ce qui clochait mais l'erreur revient à la ligne suivante ???

VB:

For i = 1 To Sheets(Sheets.Count)

Modifié par : For i = 1 to Sheets.Count

  If LCase(Sheets(i)) = LCase(CST_TABLEAU_BORD) Then
  Erreur d'exécution 438 : Propriété ou méthode non géré par cet objet

Bonne fin de juornée à toutes & à tous.
Eric c

Cliquez pour agrandir...

Const CST_TABLEAU_BORD = "TbBord"

 If LCase(Sheets(i)) = LCase("TbBord") Then