Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Changement de chemin

T

tokou

XLDnaute Nouveau
Bonjour , j'ai trouvé un code de Jacky67 que je remercie ,( pour extraire le contenu d'un autre fichier dans un même dossier ), je cherche à extraire les contenus dans un autre répertoire .

Je vous remercie pour toutes aide .


VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$2" Then Exit Sub
    If Target = "" Then Exit Sub
    Application.EnableEvents = False: Application.ScreenUpdating = False
    Range("a3:i" & Rows.Count).Clear
    If Dir(ThisWorkbook.Path & "\nom" & Space(1) & [c2] & ".xlsx") <> "" Then
        Workbooks.Open Filename:=ThisWorkbook.Path & "\nom" & Space(1) & [c2] & ".xlsx"
        ActiveWorkbook.Sheets("feuil1").Range("a3:i" & ActiveWorkbook.Sheets("feuil1").Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy ThisWorkbook.Sheets("Planning").Range("a3")
        ActiveWindow.Close
    Else
        MsgBox "nom" & Space(1) & [c2] & vbLf & "Classeur inexistant", vbInformation, "Information"
    End If
    Application.EnableEvents = True
End Sub


j'ai essayé ceci mais j'arrive pas

ThisWorkbook.Path & "S:\dossier1\""nom" & Space(1) & [c2] & ".xlsx"
 
Solution
Bonjour.
Vous y verrez sûrement plus clair en faisant comme ça :
VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim RefFic As String, Wbk As Workbook, Wsh As Worksheet
   If Target.Address <> "$C$2" Then Exit Sub
   If Target = "" Then Exit Sub
   Application.EnableEvents = False: Application.ScreenUpdating = False
'   RefFic = ThisWorkbook.Path & "\nom" & Space(1) & [C2] & ".xlsx"  '  ?
   RefFic = "S:\dossier1\nom " & [C2] & ".xlsx"
   Range("A3:I" & Rows.Count).Clear
   If Dir(RefFic) <> "" Then
      Set Wbk = Workbooks.Open(Filename:=RefFic)
      Set Wsh = Wbk.Sheets("feuil1")
      Wsh.Range("A3:I" & Wsh.Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy Me.Range("A3")
      Wbk.Close
   Else...
Trier par date Trier par votes

ChTi160

XLDnaute Barbatruc
Bonjour tokou
je pense sans avoir testé que cela ne peut fonctionner
ThisWorkbook.Path & "S:\dossier1\""nom" & Space(1) & [c2] & ".xlsx"
Cliquez pour agrandir...

ThisWorkbook.Path étant le chemin du Dossier ouvert .

et tu y ajoutes le chemin vers le Fichier Cible soit un Mix des deux chemins.

Il faudrait un truc du genre.
VB: 
If Dir("S:\dossier1\" & nom & Space(1) & [c2] & ".xlsx") <> "" Then
        Workbooks.Open Filename:="S:\dossier1\" & nom & Space(1) & [c2] & ".xlsx"

si nom est une variable !

Bonne journée
Jean marie
 
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Bonjour.
Vous y verrez sûrement plus clair en faisant comme ça :
VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim RefFic As String, Wbk As Workbook, Wsh As Worksheet
   If Target.Address <> "$C$2" Then Exit Sub
   If Target = "" Then Exit Sub
   Application.EnableEvents = False: Application.ScreenUpdating = False
'   RefFic = ThisWorkbook.Path & "\nom" & Space(1) & [C2] & ".xlsx"  '  ?
   RefFic = "S:\dossier1\nom " & [C2] & ".xlsx"
   Range("A3:I" & Rows.Count).Clear
   If Dir(RefFic) <> "" Then
      Set Wbk = Workbooks.Open(Filename:=RefFic)
      Set Wsh = Wbk.Sheets("feuil1")
      Wsh.Range("A3:I" & Wsh.Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy Me.Range("A3")
      Wbk.Close
   Else
      MsgBox "Casseur introuvable :" & vbLf & RefFic, vbInformation, "Information"
      End If
   Application.EnableEvents = True
   End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
T

tokou

XLDnaute Nouveau
Ma variable SEM il prend ça comme une erreur , je comprends pas

VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$2" Then Exit Sub
    If Target = "" Then Exit Sub
    Application.EnableEvents = False: Application.ScreenUpdating = False
    Range("a3:i" & Rows.Count).Clear
    If Dir("S:\02 Planning\" & SEM & Space(1) & [c2] & ".xlsx") <> "" Then
        Workbooks.Open Filename:="S:\02 Planning\" & SEM & Space(1) & [c2] & ".xlsx"
        ActiveWorkbook.Sheets("feuil1").Range("a3:i" & ActiveWorkbook.Sheets("feuil1").Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy ThisWorkbook.Sheets("Planning").Range("a3")
        ActiveWindow.Close
    Else
        MsgBox "SEM" & Space(1) & [c2] & vbLf & "Classeur inexistant", vbInformation, "Information"
    End If
    Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Elle n'est ni déclarée ni initialisée.
Non vraiment utilisez une variable NomFic: outre que ça ne vous obligera plus à écrire 3 fois la même expression, et même parfois, à tort, différemment, ça vous garantira que vous servez bien partout la même chose, aussi bien au Dir et à l'Open qu'au MsgBox. De plus si elle devait changer vous n'auriez à la modifier qu'à un seul endroit.
VB: 
RéfFic = "S:\02 Planning\SEM " & [C2] & ".xlsx"
 
Dernière édition:
Vote positif 0 Vote négatif
T

tokou

XLDnaute Nouveau
le truc c'est que dans le code de base je ne vois pas de variable déclaré ( c'est un dossier SEM 1 , SEM 2 ect...) il ouvre direct


VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$2" Then Exit Sub
    If Target = "" Then Exit Sub
    Application.EnableEvents = False: Application.ScreenUpdating = False
    Range("a3:i" & Rows.Count).Clear
    If Dir(ThisWorkbook.Path & "\SEM" & Space(1) & [c2] & ".xlsx") <> "" Then
        Workbooks.Open Filename:=ThisWorkbook.Path & "\SEM" & Space(1) & [c2] & ".xlsx"
        ActiveWorkbook.Sheets("feuil1").Range("a3:i" & ActiveWorkbook.Sheets("feuil1").Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy ThisWorkbook.Sheets("Planning").Range("a3")
        ActiveWindow.Close
    Else
        MsgBox "SEM" & Space(1) & [c2] & vbLf & "Classeur inexistant", vbInformation, "Information"
    End If
    Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Faut savoir: vous reprenez ThisWorkbook.Path. Ce classeur est-il bien sur ce fameux "S:\02 Planning" dont vous avez parlé plus haut et qui est d'ailleurs différent de ce que vous avez cité fin du poste #1 ?
Avez vous vu mon conseil ?
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Résolu(e)
Microsoft 365 VBA pour ouvrir chemin répertoire spécifique
Réponses
3
Affichages
419
Anto35200
A
I
  • Résolu(e)
Microsoft 365 Ouvrir le dossier téléchargement avec Macro
Réponses
3
Affichages
471
patricktoulon
F
  • Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
301
firecarl
F
A
  • Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
280
sylvanu
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
158
sebastien176
S
M
  • Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
349
Gégé-45550
  • Question
Microsoft 365 [VBA] Listes déroulantes à choix multiples sur N colonnes discontinues
Réponses
4
Affichages
555
ralph45
S
  • Question
Microsoft 365 Enregistrer les images dans un dossier
Réponses
2
Affichages
264
Simon 1234
S
N
  • Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
270
netparty
N
C
  • Question
XL 2021 Dernière ligne d'un fichier fermé
Réponses
7
Affichages
519
Chris 33
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…