XL 2016 Partager une seule feuille Excel

[Atoto]

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

 

[scraper]

Bonjour
Sur la feuille ThisWorkbook adapter le code

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

 

[Compte Supprimé 979]

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

Bonjour Atoto, scraper

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

A+

 

[Atoto]

Bonjour
Sur la feuille ThisWorkbook adapter le code

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

merci bcp ci-joint fichier model

 

[Atoto]

Bonjour Atoto, scraper

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

A+

le partager avec d'autres utilisateurs sur one drive

 

[scraper]

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

 

[Compte Supprimé 979]

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

Voilà pourquoi je pose la question...
plutôt que de me lancer bêtement dans une solution qui ne fonctionnera pas 😜

 

[Eric C]

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 ???

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

 

[Compte Supprimé 979]

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 ???

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

Bonjour Eric C
As-tu mis la constante au début de ton module

Const CST_TABLEAU_BORD = "TbBord"

D'ailleurs si ce n'est utilisée qu'une fois, inutile d'utiliser une constante autant mettre le texte directement dans le test

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

A+

 

[Eric C]

Bonjour le fil
@BrunoM45 : Au temps pour moi, je n'avais pas défini le chemin complet de mon username. Merci à toi.

Bonne après-midi à toutes & à tous.
Eric c