VBA Excel mise à jour fichier sans l'ouvrir

Réponse 2 / 8

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 févr. 2009 à 09:16

bonjour,

il y aura toujours un fichier ouvert: celui où il y a la macro de commznde... donc, je suggèrerais d'effectuer une lecture simple du fichier "source" vers le 2° où il il ya déjà du VBA

vous pourrez trouver ci joint exemples de liaisons office (excel-access-word) en technologie ADO avec lecture-écriture dans un excel fermé...fichier de commande: home_ado.xls
http://www.cijoint.fr/cjlink.php?file=cj200902/cijpjc7JtG.zip
(depuis pas mal de choses se sont améliorées)

toutefois, par rapport à cette démo, on peut éviter d'avoir à cocher la référence ADO dans les références
ce qui évite de param^trer chaque ordi.

dim source as object
dim requete as object
'chemin et fichier sont ici des variables globales venant d'ailleurs

Set Source = CreateObject("ADODB.Connection")
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Chemin & "\" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"

Set Requete = CreateObject("ADODB.Recordset")
    ....
requete.close
source.close
set requete=nothing
set source=nothing

HDR=NO est utilisé quand il n'y a pas d'étiquettes (ou nom de champ), si tel est le cas, il faut préciser l'onglet- feuille et la plage de cellule par exemple:

Set requete = source.Execute("SELECT * FROM `" & onglet & "$" & zone & "` WHERE '" & champ & "' <>"""";")

non précisé ADO cherchera les étiquettes (HDR=Header)
Quelquesoit la version WIN-office utilisée laisser extended properties à 8.0; ADO comprendra dans des versions postérieures...

Je tiens à citer
http://frederic.sigonneau.free.fr/
site incontournable pour tout excelien accro!

Maintenant, si tu n'as pas beaucoup de données-cellules à transfèrer tu pêux utiliser la macro dite de Walkenbach sans faire appel à ADO
autre exemple (le nom de fichier était dans un combobox):

' modèle pour écrire param='C:\mes documents\riri\[Classeur1.xls]Classeur1Feuil3'!L1C1
param = "'" & chemin & "\[" & Me.CbxClasseur.Value & "]" & onglet & "'!R1C1"
' macro dite de John Walkenbach
champ = ExecuteExcel4Macro(param)

mais il faut soit boucler, soit écrire autant de lignes qu'il y a de cellules

Réponse 3 / 8

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
21 févr. 2009 à 10:30

Pour modifier un enregistrement dans un classeur fermé j'ai trouvé ceci
sur DVP.com AUTEUR: Silkyroad
https://silkyroad.developpez.com/VBA/ClasseursFermes/#LIV-B

'Met à jour la valeur du "Champ4" si le "Champ2" correspond à la variable "leNom"
strSQL = "UPDATE [" & Feuille & "$] SET " & _
"Champ4 = " & PrixUnit & " WHERE Champ2 = '" & leNom & "'"

Réponse 4 / 8

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 févr. 2009 à 09:21

Bonjour,
Ca dépend de ton 1er fichier, quel est sa provenance, sont type ? c'est un calsseur excel ?
Donne des explications plus détaillées
A+

Rochelle13
20 févr. 2009 à 10:33

Oui désolée j'ai oublié de préciser.

Mon deuxième fichier est un fichier Excel.

Min premier fichier a un format : Microsoft Office Excel Comma Separated Values File

Est ce que ces informations suffisent?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 févr. 2009 à 11:18

Microsoft Office Excel Comma Separated Values File ?
Quel version d'excel ?

Rochelle13
20 févr. 2009 à 15:00

La version d'Excel : Excel 2003.

Pour le format que j'ai donné (Microsoft Office Excel Comma Separated Values File), c'est ce qui est écrit dans "type de fichier" lorsque je fais propriété du fichier.

Réponse 6 / 8

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
21 févr. 2009 à 07:57

Bonjour Polux,
Ca m'intérèsserais de savoir comment écrire dans le classeur fermer :-)
a) Remplacer une ligne.
b) Ajouter après la dernière ligne.
A la place ou tu a mis .. la requête
Merci d'avance.
A+

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
21 févr. 2009 à 09:49

Bonjour lermite,

Voilà un exemple pour ajouter une ligne

Sub InsertRecord(ByVal nom As String, Byval prenom As String, ByVal age As Integer)
    Dim Cnx As ADODB.Connection
    Dim Fichier As String, Feuille As String, strSQL As String

    Fichier = "C:\maBase.xls" 'chemin complet du fichier fermé
    Feuille = "Adhérants" 'Onglet où les données doivent être insérées
    
   
    Set Cnx = New ADODB.Connection
    
    With Cnx
        .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 ( '" & nom "', '" & prenom & "', "  & age  & ")"
    
    Cnx.Execute strSQL
    
    Cnx.Close
    Set Cnx = Nothing
End Sub

On peut également modifier une donnée dans une cellule selon un critère. La requête aurait cette forme :

strSQL = "UPDATE [" & Feuille & "$] SET " & _
        "Champ4 = " & age & " WHERE Champ2 = '" & nom & "'"

;o)

Réponse 7 / 8

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
21 févr. 2009 à 12:15

Polux, Michel, Merci pour tout ces exemples.
J'avais déja trouver pour lire mais je ne parvenais pas à écrire dans le classeur fermer.
J'ai aussi trouver le dernier lien donné par Michel mais je ne voulais pas encore mélanger ADO et SQL, une chose à la fois :-)
Encore merci à vous deux.
A+

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
22 févr. 2009 à 10:51

Bonjour lermite,

De rien, c'est aussi en m'aidant du lien donné par Michel que je me suis fait un module permettant de lire et écrire dans un classeur fermé. Il faut néanmoins que le classeur fermé soit cohérent. Par exemple, pas de cellules fusionnées, les données insérées doivent être du même type que le format des cellules du classeur fermé etc ...

Bon dimanche.

;o)

Réponse 8 / 8

Utilisateur anonyme
3 juin 2009 à 16:55

boujour tous ,

j'ai un classeur qui contient plusieur feuille et je veux chaque feuille contient un ou plusier tableaux et je veux selectioné un champ par exemple "B9" dans la feuille "productionjour" et l'affiché dans une interface que j'ai la créer moi meme avec vb 6 si quelqu'un peut me donné la procedure je serai reconnaissant

VBA Excel mise à jour fichier sans l'ouvrir

8 réponses

Discussions similaires

Newsletters