J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en
sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))"
j'ai le message "erreur 2004 : erreur définie par l'application ou
l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me
dire ce que fait cette ligne , je pourrais peut être comprendre le
pourquoi de cette erreur.
Voici le code :
---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String
Dim NomFichierSauvegarde As String
Dim R As Long, C As Integer
'Nom de la feuille à adapter
With ThisWorkbook.Worksheets("F_eleves")
R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
Set Plage = .Range(.Range("A1"), Cells(R, C))
End With
Séparateur = ";" ' celui de ton choix
' Chemin et nom de fichier à adapter
NomFichierSauvegarde = "Denis.csv"
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
isabelle
bonjour olitoto,
verifie en mode pas à pas que la variable R a bien une valeur numérique entre 1 et 65536, et la variable C, une valeur numérique entre 1 et 256
isabelle
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))" j'ai le message "erreur 2004 : erreur définie par l'application ou l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me dire ce que fait cette ligne , je pourrais peut être comprendre le pourquoi de cette erreur.
Voici le code : ---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
'Nom de la feuille à adapter With ThisWorkbook.Worksheets("F_eleves") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
Séparateur = ";" ' celui de ton choix ' Chemin et nom de fichier à adapter NomFichierSauvegarde = "Denis.csv"
SaveAsCSV Plage, Séparateur, NomFichierSauvegarde
End Sub
bonjour olitoto,
verifie en mode pas à pas que la variable R a bien une valeur numérique entre 1 et 65536,
et la variable C, une valeur numérique entre 1 et 256
isabelle
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en
sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))"
j'ai le message "erreur 2004 : erreur définie par l'application ou
l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me
dire ce que fait cette ligne , je pourrais peut être comprendre le
pourquoi de cette erreur.
Voici le code :
---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String
Dim NomFichierSauvegarde As String
Dim R As Long, C As Integer
'Nom de la feuille à adapter
With ThisWorkbook.Worksheets("F_eleves")
R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
Set Plage = .Range(.Range("A1"), Cells(R, C))
End With
Séparateur = ";" ' celui de ton choix
' Chemin et nom de fichier à adapter
NomFichierSauvegarde = "Denis.csv"
verifie en mode pas à pas que la variable R a bien une valeur numérique entre 1 et 65536, et la variable C, une valeur numérique entre 1 et 256
isabelle
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))" j'ai le message "erreur 2004 : erreur définie par l'application ou l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me dire ce que fait cette ligne , je pourrais peut être comprendre le pourquoi de cette erreur.
Voici le code : ---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
'Nom de la feuille à adapter With ThisWorkbook.Worksheets("F_eleves") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
Séparateur = ";" ' celui de ton choix ' Chemin et nom de fichier à adapter NomFichierSauvegarde = "Denis.csv"
SaveAsCSV Plage, Séparateur, NomFichierSauvegarde
End Sub
Daniel
Bonjour. Vraisemblablement, tu exécutes la macro sur une feuille vierge. Cordialement. Daniel "olitoto" a écrit dans le message de news: eqnJ2%
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))" j'ai le message "erreur 2004 : erreur définie par l'application ou l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me dire ce que fait cette ligne , je pourrais peut être comprendre le pourquoi de cette erreur.
Voici le code : ---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
'Nom de la feuille à adapter With ThisWorkbook.Worksheets("F_eleves") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
Séparateur = ";" ' celui de ton choix ' Chemin et nom de fichier à adapter NomFichierSauvegarde = "Denis.csv"
SaveAsCSV Plage, Séparateur, NomFichierSauvegarde
End Sub
Bonjour.
Vraisemblablement, tu exécutes la macro sur une feuille vierge.
Cordialement.
Daniel
"olitoto" <qsqsd@qsqd.fr> a écrit dans le message de news:
eqnJ2%23PVHHA.4260@TK2MSFTNGP06.phx.gbl...
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en
sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))"
j'ai le message "erreur 2004 : erreur définie par l'application ou
l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me
dire ce que fait cette ligne , je pourrais peut être comprendre le
pourquoi de cette erreur.
Voici le code :
---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String
Dim NomFichierSauvegarde As String
Dim R As Long, C As Integer
'Nom de la feuille à adapter
With ThisWorkbook.Worksheets("F_eleves")
R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
Set Plage = .Range(.Range("A1"), Cells(R, C))
End With
Séparateur = ";" ' celui de ton choix
' Chemin et nom de fichier à adapter
NomFichierSauvegarde = "Denis.csv"
Bonjour. Vraisemblablement, tu exécutes la macro sur une feuille vierge. Cordialement. Daniel "olitoto" a écrit dans le message de news: eqnJ2%
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))" j'ai le message "erreur 2004 : erreur définie par l'application ou l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me dire ce que fait cette ligne , je pourrais peut être comprendre le pourquoi de cette erreur.
Voici le code : ---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
'Nom de la feuille à adapter With ThisWorkbook.Worksheets("F_eleves") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
Séparateur = ";" ' celui de ton choix ' Chemin et nom de fichier à adapter NomFichierSauvegarde = "Denis.csv"
SaveAsCSV Plage, Séparateur, NomFichierSauvegarde
End Sub
anonymousA
Bonjour,
sauf si le logiciel de messagerie a mangé le point devant cells(R,C), il faut le point devant cells(R,C).
Set Plage = .Range(.Range("A1"), .Cells(R, C))
A+
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))" j'ai le message "erreur 2004 : erreur définie par l'application ou l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me dire ce que fait cette ligne , je pourrais peut être comprendre le pourquoi de cette erreur.
Voici le code : ---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
'Nom de la feuille à adapter With ThisWorkbook.Worksheets("F_eleves") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
Séparateur = ";" ' celui de ton choix ' Chemin et nom de fichier à adapter NomFichierSauvegarde = "Denis.csv"
SaveAsCSV Plage, Séparateur, NomFichierSauvegarde
End Sub
Bonjour,
sauf si le logiciel de messagerie a mangé le point devant cells(R,C), il
faut le point devant cells(R,C).
Set Plage = .Range(.Range("A1"), .Cells(R, C))
A+
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en
sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))"
j'ai le message "erreur 2004 : erreur définie par l'application ou
l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me
dire ce que fait cette ligne , je pourrais peut être comprendre le
pourquoi de cette erreur.
Voici le code :
---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String
Dim NomFichierSauvegarde As String
Dim R As Long, C As Integer
'Nom de la feuille à adapter
With ThisWorkbook.Worksheets("F_eleves")
R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
Set Plage = .Range(.Range("A1"), Cells(R, C))
End With
Séparateur = ";" ' celui de ton choix
' Chemin et nom de fichier à adapter
NomFichierSauvegarde = "Denis.csv"
sauf si le logiciel de messagerie a mangé le point devant cells(R,C), il faut le point devant cells(R,C).
Set Plage = .Range(.Range("A1"), .Cells(R, C))
A+
Bonjour,
J'ai le code suivant (donné par michdenis) et je n'arrive pas à m'en sortir !
A la ligne : "Set Plage = .Range(.Range("A1"), Cells(R, C))" j'ai le message "erreur 2004 : erreur définie par l'application ou l'objet" . je connais UN PEU l aprogrammation, mais si quelqu'un peut me dire ce que fait cette ligne , je pourrais peut être comprendre le pourquoi de cette erreur.
Voici le code : ---------------------------------------------
Private Sub CommandButton1_Click()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
'Nom de la feuille à adapter With ThisWorkbook.Worksheets("F_eleves") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
Séparateur = ";" ' celui de ton choix ' Chemin et nom de fichier à adapter NomFichierSauvegarde = "Denis.csv"
