Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Modifier le contenu des celulles

Modifier le contenu des celulles

2 réponses
Avatar
Jacques
Bonsoir,

En me basant sur l'exemple de Raymond je voudrais modifier le contenu
de certaines cellule mais aucune modification ne se fait lorsque je
lance le code.

Merci de votre aide.

Salutations.

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
Dim varFichier As Variant
Dim fd As FileDialog

'--- Pr=E9parer la bo=EEte de dialogue Ouvrir
Set fd =3D Application.FileDialog(msoFileDialogFilePicker)
fd.Title =3D "Choisissez un classeur"
fd.InitialFileName =3D "*.xls"
fd.AllowMultiSelect =3D True

'--- Personnaliser la liste d=E9roulante Type de fichier
fd.Filters.Clear
fd.Filters.Add "Fichiers Excel", "*.xls"
fd.Filters.Add "Tous les fichiers", "*.*"
fd.FilterIndex =3D 1

'--- Ouvrir la bo=EEte de dialogue
If fd.Show =3D 0 Then

'--- L'action a =E9t=E9 annul=E9e
Set fd =3D Nothing
Exit Sub
End If

For Each varFichier In fd.SelectedItems

With XL_App
Set XL_Classeur =3D .Workbooks.Open(varFichier)
Set XL_Feuille =3D XL_Classeur.Sheets("liste")
With XL_Feuille
.Cells(1, 18) =3D "Coucou"
.Cells(1, 29) =3D "Coucou"
.Cells(1, 30) =3D "Coucou"
.Cells(1, 31) =3D "Coucou"
.Cells(1, 32) =3D "Coucou"
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Next
Set XL_App =3D Nothing
Set XL_Classeur =3D Nothing
Set XL_Feuille =3D Nothing
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
gilles
Salut,

Tu as essayé de mettre un point d'arrêt dans le code de ta procédure ?
Celà te donnera déjà une idée sur les variables et objets et l'endroit
où regarder .

A+ Gilles

"Jacques" a écrit dans le message de
news:
Bonsoir,

En me basant sur l'exemple de Raymond je voudrais modifier le contenu
de certaines cellule mais aucune modification ne se fait lorsque je
lance le code.

Merci de votre aide.

Salutations.

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
Dim varFichier As Variant
Dim fd As FileDialog

'--- Préparer la boîte de dialogue Ouvrir
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Choisissez un classeur"
fd.InitialFileName = "*.xls"
fd.AllowMultiSelect = True

'--- Personnaliser la liste déroulante Type de fichier
fd.Filters.Clear
fd.Filters.Add "Fichiers Excel", "*.xls"
fd.Filters.Add "Tous les fichiers", "*.*"
fd.FilterIndex = 1

'--- Ouvrir la boîte de dialogue
If fd.Show = 0 Then

'--- L'action a été annulée
Set fd = Nothing
Exit Sub
End If

For Each varFichier In fd.SelectedItems

With XL_App
Set XL_Classeur = .Workbooks.Open(varFichier)
Set XL_Feuille = XL_Classeur.Sheets("liste")
With XL_Feuille
.Cells(1, 18) = "Coucou"
.Cells(1, 29) = "Coucou"
.Cells(1, 30) = "Coucou"
.Cells(1, 31) = "Coucou"
.Cells(1, 32) = "Coucou"
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Next
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub
Avatar
Gilbert
Bonjour,

Ce code fonctionne très bien, mais rien n'est visible à l'écran.
As-tu vérifié dans ton fichier Excel que le modifs n'ont pas été faites?

--
Cordialement,

Gilbert


"Jacques" a écrit dans le message de
news:
Bonsoir,

En me basant sur l'exemple de Raymond je voudrais modifier le contenu
de certaines cellule mais aucune modification ne se fait lorsque je
lance le code.

Merci de votre aide.

Salutations.

Private Sub Commande0_Click()
Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
Dim varFichier As Variant
Dim fd As FileDialog

'--- Préparer la boîte de dialogue Ouvrir
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Choisissez un classeur"
fd.InitialFileName = "*.xls"
fd.AllowMultiSelect = True

'--- Personnaliser la liste déroulante Type de fichier
fd.Filters.Clear
fd.Filters.Add "Fichiers Excel", "*.xls"
fd.Filters.Add "Tous les fichiers", "*.*"
fd.FilterIndex = 1

'--- Ouvrir la boîte de dialogue
If fd.Show = 0 Then

'--- L'action a été annulée
Set fd = Nothing
Exit Sub
End If

For Each varFichier In fd.SelectedItems

With XL_App
Set XL_Classeur = .Workbooks.Open(varFichier)
Set XL_Feuille = XL_Classeur.Sheets("liste")
With XL_Feuille
.Cells(1, 18) = "Coucou"
.Cells(1, 29) = "Coucou"
.Cells(1, 30) = "Coucou"
.Cells(1, 31) = "Coucou"
.Cells(1, 32) = "Coucou"
End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Next
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End Sub