Copier donnés d'un Excel situé dans un réseau
Bonjour,
J’ai créé une macro pour venir copier le contenu dans un dossier dans une unité de stockage. (dans mon cas dans l'unité D:\ ). Le problème vient quand j’essaie de faire travailler la macro dans un réseau intranet puisque je ne sais pas quelle unité de stockage mettre :
Voici mon code :
Sub enjeux()
Dim marche As String
Dim shRecap As Worksheet, wbSource As Workbook, shSource As Worksheet, pl As Range
Application.ScreenUpdating = False
Set shRecap = ActiveWorkbook.Sheets("fournisseurs a enjeux")
shRecap.Range("A1").CurrentRegion.Offset(0).ClearContents
ChDrive "d"
ChDir "D:\excel jose \a utiliser"
marche = Dir("A.xls*")
Do While marche <> ""
Set wbSource = Workbooks.Open(marche)
Set shSource = wbSource.Sheets("Feuil1")
If Not shSource Is Nothing Then '
Set pl = shSource.Range("A1").CurrentRegion '
shRecap.Cells(Rows.Count, 1).End(xlUp).Offset(0).Resize(pl.Rows.Count, pl.Columns.Count).Value = pl.Value
End If
wbSource.Close
Set shSource = Nothing
Set wbSource = Nothing
marche = Dir
Loop
End Sub
ET maintenant le dossier se trouvera dans un réseau avec cette arborescence :
\\atlas.xxx.fr\CO\AAA-BB\Organisation service
Merci d’avance
bonjour
récupérer des données ne se fait pas par VBA, mais par un ETL.
Microsoft en fournit un gratuit avec les Excel récents, toi tu devras le télécharger (oui gratuit ! ), c'est Power Query.
https://www.youtube.com/watch?v=gwW2CDdvUUs
il doit exister depuis 10 ans !
ensuite tu ouvres un fichier Excel et tu vas dans le menu Power Query
et la magie opère
bon travail
Bonjour,
Lorsque je parlais de récuperation des données, je voulais dire simplement de copier le contenu d'un feuil excel dans un autre fichier excel.
Merci d'avance
re
une simple copie, ou une = est une récupération. Modeste certes.
désolé, sans vouloir te vexer, tu ne réponds pas aux questions
Bonjour,
Peut etre je me suis pas bien exprimé.
J'aurai besoin d'une macro qui vient me récuperer les differentes cellules d'un autre feuil d'un fichier excel (pas possible de formule).
Lorsque j'ai mis le chemin precis, donc:
ChDrive "d"
ChDir "D:\excel jose \a utiliser"
marche = Dir("A.xls*")
Cela fonctionne.
Cependant, lorsque j'essai de récuperer les cellules d'un excel placé dans un réseau intranet (voir chemin ci-dessous), je ne sais pas comment le trouver:
\\atlas.xxx.fr\CO\AAA-BB\Organisation service
Merci d'avance
re
bon tu restes sur ta macro, mais je persiste à t'en dissuader.
je ne saurai pas t'aider dans ce domaine
je passe la parole à des VBAistes, je les salue au passage
note : on peut donner un nom de lecteur à un emplacement rééseau il me semble.
poiste
amitiés
Merci jmd pour votre réponse mais la solution proposé ne me sert pas.
Avez-vous des autres idées?
Sinon, peut etre la possibilité de choisir moi meme le dossier, sauriez-vous d'une macro qui deploye une fenetre pour chercher le fichier en question?
Merci d'avance