[VBA-E] ouverture fichier annexe

Version imprimable

10/05/2006, 10h19
mulanzia2003

[VBA-E] ouverture fichier annexe

Bonjour ,

Voici mon problème :
J'ai créé un fichier Excel (Voir en pièce jointe). Seul l'onglet Janvier est rempli.
Je souhaite que lorsque l'on met F dans la cellule Gi de la feuille "Janvier", on affiche bien la date dans la cellule Ii comme c'est fait dans mon programme mais que l'on m'ouvre aussi mon masque correspondant situé dans le répertoire C:\préventif\masque\ qui s'intitulle comme la valeur de la cellule Ei. (Dans mon exemple, le fichier est l'ongle "IPMDL004-1")
Ensuite il faudrait qu'il puisse remplir la fiche Excel existante et que lorsqu'il l'enregistre, le fichier garde son nom IPMDL004-1 + la date du jour d'enregistrement.
Par exemple IPMDL004_1_10052006.xls dans le répertoire C:\préventif\historique\.
Merci de votre aide.

Je suis disponible pour de plus ample renseignement.
19/05/2006, 07h03
mulanzia2003

Alors personne n'a de solution à me donner :cry:
Mince !!!
Pour le moment j'ai créé un repertoire avec les fichiers excel correspondant. puis dans ma feuille des liens hypertexte vers les bons documents.
Mais si vous avez des idées, n'hésité pas !!!.
19/05/2006, 07h42
SfJ5Rpw8
ben pas trés clair ce que tu ve faire, essai de détailler pas à pas...
1. Ouverture fichier dont le nom est en colone Ei
2. Sauvegarde..
19/05/2006, 14h27
mulanzia2003

BBIL, merci pour la petite réponse (jamais simple d'expliquer):oops:

Ok c'est vrai que cela peut être + clair.
On va travailler seulement sur une ligne i

1 Dès que la cellule G i passe à l'état F (pour fait).
2 Ouverture du fichier à partir de c:\Maintenance\Référentiel\Nom.xlt
ou Nom = Range("Ei").name.
3 Remplir la feuille qui vient de s'ouvrir.
4 Sauvegarde la feuille sous C:\Maintenance\Archives\Nom_Date.xls
ou Nom est identique au précédent et Date = jj/mm/aa du jour d'enregistrement.
5 Retour à la feuille initial.

Il faudrait que le code soit valable pour les 200 lignes de ma feuille.m

Merci de votre aide.
22/05/2006, 10h16
mulanzia2003

alors personne n'a une ptite idée !!!
22/05/2006, 12h46
AlainTech

Ben, si!

Mon idée:
Commence à écrire en code ce que tu as si bien décrit.

Si tu as un problème sur un point précis, viens nous poster ce code et le message d'erreur ou la description du comportement anormal constaté.

Voici le bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("G2:H500"), Target) Is Nothing Then
        If Target = "F" Then
        Cells(Target.Row, 9).Activate
        ActiveCell.FormulaR1C1 = "=TODAY()"
        NomdeFichier = Cells(Target.Row, 5).Value
        MsgBox NomdeFichier
        Workbooks.Open Filename:="C:\TRAVAIL\Maintenance\Référentiel\" & _
                                 NomdeFichier & ".xlt"
        End If
    End If
End Sub

Jusqu'à l'étape 3 pas de pbm.
Je n'arrive pas à faire l'étape 4. Préciser le lieu de l'enregistrement (Archive) et le nom du fichier tel (Nom du fichier ouvert et mois_année)
Merci de votre aide:cry: :cry: :cry:

23/05/2006, 08h25
AlainTech
Tu dis que tu n'arrives pas à faire mais tu ne nous donnes pas les éléments pour t'aider.

Cette partie du code fonctionne-t-elle correctement?
Code:

1 2 3 4 NomdeFichier = Cells(Target.Row, 5).Value MsgBox NomdeFichier Workbooks.Open Filename:="C:\TRAVAIL\Maintenance\Référentiel\" & _ NomdeFichier & ".xlt"
Si oui, qu'est-ce qui ne va pas?
Créer une chaîne de caractères contenant la date?

Vraiment pas dur!
23/05/2006, 08h30
jmfmarques

Je crois avoir compris que oui et qu'il bute sur la sauvegarde...
Une simple utilisation de l'enregistreur de macro devrait suffire pour qu'il en découvre la syntaxe ...

Si j'ai déjà essayé.
Mon soucis est :
1: je suis dans le document "Base.xls".
2: J'ouvre le fichier "Essai.xlt"
A partir de là je coïnce
3: Enregistrer mon fichier Essai.xlt sous la forme "Essai_mois_année.xls ou mois correspond au mois du jour et année à l'année.
J'ai essayé ceci :
Code:

1 2 3 4 datejour = Format(sheets("Feuil1").range("A2"), "mmmm_yyyy" ActiveWorkbook.SaveAs Filename:= _ "C:\TRAVAIL\Maintenance\Référentiel\Contrôle audio visuelAG101-1" & _ datejour & ".xls"

23/05/2006, 10h17
AlainTech

D'accord, tu as essayé...

Et que se passe-t-il?

Encore une fois, on n'est pas devins!
23/05/2006, 13h55
mulanzia2003
il me donne erreur dans la ligne :
Code:

1 2 Dim datejour as date datejour = Format(sheets("Feuil1").range("A2"), "mmmm_yyyy"
"incomptatibilité de type"
J'ai essayé avec long, ca marche pas. Avez vous une solution ?

Ok cela fonctionne il suffisait de déclarer la variable par String.
Ainsi mon code est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("G2:H500"), Target) Is Nothing Then
        If Target = "F" Then
        Cells(Target.Row, 9).Activate
        ActiveCell.FormulaR1C1 = "=TODAY()"
        NomdeFichier = Cells(Target.Row, 5).Value
        MsgBox NomdeFichier
        Workbooks.Open Filename:="C:\TRAVAIL\Maintenance\Référentiel\" & _
                                 NomdeFichier & ".xlt"
        End If
    End If
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim datejour As String
    datejour = Format(Sheets("Feuil1").Range("A2"), "mmmm_yyyy")
 
    ActiveWorkbook.SaveAs Filename:= _
        "C:\TRAVAIL\Maintenance\Archive\Contrôle audio visuelAG101-1" & datejour & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Merci et si vous pouvez le simplifier n'hésiter pas.:D :lol: :roll:

23/05/2006, 14h39
AlainTech

Il est tout à fait normal que tu reçoives une incompatibilité de type.

Un peu de réflexion devrait suffire.

Que renvoie la fonction Format?
Autrement dit, quel type de donnée.

Je suppose que c'est un problème de copier/coller mais il manque une parenthèse à ta ligne.

Edit --> Evidemment, si tu attends que je commence à taper mon message pour poster le tien... :langue: