Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel mettre un chemin d'accès en variable

mettre un chemin d'accès en variable

7 réponses
Avatar
YANN24
Bonjour,
je voudrais savoir comment mettre un chemin d'accès en variable.

Voici ma macro :
je vousdrais mettre le chemin d'accès en variable (c'est à dire le saisir
une fois au début du code, et c'est tout).
Est-ce possible?
Merci. YANN

-----------------
Sub ALEXANDRE()
On Error Resume Next
Windows("Fiche-ALEXANDRE").Activate
If Err.Number <> 0 Then
Err.Clear
MsgBox "fichier non ouvert"
Workbooks.Open Filename:="Q:\Commun\Fiches de
temps\Fiche-ALEXANDRE.xls"
End If

Dim Rg As Range
Application.ScreenUpdating = False
'Classeur Source
Set Rg = Workbooks("Fiche-W.xls").Worksheets(6).Range("A2:E65536")
Rg.Copy
'Classeur destination
With Workbooks("Fiche-ALEXANDRE.xls").Worksheets(1)
.Activate
.Range("A1").Activate
.Paste
.Range("A1").Select
End With
Rg.Parent.Activate
Application.CutCopyMode = False
Set Rg = Nothing
End Sub
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Daniel
Bonjour.
NomChemin = "e:donneesdanielmpfe"
Cordialement.
Daniel

"YANN24" a écrit dans le message de news:

Bonjour,
je voudrais savoir comment mettre un chemin d'accès en variable.

Voici ma macro :
je vousdrais mettre le chemin d'accès en variable (c'est à dire le saisir
une fois au début du code, et c'est tout).
Est-ce possible?
Merci. YANN

-----------------
Sub ALEXANDRE()
On Error Resume Next
Windows("Fiche-ALEXANDRE").Activate
If Err.Number <> 0 Then
Err.Clear
MsgBox "fichier non ouvert"
Workbooks.Open Filename:="Q:CommunFiches de
tempsFiche-ALEXANDRE.xls"
End If

Dim Rg As Range
Application.ScreenUpdating = False
'Classeur Source
Set Rg = Workbooks("Fiche-W.xls").Worksheets(6).Range("A2:E65536")
Rg.Copy
'Classeur destination
With Workbooks("Fiche-ALEXANDRE.xls").Worksheets(1)
.Activate
.Range("A1").Activate
.Paste
.Range("A1").Select
End With
Rg.Parent.Activate
Application.CutCopyMode = False
Set Rg = Nothing
End Sub


Avatar
YANN24
Re,
merci.
Mais je voudrais savoir comment rappeler ce nom lorsque j'en ai besoin.
Comment dois-je modifier ma macro?
Merci.
YANN


Bonjour.
NomChemin = "e:donneesdanielmpfe"
Cordialement.
Daniel

"YANN24" a écrit dans le message de news:

Bonjour,
je voudrais savoir comment mettre un chemin d'accès en variable.

Voici ma macro :
je vousdrais mettre le chemin d'accès en variable (c'est à dire le saisir
une fois au début du code, et c'est tout).
Est-ce possible?
Merci. YANN

-----------------
Sub ALEXANDRE()
On Error Resume Next
Windows("Fiche-ALEXANDRE").Activate
If Err.Number <> 0 Then
Err.Clear
MsgBox "fichier non ouvert"
Workbooks.Open Filename:="Q:CommunFiches de
tempsFiche-ALEXANDRE.xls"
End If

Dim Rg As Range
Application.ScreenUpdating = False
'Classeur Source
Set Rg = Workbooks("Fiche-W.xls").Worksheets(6).Range("A2:E65536")
Rg.Copy
'Classeur destination
With Workbooks("Fiche-ALEXANDRE.xls").Worksheets(1)
.Activate
.Range("A1").Activate
.Paste
.Range("A1").Select
End With
Rg.Parent.Activate
Application.CutCopyMode = False
Set Rg = Nothing
End Sub







Avatar
Clément Marcotte
Bonjour,

sub
NomChemin = "Q:CommunFiches de tempsFiche-ALEXANDRE.xls"
etc.
Workbooks.Open Filename:= NomChemin
etc.
End sub

--
On n' apprend pas à un vieux singe à faire des grimaces
"YANN24" a écrit dans le message de
news:
Re,
merci.
Mais je voudrais savoir comment rappeler ce nom lorsque j'en ai
besoin.

Comment dois-je modifier ma macro?
Merci.
YANN


Bonjour.
NomChemin = "e:donneesdanielmpfe"
Cordialement.
Daniel

"YANN24" a écrit dans le
message de news:



Bonjour,
je voudrais savoir comment mettre un chemin d'accès en variable.

Voici ma macro :
je vousdrais mettre le chemin d'accès en variable (c'est à dire
le saisir



une fois au début du code, et c'est tout).
Est-ce possible?
Merci. YANN

-----------------
Sub ALEXANDRE()
On Error Resume Next
Windows("Fiche-ALEXANDRE").Activate
If Err.Number <> 0 Then
Err.Clear
MsgBox "fichier non ouvert"
End If




Dim Rg As Range
Application.ScreenUpdating = False
'Classeur Source
Set Rg Workbooks("Fiche-W.xls").Worksheets(6).Range("A2:E65536")
Rg.Copy
'Classeur destination
With Workbooks("Fiche-ALEXANDRE.xls").Worksheets(1)
.Activate
.Range("A1").Activate
.Paste
.Range("A1").Select
End With
Rg.Parent.Activate
Application.CutCopyMode = False
Set Rg = Nothing
End Sub












