Discussion :

[killysui]

Bonjour,

Je débute sur les macros VBA sous EXCEL.

Je souhaiterai via un fichier .csv qui contient :

NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur
NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur

Remplir les valeurs dans le fichier excel, onglet, ligne et colonne.

Pouvez-vous me dire comment m'y prendre.

Pour info : il existe 4 fichiers Excel, qui contiennent environ 400 onglets.

Merci.

[killysui]

Pouvez-vous me dire comment lancer une focntion d'un module lors de l'ouverture d'un fichier excel?

Merci.

[cafeine]

Hello,

en plaçant votre code sur l'événement Workbook_Open du dit classeur.

[killysui]

Merci pour la réponse...

Cependant, j'a effectivement trouvé la méthode "Workbook_Open" d'une feuille mais pas celle du classeur.

Pouvez-vous me dire comment faire exectement?

Merci d'avance.

[cafeine]

Ajoute du code sur ThisWorkbook dans VBE.

[SilkyRoad]

bonjour


http://silkyroad.developpez.com/VBA/EvenementsClasseur/


michel

[killysui]

Merci pour vos réponses et pour ce lien. j'ai enfin réussi à lancer des fonction au démarrage.

Cependant j'aurai encore une question :

Comment je peux affectuer une valeur à une cellule dont je connais
- le nom du fichier EXCEL
- l'onglet(feuille)
- la ligne
- et la colonne.

Voici ce que j'ai essayé mais cella ne fonctionne pas :

Code :

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

Sheets(NomOnglet).Cells(NomLigne, NomColonne) = Value

Merci

[mathieu44800]

Bonjour,

C'est

Code :

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

Sheets("Feuil").Cells(NUMERO_LIGNE, NUMERO_COLLONE) = ...

Tapes sur F1 sur le mot clé que tu ne connais pas et accède à l'aide...

A+

[killysui]

Ca ne fonctionne pas.

Voici le code que j'ai écris jusqu'a présent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim LigneCSV As String, NoLigne As Long, NoLigneCVS As Integer
Dim TableauLignesCSV, TableauValeurLigne
Dim NomFichier, NomOnglet, NumLigne, NoColonne, Valeur
Dim Chemin, NomFichCSV, NomFichEXCEL
 
Chemin = "...."
NomFichCSV = "Test.csv" 'ou .txt
NomFichEXCEL = ""
 
    Dim i As Integer
    i = 0
    Open Chemin & NomFichCSV For Input As #1
    While Not EOF(1)
        Input #1, LigneCSV
        TableauLignesCSV = Split(LigneCSV, ";")
        For NoLigneCVS = 0 To UBound(TableauLignesCSV)
            TableauValeurLigne = Split(TableauLignesCSV(NoLigneCVS), "|")
            NomOnglet = TableauValeurLigne(1)
            NumLigne = TableauValeurLigne(2)
            NoColonne = TableauValeurLigne(3)
            Valeur = TableauValeurLigne(4)
 
            If NomFichEXCEL = "" Or TableauValeurLigne(0) <> NomFichEXCEL Then
                NomFichier = TableauValeurLigne(0)
                'Ouvrir le fichier Excel
 
                'Insertion de la valeur dans la cellule
                Sheets(NomOnglet).Cells(NumLigne, NoColonne) = Value
            Else
 
            End If
        Next
    Wend
    Close #1

PS : La fonction F1 ne fonctionne pas sur mon poste.

[mathieu44800]

Re,

Moi j'aurais fait comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
    Dim objFSO As New Scripting.FileSystemObject
    Dim objWbk As New Excel.Workbook
    Dim objSheet As New Excel.Worksheet
    Dim objWbk1 As New Excel.Workbook
    Dim objSheet1 As New Excel.Worksheet
 
    strCheminS = "Chemin de ton CVS"
    strFeuil = "Le nom de ta feuil CSV"
    If (objFSO.FileExists(strCheminS)) Then
         Set objWbk = Workbooks.Open(strCheminS)
         Set objSheet = objWbk.Sheets(strFeuil)
         objSheet.Activate
         Set objWbk1 = Workbooks.Open("Chemin de Destination")
         Set objSheet1 = objWbk1.Sheets("Feuille de Destination")
         For i = 2 To 10000
             If (objSheet.Cells(i, 1) <> "") Then
                 strTab = Split(objSheet.Cells(i, 1), ";")
                 objSheet1.Cells(NumLigne, NumCol) = strTab(1)
             End If
        Next i
 
       objWbk.Close False
       Set objWbk = Nothing
       objWbk1.Close True, strCheminD
       Set objWbk1 = Nothing
   Else
         MsgBox "Fichier Non Trouvé !"
   End If

[killysui]

Merci pour les réponses...

J'en m'inspire pour mon code, cepandant je n'arrive toujours pas à trouver la solution(que je dois rendre pour ce soir).

voici une partie de mon code :

Code :

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

1
2
3
4
Set objWbk1 = Workbooks.Open(Chemin & "\" & NomFichier)
                Set objSheet1 = objWbk1.Sheets(NomOnglet)
 
                objSheet1.Cells(NumLigne, NoColonne) = Valeur

une erreur apparait sur cette ligne de code :

Code :

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

objSheet1.Cells(NumLigne, NoColonne) = Valeur

Quelqu'un aurait une idée..

Merci d'avance.