fichier en variable avec workbook open

JNP

XLDnaute Barbatruc

• 26 Décembre 2009

• #2

Re : fichier en variable avec workbook open

Bonsoir Jopont 🙂,

jopont à dit:

Je précise également que mes fichier se nomme 01-jan, 02-fev,03-mar,....,09-septembre...

Cliquez pour agrandir...

Il faudrait savoir, 09-sep ou 09-septembre 😕...
Ensuite, que renvoie ton contrôle MonthView (le premier jour du mois, je pense, mais faudrait vérifier avec un MsgBox...) ?
Si c'est le cas, Format(MoisChoisis, "mm-mmm") devrait te donner le nom de ton fichier (attention, avec les accents, soit "02-fév") et ton code devrait être

Code:

chemin = "\\Gtsud\gtsaffichage\Planning\Gestion SPV\ANNEE 2010\GARDES\" & Format(MoisChoisis, "mm-mmm") & ".xls"

Bonne soirée 😎

 

Vote positif 0 Vote négatif

J

jopont

XLDnaute Impliqué

• 26 Décembre 2009

• #3

Re : fichier en variable avec workbook open

En fait dans ma liste de fichier, tout les mois sont nommés de cette façon :
01-janv, 02-fev,03-mars,04-avr,06-jui, 07-jui, 08-aou, 09-septembre, 10 oct, 11-nov, 12 dec

merci

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 26 Décembre 2009

• #4

Re : fichier en variable avec workbook open

Re 🙂,
Mais ne peux-tu pas renommer les fichier "correctement" pour qu'ils correspondent à une nomenclature logique ?
Et que te donnes le MsgBox de ton MonthView ?
A + 😎

 

Vote positif 0 Vote négatif

J

jopont

XLDnaute Impliqué

• 27 Décembre 2009

• #5

Re : fichier en variable avec workbook open

Non je ne peux pas les renommer, je ne suis pas le créateur de ces fichiers.

comment faire ?

merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Décembre 2009

• #6

Re : fichier en variable avec workbook open

Bonjour à tous


En t'inspirant de cet exemple, tu dois pouvoir solutionner ton problème

Code:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Dim NomFichier$
NomFichier = "12-décembre.xls"
If NomFichier Like Month(MonthView1.Value) & "-*" Then
MsgBox "ok"
End If
End Sub

 

Vote positif 0 Vote négatif

J

jopont

XLDnaute Impliqué

• 27 Décembre 2009

• #7

Re : fichier en variable avec workbook open

j'essayerai et je te redis merci

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 27 Décembre 2009

• #8

Re : fichier en variable avec workbook open

Re 🙂,
Avec un select Case

Code:

Select Case Month(MonthView1.Value)
Case 1
NomFichier = "01-jan.xls"
Case 2
NomFichier = "02-fev.xls"
...
End Select

Mais le créateur des fichiers est un abruti 😛...
Bonne soirée 😎

 

Vote positif 0 Vote négatif

J

jopont

XLDnaute Impliqué

• 27 Décembre 2009

• #9

Re : fichier en variable avec workbook open

J'avais pensé à un select case, mais où dois mettre select case dans le code.

J'utilise déjà un code sur événement cliquable de monthview, je ne voudrais pas perturbé ce code.

merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Décembre 2009

• #10

Re : fichier en variable avec workbook open

Re


(il y a dans c:\toto un fichier nommé : 12-décembre.xls)

Si je clique sur un date affichée dans l'userform
avec ce code, le fichier s'ouvre bien.

Code:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Dim NomFichier$, Chemin$
Chemin = "C:\Toto\"
NomFichier = Format(MonthView1.Value, "mm-mmmm") & ".xls"
Workbooks.Open (Chemin & NomFichier)
End Sub

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 27 Décembre 2009

• #11

Re : fichier en variable avec workbook open

Re 🙂,

jopont à dit:

J'avais pensé à un select case, mais où dois mettre select case dans le code.
J'utilise déjà un code sur événement cliquable de monthview, je ne voudrais pas perturbé ce code.

Cliquez pour agrandir...

Ok, mais si on a pas ton code, comment te dire où mettre le Select Case 😛?
@ Stapple : Oui Jean-Marie, chez moi aussi, mais si c'est Janvier, il faudrait "mm-mmm", et pour Février, Replace(Format(MonthView1.Value, "mm-mmm"), "é", "e"), je te cause pas du casse-tête 😀 (d'où mon appréciation sur l'abruti qui a créé les fichiers de départ 😱).
Bonne soirée 😎

 

Vote positif 0 Vote négatif

J

jopont

XLDnaute Impliqué

• 29 Décembre 2009

• #12

Re : fichier en variable avec workbook open

Ok merci à vous tous ça fonctionne, en utilisant IF LIKE THEN.

 

Vote positif 0 Vote négatif

J

jopont

XLDnaute Impliqué

• 29 Décembre 2009

• #13

Re : fichier en variable avec workbook open

lorsque je clique sur le bouton rien ne se déclenche :

Private Sub CommandButton2_Click()
Dim f As Long, V1 As String, V3 As String, colonnspv As Long, chemin As String, NomFichier$

NomFichier = "12-dec.xls"
If NomFichier Like Month(MonthView1.Value) & "-*" Then
Application.Visible = False





chemin = "\\reseau\fichiermois\"
Workbooks.Open (chemin & NomFichier)

Label31.Caption = Day(MonthView1) * 4 + 3


colonnspv = Day(MonthView1) * 4 + 3
Label30.Caption = Cells(13, colonnspv + 4).Text
Sheets(1).Activate
With Sheets(1)
For f = 4 To 58
If .Cells(f, colonnspv + 1) = "SO" Or .Cells(f, colonnspv + 1) = "HDJ" Or .Cells(f, colonnspv + 1) = "HD" Then
V1 = V1 & Cells(f, 3) & "." & Cells(f, 4) & Chr(10)
Label27.Caption = V1

End If
If .Cells(f, colonnspv + 3) = "HDN" Or .Cells(f, colonnspv + 3) = "SON" Or .Cells(f, colonnspv + 3) = "HD" Then
V3 = V3 & Cells(f, 3) & "." & Cells(f, 4) & Chr(10)
Label28.Caption = V3
End If
If .Cells(f, colonnspv + 4) = "HDN" Or .Cells(f, colonnspv + 4) = "SON" Or .Cells(f, colonnspv + 3) = "HD" Then
V4 = V4 & Cells(f, 3) & "." & Cells(f, 4) & Chr(10)
Label29.Caption = V4
End If
Next
End With
ActiveWorkbook.Close SaveChanges:=False
Application.Visible = True
End If



End Sub

 

Vote positif 0 Vote négatif

J

jopont

XLDnaute Impliqué

• 29 Décembre 2009

• #14

Re : fichier en variable avec workbook open

j'essaye d'utiliser select case, mais cette fois-ci j'ai un erreur d'automation l'objet invoqué s'est déconnecté.

Comment faire ?
merci

 

Vote positif 0 Vote négatif

J

jopont

XLDnaute Impliqué

• 29 Décembre 2009

• #15

Re : fichier en variable avec workbook open

le code ressemble à ça

Case 2
Application.Visible = False
NomFichier = "02-fev.xls"
chemin = "\\...\fichiers\"
Workbooks.Open (chemin & NomFichier)
colonnspv = Day(MonthView1) * 4 + 3
Label30.Caption = Cells(13, colonnspv + 4).Text

With Sheets(1)
For f = 4 To 58
If .Cells(f, colonnspv + 1) = "SO" Or .Cells(f, colonnspv + 1) = "HDJ" Or .Cells(f, colonnspv + 1) = "HD" Or .Cells(f, colonnspv + 1) = "SOJ" Then
V1 = V1 & Cells(f, 3) & "." & Cells(f, 4) & Chr(10)
Label27.Caption = V1

End If
If .Cells(f, colonnspv + 3) = "HDN" Or .Cells(f, colonnspv + 3) = "SON" Or .Cells(f, colonnspv + 3) = "HD" Then
V3 = V3 & Cells(f, 3) & "." & Cells(f, 4) & Chr(10)
Label28.Caption = V3
End If
If .Cells(f, colonnspv + 4) = "HDN" Or .Cells(f, colonnspv + 4) = "SON" Or .Cells(f, colonnspv + 3) = "HD" Then
V4 = V4 & Cells(f, 3) & "." & Cells(f, 4) & Chr(10)
Label29.Caption = V4
End If
Next
End With
ActiveWorkbook.Close SaveChanges:=False
Application.Visible = True

 

Vote positif 0 Vote négatif