Avatar
YANN24
Re,
d'accord. Mais, je en fait, je voudrais un truc un peu différent :
j'ai une vingtaine de fichiers liés au fichier sur lequel je travaille. Et
j'ai dans le même module, une vingtaine de macro qui correspondent à ce
fichier.
Je voudrais mettre en haut le chemin d'accès genre "Q:CommunFiches de
temps", et après quand je rapelle mon fichier dans ma macro, j'ai un truc du
genre :
Workbooks.Open Filename:= NomCheminFiche-ALEXANDRE.xls

Est-ce possible?
Merci d'avance.
YANN
Avatar
Daniel
Bonjour.
Déclare NomChemin comme variable globale. :
Public NomChemin As String
Cordialement.
Daniel
"YANN24" a écrit dans le message de news:

Re,
d'accord. Mais, je en fait, je voudrais un truc un peu différent :
j'ai une vingtaine de fichiers liés au fichier sur lequel je travaille. Et
j'ai dans le même module, une vingtaine de macro qui correspondent à ce
fichier.
Je voudrais mettre en haut le chemin d'accès genre "Q:CommunFiches de
temps", et après quand je rapelle mon fichier dans ma macro, j'ai un truc
du
genre :
Workbooks.Open Filename:= NomCheminFiche-ALEXANDRE.xls

Est-ce possible?
Merci d'avance.
YANN


Avatar
YANN24
'Re,
'd'accord, donc si j'ai bien compris, avant toutes mes macros, je met :

Public NomChemin As String
NomChemin = 'Q:CommunFiches de temps
'puis
------------------------
Sub ALEXANDRE()
On Error Resume Next
Windows("Fiche-ALEXANDRE").Activate
If Err.Number <> 0 Then
Err.Clear
MsgBox "fichier non ouvert"
Workbooks.Open Filename:="NomCheminFiche-ALEXANDRE.xls"
End If
Dim Rg As Range
Application.ScreenUpdating = False
'Classeur Source
Set Rg = Workbooks("Fiche-W.xls").Worksheets(6).Range("A2:E65536")
Rg.Copy
'Classeur destination
With Workbooks("Fiche-ALEXANDRE.xls").Worksheets(1)
.Activate
.Range("A1").Activate
.Paste
.Range("A1").Select
End With
Rg.Parent.Activate
Application.CutCopyMode = False
Set Rg = Nothing
End Sub
-------------------------------
C'est ça ??
Merci.
YANN


Bonjour.
Déclare NomChemin comme variable globale. :
Public NomChemin As String
Cordialement.
Daniel
"YANN24" a écrit dans le message de news:

Re,
d'accord. Mais, je en fait, je voudrais un truc un peu différent :
j'ai une vingtaine de fichiers liés au fichier sur lequel je travaille. Et
j'ai dans le même module, une vingtaine de macro qui correspondent à ce
fichier.
Je voudrais mettre en haut le chemin d'accès genre "Q:CommunFiches de
temps", et après quand je rapelle mon fichier dans ma macro, j'ai un truc
du
genre :
Workbooks.Open Filename:= NomCheminFiche-ALEXANDRE.xls

Est-ce possible?
Merci d'avance.
YANN







Avatar
Daniel
Non, tu déclares la variable une seule fois dans un module et tu la
renseignes dans une macro à exécuter avant toutes les autres (à l'ouverture
du classeur par exemple).
Cordialement.
Daniel
"YANN24" a écrit dans le message de news:

'Re,
'd'accord, donc si j'ai bien compris, avant toutes mes macros, je met :

Public NomChemin As String
NomChemin = 'Q:CommunFiches de temps
'puis
------------------------
Sub ALEXANDRE()
On Error Resume Next
Windows("Fiche-ALEXANDRE").Activate
If Err.Number <> 0 Then
Err.Clear
MsgBox "fichier non ouvert"
Workbooks.Open Filename:="NomCheminFiche-ALEXANDRE.xls"
End If
Dim Rg As Range
Application.ScreenUpdating = False
'Classeur Source
Set Rg = Workbooks("Fiche-W.xls").Worksheets(6).Range("A2:E65536")
Rg.Copy
'Classeur destination
With Workbooks("Fiche-ALEXANDRE.xls").Worksheets(1)
.Activate
.Range("A1").Activate
.Paste
.Range("A1").Select
End With
Rg.Parent.Activate
Application.CutCopyMode = False
Set Rg = Nothing
End Sub
-------------------------------
C'est ça ??
Merci.
YANN


Bonjour.
Déclare NomChemin comme variable globale. :
Public NomChemin As String
Cordialement.
Daniel
"YANN24" a écrit dans le message de
news:

Re,
d'accord. Mais, je en fait, je voudrais un truc un peu différent :
j'ai une vingtaine de fichiers liés au fichier sur lequel je travaille.
Et
j'ai dans le même module, une vingtaine de macro qui correspondent à ce
fichier.
Je voudrais mettre en haut le chemin d'accès genre "Q:CommunFiches de
temps", et après quand je rapelle mon fichier dans ma macro, j'ai un
truc
du
genre :
Workbooks.Open Filename:= NomCheminFiche-ALEXANDRE.xls

Est-ce possible?
Merci d'avance.
YANN