Discussion :

[jfdebutant]

Bonjour le Forum,

Je souhaite excuter du code VBA sur un fichier Excel fermé
Est ce possible ?
Merci d'avance pour vos réponses

JF

[Krovax]

Bonjour,

oui c'est possible de manipuler les fichier fermer mais sous certaine conditions et tu ne pourra pas tout faire.
Voici un tuto
Lire et écrire dans les classeurs Excel fermés

Sinon le plus simple reste d'ouvrir le fichier le manipuler le fermer. En desactivant la mise a jour de l'écran l'utilisateur ne le verra même pas

[jfdebutant]

Bonjour,
et merci pour ta réponse,
j'ai effectivement "dévoré" le tuto de silkyroad, et j'ai trouver mon bonheur pour écrire dans le fichier fermé..... sauf que je me prend les pieds dans les commandes Sql en effet son exemple utilise des champs date, nombre et texte
moi je ne veux que des champs texte, donc je modifie et horreur je reçois insulte sur insulte si joint le code modifier (je ne maitrise pas dla syntaxe SQL), pouvez - vous m'aider ?
Merci d'avance.

THE CODE

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
Sub ajoutEnregistrement()
  Dim Cn As ADODB.Connection
    Dim Fichier As String, Feuille As String, strSQL As String
    Dim LeNom As String 'Date
    Dim LePrenom As String
    Dim LAdresse As String, LeCodePostal As String, LaVille As String
 
    Fichier = "\\MaPlace\MonService\Bibliothque Bases Clients\MaRegion\EssaiBaseDistance.xls"
    Feuille = "Feuil1"
    'Les données à insérer:
    LeNom = "Lustrucru"
    LePrenom = "La Fleur"
    LAdresse = "20 rue de la Pompe"
    LeCodePostal = "69440"
    LaVille = "La Bas"
    Set Cn = New ADODB.Connection
    With Cn
        .Provider = "MSDASQL"
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Fichier & "; ReadOnly=False;"
        .Open
    End With
    'Les données doivent être indiquées dans le même ordre que les champs dans la base de données.
    strSQL = "INSERT INTO [" & Feuille & "$] " & "VALUES (" & LeNom & ", " & "'" & LePrenom & ", " & "'" & LAdresse & ", " & LeCodePostal & ", " & "'" & LaVille & ")"
 
    Cn.Execute strSQL
    Cn.Close
    Set Cn = Nothing
End Sub