Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui
se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le
fichier pdf directement dans le dossier en question mais à prioris ce n'est
pas possible...
Ci dessous la macro de création du fichier pdf :
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le fichier pdf directement dans le dossier en question mais à prioris ce n'est pas possible... Ci dessous la macro de création du fichier pdf :
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui
se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le
fichier pdf directement dans le dossier en question mais à prioris ce n'est
pas possible...
Ci dessous la macro de création du fichier pdf :
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le fichier pdf directement dans le dossier en question mais à prioris ce n'est pas possible... Ci dessous la macro de création du fichier pdf :
Sub Attente() SendKeys ("{ENTER}"), [ True] Application.OnTime Now + TimeValue("00:00:03"), "AttenteBis"
End Sub Sub AttenteBis() SendKeys ("{ENTER}"), [ True] End Sub
Merci à ceux qui vont se pencher sur ma question...
--Cyril--
MichDenis
Un exemple de macro :
Attention, si le nom du fichier existe déjà dans le répertoire de destination, il sera supprimé pour faire place au nouveau classeur issu du bureau. Cela se fera sans avertissement.
'----------------------------------- Sub test()
Dim Chemin As String, Fichier As String Dim NouveauChemin As String On Error Resume Next 'Le chemin du bureau sous windows xp pro est : 'Denis est le répertoire de l'usager Chemin = "C:Documents and SettingsDenisBureau" 'on pourrait l'écrire si l'environnement change Chemin = "C:Documents and Settings" & Environ("Username") & "Bureau"
NouveauChemin = "c:AAA" Fichier = "classeur1.xls"
'Teste pour savoir si le fichier existe dans le répertoire défini. If Dir(Chemin & Fichier) <> "" Then 'Supprime le fichier s'il existe déjà dans l'ancien répertoire Kill NouveauChemin & Fichier 'Copie le fichier du bureau vers sa destinatioin finale Name Chemin & Fichier As NouveauChemin & Fichier 'Supprime le fichier sur le bureau Kill Chemin & Fichier Else MsgBox "Chemin ou fichier incorrecte." End If End Sub '-----------------------------------
"Cyril DUPONT" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le fichier pdf directement dans le dossier en question mais à prioris ce n'est pas possible... Ci dessous la macro de création du fichier pdf :
Sub Attente() SendKeys ("{ENTER}"), [ True] Application.OnTime Now + TimeValue("00:00:03"), "AttenteBis"
End Sub Sub AttenteBis() SendKeys ("{ENTER}"), [ True] End Sub
Merci à ceux qui vont se pencher sur ma question...
--Cyril--
Un exemple de macro :
Attention, si le nom du fichier existe déjà dans
le répertoire de destination, il sera supprimé
pour faire place au nouveau classeur issu du bureau.
Cela se fera sans avertissement.
'-----------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Dim NouveauChemin As String
On Error Resume Next
'Le chemin du bureau sous windows xp pro est :
'Denis est le répertoire de l'usager
Chemin = "C:Documents and SettingsDenisBureau"
'on pourrait l'écrire si l'environnement change
Chemin = "C:Documents and Settings" & Environ("Username") & "Bureau"
NouveauChemin = "c:AAA"
Fichier = "classeur1.xls"
'Teste pour savoir si le fichier existe dans le répertoire défini.
If Dir(Chemin & Fichier) <> "" Then
'Supprime le fichier s'il existe déjà dans l'ancien répertoire
Kill NouveauChemin & Fichier
'Copie le fichier du bureau vers sa destinatioin finale
Name Chemin & Fichier As NouveauChemin & Fichier
'Supprime le fichier sur le bureau
Kill Chemin & Fichier
Else
MsgBox "Chemin ou fichier incorrecte."
End If
End Sub
'-----------------------------------
"Cyril DUPONT" <CyrilDUPONT@discussions.microsoft.com> a écrit dans le message de news:
BC5082EC-0A34-474E-9E00-9939580A59B5@microsoft.com...
Bonjour,
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui
se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le
fichier pdf directement dans le dossier en question mais à prioris ce n'est
pas possible...
Ci dessous la macro de création du fichier pdf :
Attention, si le nom du fichier existe déjà dans le répertoire de destination, il sera supprimé pour faire place au nouveau classeur issu du bureau. Cela se fera sans avertissement.
'----------------------------------- Sub test()
Dim Chemin As String, Fichier As String Dim NouveauChemin As String On Error Resume Next 'Le chemin du bureau sous windows xp pro est : 'Denis est le répertoire de l'usager Chemin = "C:Documents and SettingsDenisBureau" 'on pourrait l'écrire si l'environnement change Chemin = "C:Documents and Settings" & Environ("Username") & "Bureau"
NouveauChemin = "c:AAA" Fichier = "classeur1.xls"
'Teste pour savoir si le fichier existe dans le répertoire défini. If Dir(Chemin & Fichier) <> "" Then 'Supprime le fichier s'il existe déjà dans l'ancien répertoire Kill NouveauChemin & Fichier 'Copie le fichier du bureau vers sa destinatioin finale Name Chemin & Fichier As NouveauChemin & Fichier 'Supprime le fichier sur le bureau Kill Chemin & Fichier Else MsgBox "Chemin ou fichier incorrecte." End If End Sub '-----------------------------------
"Cyril DUPONT" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le fichier pdf directement dans le dossier en question mais à prioris ce n'est pas possible... Ci dessous la macro de création du fichier pdf :
Sub Attente() SendKeys ("{ENTER}"), [ True] Application.OnTime Now + TimeValue("00:00:03"), "AttenteBis"
End Sub Sub AttenteBis() SendKeys ("{ENTER}"), [ True] End Sub
Merci à ceux qui vont se pencher sur ma question...
--Cyril--
Cyril DUPONT
Salut MichDenis,
C'est exactement ce que je souhaitais ça marche super bien je te remercie beaucoup !!!
--Cyril--
Un exemple de macro :
Attention, si le nom du fichier existe déjà dans le répertoire de destination, il sera supprimé pour faire place au nouveau classeur issu du bureau. Cela se fera sans avertissement.
'----------------------------------- Sub test()
Dim Chemin As String, Fichier As String Dim NouveauChemin As String On Error Resume Next 'Le chemin du bureau sous windows xp pro est : 'Denis est le répertoire de l'usager Chemin = "C:Documents and SettingsDenisBureau" 'on pourrait l'écrire si l'environnement change Chemin = "C:Documents and Settings" & Environ("Username") & "Bureau"
NouveauChemin = "c:AAA" Fichier = "classeur1.xls"
'Teste pour savoir si le fichier existe dans le répertoire défini. If Dir(Chemin & Fichier) <> "" Then 'Supprime le fichier s'il existe déjà dans l'ancien répertoire Kill NouveauChemin & Fichier 'Copie le fichier du bureau vers sa destinatioin finale Name Chemin & Fichier As NouveauChemin & Fichier 'Supprime le fichier sur le bureau Kill Chemin & Fichier Else MsgBox "Chemin ou fichier incorrecte." End If End Sub '-----------------------------------
"Cyril DUPONT" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le fichier pdf directement dans le dossier en question mais à prioris ce n'est pas possible... Ci dessous la macro de création du fichier pdf :
Sub Attente() SendKeys ("{ENTER}"), [ True] Application.OnTime Now + TimeValue("00:00:03"), "AttenteBis"
End Sub Sub AttenteBis() SendKeys ("{ENTER}"), [ True] End Sub
Merci à ceux qui vont se pencher sur ma question...
--Cyril--
Salut MichDenis,
C'est exactement ce que je souhaitais ça marche super bien je te remercie
beaucoup !!!
--Cyril--
Un exemple de macro :
Attention, si le nom du fichier existe déjà dans
le répertoire de destination, il sera supprimé
pour faire place au nouveau classeur issu du bureau.
Cela se fera sans avertissement.
'-----------------------------------
Sub test()
Dim Chemin As String, Fichier As String
Dim NouveauChemin As String
On Error Resume Next
'Le chemin du bureau sous windows xp pro est :
'Denis est le répertoire de l'usager
Chemin = "C:Documents and SettingsDenisBureau"
'on pourrait l'écrire si l'environnement change
Chemin = "C:Documents and Settings" & Environ("Username") & "Bureau"
NouveauChemin = "c:AAA"
Fichier = "classeur1.xls"
'Teste pour savoir si le fichier existe dans le répertoire défini.
If Dir(Chemin & Fichier) <> "" Then
'Supprime le fichier s'il existe déjà dans l'ancien répertoire
Kill NouveauChemin & Fichier
'Copie le fichier du bureau vers sa destinatioin finale
Name Chemin & Fichier As NouveauChemin & Fichier
'Supprime le fichier sur le bureau
Kill Chemin & Fichier
Else
MsgBox "Chemin ou fichier incorrecte."
End If
End Sub
'-----------------------------------
"Cyril DUPONT" <CyrilDUPONT@discussions.microsoft.com> a écrit dans le message de news:
BC5082EC-0A34-474E-9E00-9939580A59B5@microsoft.com...
Bonjour,
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui
se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le
fichier pdf directement dans le dossier en question mais à prioris ce n'est
pas possible...
Ci dessous la macro de création du fichier pdf :
C'est exactement ce que je souhaitais ça marche super bien je te remercie beaucoup !!!
--Cyril--
Un exemple de macro :
Attention, si le nom du fichier existe déjà dans le répertoire de destination, il sera supprimé pour faire place au nouveau classeur issu du bureau. Cela se fera sans avertissement.
'----------------------------------- Sub test()
Dim Chemin As String, Fichier As String Dim NouveauChemin As String On Error Resume Next 'Le chemin du bureau sous windows xp pro est : 'Denis est le répertoire de l'usager Chemin = "C:Documents and SettingsDenisBureau" 'on pourrait l'écrire si l'environnement change Chemin = "C:Documents and Settings" & Environ("Username") & "Bureau"
NouveauChemin = "c:AAA" Fichier = "classeur1.xls"
'Teste pour savoir si le fichier existe dans le répertoire défini. If Dir(Chemin & Fichier) <> "" Then 'Supprime le fichier s'il existe déjà dans l'ancien répertoire Kill NouveauChemin & Fichier 'Copie le fichier du bureau vers sa destinatioin finale Name Chemin & Fichier As NouveauChemin & Fichier 'Supprime le fichier sur le bureau Kill Chemin & Fichier Else MsgBox "Chemin ou fichier incorrecte." End If End Sub '-----------------------------------
"Cyril DUPONT" a écrit dans le message de news:
Bonjour,
Je souhaiterais pouvoir, à partir d'une macro, couper/coller un fichier qui se situe sur mon bureau dans un dossier dont je connais le chemin.
Si ce n'est pas possible une autre solution serait de pouvoir créer le fichier pdf directement dans le dossier en question mais à prioris ce n'est pas possible... Ci dessous la macro de création du fichier pdf :
