Discussion :

[mat75019]

Bonjour,

Je souhaite supprimer la plage A3:GM50 dans la feuille "Sheet1" du classeur "Receptacle Opera", voila le code que j'utilise :

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
Private Sub Import_Click()
 
Dim xlBook As Excel.Workbook
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim vtemp As Variant
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("U:\DEFP\DFE\Dph\DPHR\CNP organisation\Receptacle_Opera.xls")
Set xlSheet = xlSheet.sheet1
 
vtemp = xlSheet.Range("A3:GM50")
 
xlSheet.Rows(vtemp).Delete
 
End Sub

J'ai un bog avec

Code :

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

Set xlSheet = xlSheet.sheet1

Access me dit : Membre de methode ou données introuvable

C'est la premiere fois que j'essaye de piloter Excel depuis Access, merci d'avance de votre aide !!!

[stolx_10]

s majuscule ?? Sheet1 et non sheet1 ! je dis ça comme ça, sinon je sais pas

[mat75019]

Merci mais ca ne change pas le problème... Merci de ta réponse !

[RGShoop]

Salut,

Sheet1 est le nom de ta feuille active dans le classeur Excel "Receptacle_Opera" ou bien a t'elle un autre nom ?

Si tu veux selectionner la première feuille, alors le code est :

Code :

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

Set xlSheet = xlSheet.sheet(1)

Si tu veux sélectionner la feuille active du classeur ouvert, alors le code est :

Code :

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

Set xlSheet = xlSheet.ActiveSheet

A+ RGShoop

[mat75019]

Merci, la feuille sur laquelle je veux agir s'appelle Sheet1, c'est la première et dernière feuille (unique feuille), et c'est aussi la feuille active. J'ai essayé toutes tes propositions mais j'ai toujours le même message d'erreur...

Merci qd meme a toi...

Il n'y a pas de solution...

[Andalor]

Salut,

Normal que ça ne marche pas, le bon code est :

Code :

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

1
2
 
Set xlSheet = xlBook.sheet(1)

[mat75019]

Merci a toi, j'ai toujours un message d'erreur !
Mais le point positif c'est qu'il a changé . Maintenant j'ai le message d'erreur suivant :
Erreur d'execution 438 :
Propriété ou méthode non gérée par cet objet

Merci a toi ça avance...

[Andalor]

L'erreur est toujours sur la même ligne ?

[mat75019]

oui la ligne :

Code :

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

Set xlSheet = xlBook.Sheet(1)

[Andalor]

oups je me suis planté dans le code

Code :

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

Set xlSheet = xlBook.Worksheets(1)

Désolé...

[mat75019]

merci à toi !!!!! j'ai plus de bug sur la ligne Set xlSheet, mais... j'ai un autre bug...

Maintenant j'ai le message d'erreur :
Erreur d'execution '13'
Incompatibilité de type

Cette fois c'est la ligne

Code :

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

xlSheet.Rows(vtemp).Delete

qui pose problème.

Désolé je suis pas doué !

[Andalor]

Normal dans le paranthèse il faut mettre un integer et non un double. Le chiffre doit correspondre au numéro de la ligne que tu veux delete

[mat75019]

J'ai pas tout compris...

[stolx_10]

En gros ta fonction xlSheet.Rows(vtemp).Delete prend vtemp comme Variant
----> Dim vtemp As Variant

Or vtemp n'est pas à utiliser ici. Il faut que tu mettes un chiffre qui correspondent à ta ligne
----> 0 pour la 1ere ligne, 1 pour la 2nd etc etc ......

[SfJ5Rpw8]

pas besoin de vTemp :

Code :

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

1
2
 
xlSheet.Range("A3:GM50").Delete

devrai être bon ..?

[m_charmat]

Bonsoir,

Je n'est pas teste si le code suivant marche ou pas, mais j'aimerai savoir si on peut supprimé l'intégralité des ligne (De "A" au "F" dans mon exemple) sauf la première ligne

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
Private Sub Import_Click()
 
Dim xlBook As Excel.Workbook
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim vtemp As Variant
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\Ne pas supprimé\PartagesApplications\BD_Externe\Externe_liste.xlsx")
Set xlSheet = xlSheet.sheet1
 
xlSheet.Range("A3:GM50").Delete
 
Set xlSheet = xlBook.Worksheets(1)
 
End Sub

[hyperion13]

Salut
De mémoire remplacer la L11 par :

Code :

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

xlSheet.Rows("2:" & Rows.Count).ClearContents

et n'oubliez pas d'adapter la L9 fonction de votre IHM

[m_charmat]

Bonsoir,

Il m'affiche l'erreur suivante :

Code :

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

Une erreur de compilation, type définie par l'utilisateur non définie

[hyperion13]

Avez-vous pris le temps de lire tous les posts du sujet ?
Post#10 on signale la syntaxe correcte!

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
Private Sub Import_Click()
    Dim xlApp As Excel.Application
    Dim xlwbk As Excel.Workbook
    Dim xlwbs As Excel.Worksheet
    Dim FileName As String
 
    FileName = "C:\Users\Public\Desktop\NomduClasseur.xlsx"
    Set xlApp = CreateObject("Excel.Application")
    Set xlwbk = xlApp.Workbooks.Open(FileName)
    Set xlwbs = xlwbk.Worksheets("NomdelaFeuille")
    xlApp.Visible = True
 
    xlwbs.Rows("2:" & Rows.Count).ClearContents
 
xlwbk.Save
xlwbk.Close
xlApp.Application.Quit
Set xlwbs = Nothing
Set xlwbk = Nothing
Set xlApp = Nothing
End Sub