[MACRO] probléme d'export de feuilles masqué

[Totof91]

Bonjour Forum,

J'ai un petit souci avec ma macro d'export de feuille excel.

Celle-ci fonctionne parfaitement si l'onglet est visible mais si je masque celui-ci il n'arrive plus à faire l'export et donc "page inexistante" :

Private Sub Btnvalider_Click()
  Dim strChemin As String
  Dim strNomFic As String
  Dim Lg
  
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  ' Si le nom du fichier n'est pas saisi, message alerte et on ne fait rien
  strNomFic = TextBox1.Value
  If strNomFic = "" Then
    MsgBox "Le nom du fichier doit être saisi", vbCritical, "Enregistrement impossible"
    Exit Sub
  End If
  If strChemin = "" Then strChemin = ThisWorkbook.Path
  ' Copie en Excel
  Lg = Application.Match(TextBox1, Range("Extraction"), False)
  If Not IsError(Lg) Then
    If Range("Extraction").Cells(Lg, 2) <> "" Then
      On Error Resume Next
      Sheets(Format(Range("Extraction").Cells(Lg, 2), "@")).Copy
      If Err = 0 Then
        ActiveSheet.SaveAs strChemin & "\" & strNomFic
        ' Fermer le fichier sauvegardé
        ActiveWorkbook.Close
      Else
        MsgBox "Page inexistante"
      End If
    Else
      MsgBox "Page non définie"
    End If
  End If
  On Error GoTo 0
  
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True

En vous remerciant par avance pour votre aide.

Totof

 

[Pierrot93]

Re : [MACRO] probléme d'export de feuilles masqué

Bonjour,

préférable d'afficher la feuille avant la copie....

Sheets("NomFeuille").Visible = xlSheetVisible

bonne fin d'après midi
@+

 

[Totof91]

Re : [MACRO] probléme d'export de feuilles masqué

Bonjour Pierrot,

Merci pour ta réponse.

Mais ça ne fonctionne toujours pas (peut-être que je n'ai pas placé correctement cette variable.

  Dim strNomFic As String
  Dim Lg
  
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  ' Si le nom du fichier n'est pas saisi, message alerte et on ne fait rien
  strNomFic = TextBox1.Value
  If strNomFic = "" Then
    MsgBox "Le nom du fichier doit être saisi", vbCritical, "Enregistrement impossible"
    Exit Sub
  End If
  If strChemin = "" Then strChemin = ThisWorkbook.Path
  Sheets("Extraction").Visible = xlSheetVisible
  ' Copie en Excel
  Lg = Application.Match(TextBox1, Range("Extraction"), False)
  If Not IsError(Lg) Then
    If Range("Extraction").Cells(Lg, 2) <> "" Then
      On Error Resume Next
      Sheets(Format(Range("Extraction").Cells(Lg, 2), "@")).Copy
      If Err = 0 Then
        ActiveSheet.SaveAs strChemin & "\" & strNomFic
        ' Fermer le fichier sauvegardé
        ActiveWorkbook.Close
      Else
        MsgBox "Page inexistante"
      End If
    Else
      MsgBox "Page non définie"
    End If
  End If
  On Error GoTo 0
  
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True

En vous remerciant pour votre aide

 

[Pierrot93]

Re : [MACRO] probléme d'export de feuilles masqué

Re,

cela ne fonctionne pas... cela veut dire quoi, message d'erreur ou pas le résultat souhaité ?

 

[Totof91]

Re : [MACRO] probléme d'export de feuilles masqué

Sheets("Extraction").Visible = xlSheetVisible

Erreur d'execution 9

L'indice n'appartient pas à la séléction.

Pour info la sheet "extraction" est une liste qui séléctionne automatiquement la feuille à exporter.

Merci

 

[Pierrot93]

Re : [MACRO] probléme d'export de feuilles masqué

Re,

d'après ce type d'erreur, le nom de la feuille ne doit pas correspondre... vérifie bien l'orthographe, la casse et s'il n'y a pas d'espace avant ou après le nom...

 

[Pierrot93]

Re : [MACRO] probléme d'export de feuilles masqué

A noter,

dans cette syntaxe, "Sheets("Extraction").Visible = xlSheetVisible", est le nom d'une feuille et non celui d'une plage nommée...

 

[Totof91]

Re : [MACRO] probléme d'export de feuilles masqué

Une plage nommée "Extraction"

Pour infos :

=DECALER('client'!$B$4:$B$65536;0;0;'client!$J$1;1)

Merci

 

[Totof91]

Re : [MACRO] probléme d'export de feuilles masqué

Oops j'ai l'impression que cela change beaucoup de chose 😀

 

[Pierrot93]

Re : [MACRO] probléme d'export de feuilles masqué

Re,

oui, c'est plus pareil.... peut être ainsi :

Sheets(Range("Extraction").Value).Visible = xlSheetVisible

si pas ca, reviens avec un tout petit fichier....
bonne soirée
@+

 

[Totof91]

Re : [MACRO] probléme d'export de feuilles masqué

Négatif, ça ne marche pas.

Merci pour ton aide.

Tu trouveras ci-joint le fichier demandé.

Pour infos "vente janvier" = onglet 1

Je l'ai laissé visible mais les onglet 1 2 3 sont à masquer.

Merci par avance.

 

[Pierrot93]

Re : [MACRO] probléme d'export de feuilles masqué

Re,

comprends pas tout, si il y a les feuilles 1 2 et 3 de masquées comment tu en selectionnes 1 à partir de l'usf, car c'est bien de cela qu'il s'agit..... Sachant que dans la listbox sur la feuile il y a des noms qui ne correspondent pas à des noms de feuille... A ta place j'utiliserais plutôt un combo sur l'usf....

 

[Totof91]

Re : [MACRO] probléme d'export de feuilles masqué

Bonjour,

Auriez-vous un exemple de combo usf?

Merci par avance.

 

[Totof91]

Re : [MACRO] probléme d'export de feuilles masqué

Bonjour Forum,

Je suis pret à prendre toutes autres solution que celles que j'ai sur mon fichier 😕

En vous remerciant par votre aide

 

[Totof91]

Re : [MACRO] probléme d'export de feuilles masqué

J'ai peut-être trouvé solution à mon probléme :

Crée une feuille qui reste "visible"

Cette feuille récupere la feuille séléctionné via la liste box via macro.

Comme cela je peux remplacer dans mon code "extraction" par le nom d'une feuille fixe.

J'ai essayé d'implémenter ce code mais sans succés pour le moment :

Workbooks("nomclasseur1").Sheets("Extraction").Copy After:=Workbooks("nomclasseur1").Sheets(1)

En vous remerciant pour votre aide 😉