Pbl sauvegarde MSFlexGrid

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:

---

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

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+

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

Code:

---

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

---

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

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

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

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:

---

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

---

et dans l'événement..

Code:

---

1 2 3

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

---

A+

J'suis désoler j'ai du mal avec le vocabulaire.

Citation:

---

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:

---

cells(X,Y).value = FlexGrid.textmatrix(X,Y)et dans l'événement..

---

Code:

---

1 2 3

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

---

---

Je sais ou ecrire le deuxieme code, mais dois-je ecrire quelque chose a la place de " 'réinitialiser la FlexGrid et faire l'inverse ", et ou dois-je ecrire le ^premier code???

Quelles sont les valeurs prises par X et Y?? ce sont des lignes et des colonnes??

Aller... c'est mon jour de bonté :P

Code:

---

1 2 3 4 5 6 7 8

Private Sub CmdSave_Click() call MemoGrid 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

---

Code:

---

1 2 3 4 5 6 7 8 9

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

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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 For Colonne = 0 To MSFlexGrid1.Cols - 1 Cells(Ligne + 1, Colonne + 1).Value = MSFlexGrid1.TextMatrix(Ligne, Colonne) Next Colonne Next Ligne End Sub

---

:king: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:

---

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

---

Non

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.

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

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

Code:

---

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

---

au niveau de cette ligne

Code:

---

For Ligne = 0 To MSFlexGrid1.Rows - 1

---

J'aimerai également que la feuil3reste caché par les deux premières feuilles au moment où elle se rempli

le nom MSFlexGrid1 doit être adapté au nom que tu à donné à ton MsFlexgrid, c'est la seule erreur que je vois.
Pour cacher la feuille

Code:

---

sheets("Feuil3").visible = False

---

Mais dans l'immédiat je ne me rappel plus si possible d'écrire dans une feuille cachée.
TU NE DOIT PAS PERDRE DE VUE QUE LES EXEMPLES DONNES NE SONT PAS OBLIGATOIREMENT CONCORDANT AVEC LES NOMS QUE TU LEURS DONNENT, C'EST A TOI D'ADAPTER.
A+
Autant pour moi, j'ai oublié une chose, c'est que le grid n'est pas nécessairement sur la feuille 3
Donc remplace les

Code:

---

1 2 3

MSFlexGrid1.Rows 'par Sheets("Feuil1").MSFlexGrid1.Rows

---

Feuil1 à adapter au nom de la feuille qui contient le grid.

Je suis d'accord avec toi pour les exemples, sauf que dans mon cas, ma FlexGrid s'appelle MSFlexGrid1, comme ds l'exemple que tu m'as donner...

Je te confirme que l'on ne peut pas écrire dans une feuille cachée.

Regarde mon édit (un peu trop tard)

Ma Grid n'est pas sur une feuille, elle est ds un USF

Grrr... tu met le nom du UserForm alors. :mouarf:

Edit: T'en fait pas, je rigole :P

Même problème, même ligne...
Je sens que ça t'enerve :oops: :yaisse2: (moi aussi ça m'enerve,il peuvent pas faire des codes plus faciles??? :mouarf:)