Pbl sauvegarde MSFlexGrid

**Bib0ucH** · 13/12/2007, 12h19

Bonjour,
mon problème d'insertion de ligne à été résolu, mais un nouveau vient d'apparaitre :

Lorsque je clique sur mon bouton "Save", ma macro s'enregistre sous un autre nom. Si j'ouvre la macro dernierement enregistrée, les valeurs de ma FlexGrid ont disparu.

Code :

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

1
2
3
4
5
6
7
8
Private Sub CmdSave_Click()
 
    ChDir "U:\JABIL\Methodes\CMS\MACRO"
    ActiveWorkbook.SaveAs Filename:= _
        "U:\JABIL\Methodes\CMS\MACRO\Macro Fiche Instruction.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

Mon fichier de base s'appel "Test MACRO.xls" et le fichier vers lequel je veux enregistrer s'appel "Macro Fiche Instruction.xls"

Que faire???

Merci

**LeForestier** · 13/12/2007, 12h29

Bonjour,
Les données qui sont dans ton Msflexgrid est une chose différente d'Excel et tu doit enrégistrer les données dans un fichier à part
A+

**Jean-Pierre49** · 13/12/2007, 12h34

Je ne sais pas si ça peu regler ton probleme mais quand j'enregistre un classeur sous un autre nom :

Code :

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

1
2
CheminStockage  = "U:\JABIL\Methodes\CMS\MACRO"
ActiveWorkbook.SaveAs CheminStockage & "Macro Fiche Instruction"

**Bib0ucH** · 13/12/2007, 13h12

Désolé leforestier mais je ne sais pas comment faire

Jean Pierre, ton code fonctionne mais ne résoud pas mon problème mon document est toujours vierge

**Jean-Pierre49** · 13/12/2007, 13h34

Comme dit leforestier les données entrées dans des USF sont temporaires elle n'existent que ds la form.
transfert des données ds une page de ton classeur, qui peut être cachée, et rappelle les à l'initialization de ton USF

**Bib0ucH** · 13/12/2007, 13h38

tu n'aurais pas un petit bout de code qui me mettrai sur la piste parce que la je rame...

**LeForestier** · 13/12/2007, 14h15

En bouclant sur les lignes et colonnes de ta flexGrid mettre les données dans un coin d'une feuilles ou une autre avec par exemple...

Code :

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

    cells(X,Y).value = FlexGrid.textmatrix(X,Y)

et dans l'événement..

Code :

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

1
2
3
Private Sub Workbook_Open()
    'réinitialiser la FlexGrid et faire l'inverse 
End Sub

A+

**Bib0ucH** · 13/12/2007, 14h43

Oh la vache, je ne m'attendai pas à cela.

Merci

Je veux copier une Ligne entière sans faire jouer les colonnes, ai-je le droit d'ecrire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Sub MemoGrid()
'A envoyer avant de mémoriser le classeur..
'Supposons la feuil3 libre
Dim Ligne As Integer, Colonne As Integer
    Sheets("Feuil3").Select
    For Ligne = 0 To MSFlexGrid1.Rows - 1
            Cells(Ligne + 1, 0).Value = MSFlexGrid1.TextMatrix(Ligne, 0)
            Next Ligne
End Sub

**LeForestier** · 13/12/2007, 14h45

Non

**LeForestier** · 13/12/2007, 14h52

Feuil3 et les adresses de cellules sont données à titre d'exemple, tu peu mettre ça dans une autre feuilles et dans d'autres cellules à conditions de les indexés.

**Bib0ucH** · 13/12/2007, 14h56

Je garde ton code, je ne m'y connai pas encore assez pour changer tt cela tt seul

**Bib0ucH** · 13/12/2007, 15h25

Nikel ormi une erreur 424 (objet requis)dans ce code, au moment ou j'ouvre la macro sauvegarder

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Sheets("Feuil3").Select
    For Ligne = 0 To MSFlexGrid1.Rows - 1
        For Colonne = 0 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.TextMatrix(Ligne, Colonne) = Cells(Ligne + 1, Colonne + 1).Value
        Next Colonne
    Next Ligne
 
 
End Sub