Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> "" Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " & nomFichier
& Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo + vbQuestion,
"validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai essayé
plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> "" Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " & nomFichier
& Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo + vbQuestion,
"validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai essayé
plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> "" Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " & nomFichier
& Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo + vbQuestion,
"validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai essayé
plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce
"morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille
à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory)
<> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été
sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le
fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo
+
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active,
j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce
"morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille
à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory)
<> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été
sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le
fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo
+
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active,
j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce
"morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille
à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory)
<> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été
sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le
fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo
+
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active,
j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour.
C'est le problème des boutons de commande. La feuille par défaut n'est pas la
feuille active, mais la feuille du bouton.
"cells.copy" fait référence à la feuille du bouton, même si ce n'est pas la
feuille active. Mets :
with activesheet
.Cells.Copy
Cordialement.
Daniel
"j-pascal" a écrit dans le message de news:Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> "" Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " & nomFichier
& Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo + vbQuestion,
"validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai essayé
plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour.
C'est le problème des boutons de commande. La feuille par défaut n'est pas la
feuille active, mais la feuille du bouton.
"cells.copy" fait référence à la feuille du bouton, même si ce n'est pas la
feuille active. Mets :
with activesheet
.Cells.Copy
Cordialement.
Daniel
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.1c9c7d89fabdad18.81386@venir.com...
Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> "" Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " & nomFichier
& Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo + vbQuestion,
"validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai essayé
plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour.
C'est le problème des boutons de commande. La feuille par défaut n'est pas la
feuille active, mais la feuille du bouton.
"cells.copy" fait référence à la feuille du bouton, même si ce n'est pas la
feuille active. Mets :
with activesheet
.Cells.Copy
Cordialement.
Daniel
"j-pascal" a écrit dans le message de news:Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> "" Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " & nomFichier
& Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo + vbQuestion,
"validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai essayé
plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
j-pascal a écrit le 03/09/2008 à 19h40 :Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce
"morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille
à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory)
<> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été
sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le
fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo
+
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active,
j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour j-pascal,
Je pense que la solution est d'activer le nouveau classeur créé (workbook) à
l'aide de l'une des instructions suivantes au choix :
Workbooks(Workbooks.Count).Activate 'Active le dernier classeur de la
collection avec l'index
ou bien
Workbooks(Nomfichier).Activate 'Active le classeur avec le nom
Bonne programmation ;)
j-pascal a écrit le 03/09/2008 à 19h40 :
Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce
"morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille
à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory)
<> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été
sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le
fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo
+
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active,
j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour j-pascal,
Je pense que la solution est d'activer le nouveau classeur créé (workbook) à
l'aide de l'une des instructions suivantes au choix :
Workbooks(Workbooks.Count).Activate 'Active le dernier classeur de la
collection avec l'index
ou bien
Workbooks(Nomfichier).Activate 'Active le classeur avec le nom
Bonne programmation ;)
j-pascal a écrit le 03/09/2008 à 19h40 :Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce
"morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille
à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory)
<> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été
sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le
fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo
+
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active,
j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Bonjour j-pascal,
Je pense que la solution est d'activer le nouveau classeur créé (workbook) à
l'aide de l'une des instructions suivantes au choix :
Workbooks(Workbooks.Count).Activate 'Active le dernier classeur de la
collection avec l'index
ou bien
Workbooks(Nomfichier).Activate 'Active le classeur avec le nom
Bonne programmation ;)
Bon,jour,
Je ne connais pas la réponse, mais dans un autre régistre, après lecture
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
Ben NON, il peut y avoir une autre erreur, donc:
select case err
case 0
case Ton erreur: exit sub
case else: ' traitement autre erreur que la tienne et 0
end select
-------------------
Dim NbItems As Integer
Sauf si conforme à une entête prédéfinie : processeur = 32 ou 64 bits = LONG
dim ... as LONG
-------------------
If réponse = vbNo Then
Exit Sub
End If
Peut faire :
If réponse = vbNo Then Exit Sub
Cordialement :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"j-pascal" a écrit dans le message de news:Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo +
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Ben NON, il peut y avoir une autre erreur, donc:
Dim NbItems As Integer
Sauf si conforme à une entête prédéfinie : processeur = 32 ou 64 bits = LONG
dim ... as LONG
If réponse = vbNo Then
Exit Sub
End If
Peut faire : If réponse = vbNo Then Exit Sub
Bon,jour,
Je ne connais pas la réponse, mais dans un autre régistre, après lecture
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
Ben NON, il peut y avoir une autre erreur, donc:
select case err
case 0
case Ton erreur: exit sub
case else: ' traitement autre erreur que la tienne et 0
end select
-------------------
Dim NbItems As Integer
Sauf si conforme à une entête prédéfinie : processeur = 32 ou 64 bits = LONG
dim ... as LONG
-------------------
If réponse = vbNo Then
Exit Sub
End If
Peut faire :
If réponse = vbNo Then Exit Sub
Cordialement :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.1c9c7d89fabdad18.81386@venir.com...
Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo +
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Ben NON, il peut y avoir une autre erreur, donc:
Dim NbItems As Integer
Sauf si conforme à une entête prédéfinie : processeur = 32 ou 64 bits = LONG
dim ... as LONG
If réponse = vbNo Then
Exit Sub
End If
Peut faire : If réponse = vbNo Then Exit Sub
Bon,jour,
Je ne connais pas la réponse, mais dans un autre régistre, après lecture
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
Ben NON, il peut y avoir une autre erreur, donc:
select case err
case 0
case Ton erreur: exit sub
case else: ' traitement autre erreur que la tienne et 0
end select
-------------------
Dim NbItems As Integer
Sauf si conforme à une entête prédéfinie : processeur = 32 ou 64 bits = LONG
dim ... as LONG
-------------------
If réponse = vbNo Then
Exit Sub
End If
Peut faire :
If réponse = vbNo Then Exit Sub
Cordialement :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"j-pascal" a écrit dans le message de news:Bonjour,
Pour une raison que j'ignore, je n'arrive pas à agir sur une feuille de
calcul ... Le problème se situe à la fin de ce "morceau" de code ; mes
remarques sont entre crochets [ ]. Je précise que le code est dans un
module de feuille et qu'il est lancé depuis cette même feuille à partir
d'un bouton de boite à outils de contrôle.
Merci d'avance pour vos lumières.
'------------------------------
Private Sub MAJ_Click()
Dim LeNom As String
Dim typeFichier As String
Dim Titre As String
Dim nomFichier As Variant 'String = non
Dim réponse As String
Dim NbItems As Integer
Dim NouvelExport As String
DoEvents
Application.ScreenUpdating = False
LeNom = ActiveWorkbook.Name 'prévient les modifs
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "sélectionnez le fichier à importer"
ChDrive "C"
On Error Resume Next
If Dir("C:Documents and SettingstotoBureau", vbDirectory) <> ""
Then
ChDir "C:Documents and SettingstotoBureau"
Else
ChDir "C:Documents and Settings"
End If
If Err <> 0 Then
Err = 0
MsgBox "Aucun des répertoires n'existe !"
Exit Sub
End If
nomFichier = Application.GetOpenFilename(typeFichier, , Titre)
typeFichier = "Fichiers, *.csv; *.xls"
Titre = "Sélectionnez le fichier à importer"
If nomFichier = False Then
MsgBox "Aucun fichier n'a été sélectionné."
Exit Sub
Else
nomFichier = Dir(nomFichier)
réponse = MsgBox("Vous avez sélectionné le fichier : " &
nomFichier & Chr(10) _
& Chr(10) & "Confirmez-vous ce choix ?", vbYesNo +
vbQuestion, "validation en cours")
If réponse = vbNo Then
Exit Sub
End If
End If
If Right(nomFichier, 3) = "xls" Then
Workbooks.Open nomFichier
Else
Workbooks.OpenText nomFichier, Tab:=True, semicolon:=True,
local:=True
End If
'[la ligne suivante ne fonctionne pas]
Cells.Copy
'[pour vérifier que cette nouvelle feuille était bien active, j'ai
essayé plusieurs trucs comme : ]
'TheName = ActiveSheet.Name
'MsgBox TheName
'[ce qui me renvoit bien le nom de l'onglet !]
'[J'ai essayé : ]
'ActiveWorkbook.Sheets("TheName").Range("B3").Select
'[ ... mais seule la cellule A1 reste sélectionnée ! ]
'[J'ai essayé : ]
'Sheets("TheName").Cells.Copy
'[... en vain !]
'[J'ai enfin essayé : ]
'Application.EnableEvents = True
'Do Events
End Sub
'------------------------------
Ben NON, il peut y avoir une autre erreur, donc:
Dim NbItems As Integer
Sauf si conforme à une entête prédéfinie : processeur = 32 ou 64 bits = LONG
dim ... as LONG
If réponse = vbNo Then
Exit Sub
End If
Peut faire : If réponse = vbNo Then Exit Sub