Problème MACRO

Question

Bonjour à tous,

Dans le cadre de mon travail, je souhaite faire une macro dont l'objectif est d'ouvrir un fichier (avec boite de dialogue pour choisir le fichier), de selctionner un onglet et de copier les valeurs dans le fichier cible.

Cependant, je rencontre un probleme lors de la selection de l'onglet, et du copiage des données qui sont dedans.
En synthèse, j'aimerais:
1- Ouverture d'un fichier avec selection via une boite de dialogue ==> ok
2- Dans le fichier, selection d'un onglet particulier et copier les données==> bug à ce niveau la: Set Sel = Sheets("staff list").Select
3- Collage de ces valeurs dans un autre document excel, qui est aussi le fichier d'ouverture de la macro.

Pouvez vous m'aider?
Ci joint, la macro en question,

Merci :-)

Sub OuvertureFichier()
'
' OuvertureFichier Macro
'

'
  Dim sNomFich As String
  Dim Sel As Range
  Dim Dest As Range
  Dim Sel2 As Range
    
  'Déclarer la boite de dialogue
  Dim OD As FileDialog
  'Demander une boite de dialogue à Windows
  Set OD = Application.FileDialog(msoFileDialogFilePicker)
  'initialiser la boite de dialogue
  OD.Filters.Clear 'vider les filtres par défaut

  'Lancer la boite de dialogue
    
  If OD.Show = -1 Then
   
    sNomFich = OD.SelectedItems(1) 'fichier choisi par l'utilisateur
    
    Workbooks.OpenText Filename:=sNomFich, _
      Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
      xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
      Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
      Array(2, 2), Array(3, 4), Array(4, 1), Array(5, 1), Array(6, 2), Array(7, 2), Array(8, 2), _
      Array(9, 1), Array(10, 2)), TrailingMinusNumbers:=True
      
      Set Sel = Sheets("staff list").Select
      Set Sel2 = Range(Range("A1"), Range("A1").End(xlDown).End(xlToRight))
      Sel.Copy
      Set Dest = Windows("Matrice de passage.xlsm").Activate.Sheets("Import").Range("A1").End(xlDown).Offset(1, 0)
      Dest.PasteSpecial Paste:=xlPasteAll
    Else
        MsgBox ("Vous n'avez pas choisi de fichier à importer")
    End If
End Sub

jordane45 · Answer

Bonjour,

- Lorsque l'on colle des lignes de codes sur le forum... On utilise les BALISES DE CODE
Exemple:

Dim MaVariable as String
MaVariable="Ceci est du code"


- Tu nous indiques avoir un souci lors de la selection de l'onglet.
Bien que ton code soit assez facilement compréhensible, merci d'indiquer à quelle ligne de ton code tu rencontre le souci.
Bien sur, tu as déjà essayé de lancer cette macro en mode pas à pas et vérifié le bon déroulement de celle-ci ( les variables correspondent à ce que tu souhaites, les classeurs s'affichent correctement...).


En attendant, tu as déjà un souci sur ta variable :
Dim Sel As Range
'...
'-->> Tu as un message d'erreur sur cette ligne....
Set Sel = Sheets("staff list").Select 

Tu déclares Sel en tant que RANGE... et tu lui assigne une FEUILLE ?
Ca ne peut pas fonctionner.

VincentIAPADRE · Answer

Bonjour,

C'est la premiere fois que je poste une question sur ce forum, excusez moi de mon manque de références.

Je rencontre un Probleme a ce niveau la:

Set Sel = Sheets("staff list").Select 

En effet, la macro ouvre bien le fichier excel, mais n'arrive pas à me selectionner l'onglet intitulé "Staff list", ni a me copier les valeurs qui sont dedans.

Je démarre dans la VBA, d'ou, saans doute, mon manque sur certaines notions élémentaires. J'ai essayer de remplacer range par Variant, et ca ne fonctionne pas.

J'avait pour idée d'utiliser les variantes:
SnomFIch pour la selection du fichier
Sel pour le choix de l'onglet dans le fichier
Sel2 pour lui dire de copier les valeurs de toute la feuille
Dest pour coller le fichier dans la feuille de destination.

En vous remerciant,

jordane45 · Answer

Range correspond à une plage de cellules
Pour un onglet il faut utiliser sheet

pijaku · Answer

Bonjour,

Faisons simple.
Tu veux sélectionner une feuille : 
Set Sel = Sheets("staff list").Select 
Or tu déclares ta variable Sel comme Range :
Dim Sel As Range 
Commences donc déjà par déclarer correctement tes variables, par exemple :
Dim StrNomFich As String
Dim WshToCopy As Worksheet
Dim RngDest As Range, RngToCopy As Range 

Ensuite, tu pourras, au choix :
- sélectionner ta feuille :
Set WshToCopy = Sheets("staff list")
WshToCopy.Select
- l'utiliser dans un bloc With...EndWith (solution préférable)
Set WshToCopy = Sheets("staff list")
With WshToCopy
    'Le code de copie de ton Range
    'exemple :
    Set RngToCopy = .Range(.Range("A1"), .Range("A1").End(xlDown).End(xlToRight))
    RngToCopy.Copy 
End With

Note : ne pas oublier les points devant les objets se référençant à l'objet placé dans le bloc With.

Problème MACRO

4 réponses

Votre réponse

Discussions similaires